Как считать Jpeg из бд в DBImage

← →
Agafonov Alexsandr (2002-12-25 18:14) [0]

Уважаемые мастера, подскажите как считывать из базы JpegImage и отображать его в DBImage.

← →
Anatoliy (2002-12-25 18:41) [1]

Только вчера прописал, может подойдет.

procedure ViewImage;
VAR Q:TADOQuery;
Image:String;
ImageSize:LongInt;
S:TMemoryStream;
ImageID:LongInt;
begin
with fmMain.frImageMain.imSmall.Picture do
begin
Q:=TADOQuery.Create(nil);
S:=TMemoryStream.Create;
try
ImageID:=DM.spMainImages.Fields[0].AsInteger;
Q.Connection:=DM.cnCennic;
Q.SQL.Add(Format("SELECT Data FROM Изображение WHERE id=%d",[ImageID]));
Q.Open;
Image:=Q.Fields[0].AsString;
ImageSize:=Length(Image);
S.WriteBuffer(Image[1],ImageSize);
S.Seek(0,soFromBeginning);
Graphic:=TJpegImage.Create;
with (Graphic as TJpegImage) do
begin
LoadFromStream(S);
Performance:=jpBestSpeed;
end;
finally
Q.Close;
Q.Free;
S.Free;
end;
fmMain.frImageMain.imSmall.Visible:=True;
end;
end;

← →
VID (2002-12-26 02:06) [2]

Посмотри
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1040857557&n=1

← →
Agafonov Alexsandr (2002-12-26 20:28) [3]

Спасибо!

Как считать Jpeg из бд в DBImage Найти похожие ветки