Форум: "Базы";
Текущий архив: 2005.07.18;
Скачать: [xml.tar.bz2];
Вниз
Графика в Ado Найти похожие ветки
← →
Uran (2005-06-09 16:21) [0]Подскажите пожалуйста на примере, как через ado в база Acces загрузить jpg!
Заранее благодарен.
← →
Плохиш © (2005-06-09 16:26) [1]blob
← →
Stanislav © (2005-06-09 16:31) [2]Из Базы
Function ShowJPG (Field:TBlobField;var Image:TImage):Integer;
VAR S:TMemoryStream;J:TJPEGImage;
begin
Result:=0;
If not Field.DataSet.Active or Field.IsNull then
begin
Image.Canvas.Brush.Color:=clBtnFace;
Image.Canvas.FloodFill(0,0,clWhite,fsSurface);
patBlt (Image.Canvas.Handle ,0,0,Image.Picture.Width,Image.Picture.Height,PATCOPY);
end
else
begin
S:=TmemoryStream.Create;
J:=TJpegImage.Create;
S.Position:=0;
Field.SaveToStream(S);
S.Position:=0;
J.LoadFromStream(S);
Image.Picture.Bitmap.Assign(J);
Result:=S.Size;
J.Free;
S.Free;
end;
end;
← →
Uran (2005-06-09 16:31) [3]меня интересовал не тип поля где хранить графические данные, а как их туда поместить, а именно jpg и именно через ADO в access
← →
Uran (2005-06-09 16:32) [4]Stanislav, а наоборот ... в базу? :)
← →
Johnmen © (2005-06-09 16:34) [5]...а ключи от квартиры? :)
← →
Stanislav © (2005-06-09 16:45) [6]Uran (09.06.05 16:32) [4]
на оборот:
JPeGImage.SaveToStream(S);
Field.LoadFromStream(S);
← →
Плохиш © (2005-06-09 16:58) [7]>Uran (09.06.05 16:31) [3]
Ну тогда платите 249 Euro
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2005.07.18;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.034 c
