Скачать: CL | DM;

Delphi + поля объекта OLE в MS Access   Найти похожие ветки 

← →
OlkaGTS ©   (2003-07-01 17:22) [0]

Уважаемые!
Каким образом можно работать с полями OLE из MS Access, поля содержат документы Word. Если можно, дайте ссылку, где можно об этом почитать.

---

← →
Семен Сорокин ©   (2003-07-01 17:33) [1]

function SaveFileFromBase(AId:integer; APath: string):boolean;
var
_bs : TStream;
_fs : TFileStream;
begin
Result := false;
with TADOQuery.Create(nil) do
try
SQL.Add("SELECT * FROM paterns WHERE id=:id");
Parameters.ParamByName("id").Value := AId;
Open;
if not Eof then begin
_bs := CreateBlobStream(FieldByName("File"), bmRead);
_fs := TFileStream.Create(ExcludeTrailingPathDelimiter(APath) + "\" + FieldByName("filename").AsString, fmCreate);
_fs.CopyFrom(_bs, 0)
end;
Result := true
finally
Close;
Free;
if _bs <> nil then
_bs.Free;
if _fs <> nil then
_fs.Free
end
end;
по аналогии смотри запись

---

← →
OlkaGTS ©   (2003-07-02 14:03) [2]

Ничего не получается. Он сохраняет файл в нечитабельном формате, то же самое происходит и при записи.

---

← →
Семен Сорокин ©   (2003-07-02 14:47) [3]

вот работающий пример (Лесник (с)):
var
MemStream: TMemoryStream;
Img: TBitmap;
jImg: TJPEGImage;
begin
OpenPictureDialog1.Execute;
if not (OpenPictureDialog1.FileName="") then begin
Img := TBitmap.Create;
jImg := TJPEGImage.Create;
MemStream := TMemoryStream.Create;
jImg.LoadFromFile(OpenPictureDialog1.FileName);
Img.Assign(jImg);
jImg.CompressionQuality := 60;
Img.SaveToStream(MemStream);
MemStream.Seek(0, soFromBeginning);
if not (DM.EmployesQuery1.State=dsEdit) then DM.EmployesQuery1.Edit;
TBLOBField(DM.EmployesQuery1.FieldByName("EPhoto")).LoadFromStream(MemStream);
DM.EmployesQuery1.Post;
MemStream.Free;
Img.free;
jImg.Free;
end;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c