現在DBEXPRESSを利用してFIREBIRDのBLOB項目にJPEGデータを保存させています
同じようにPDFファイルもBloB項目に保存できるのでしょうか?
procedure TPIC_MAIN_FRM.Button1Click(Sender: TObject);
Var
Jpg :TJpegImage;
BMp : TBitmap;
begin
Jpg :=TJpegImage.Create ;
BMP :=TBitmap.Create;
if OpenPictureDialog2.Execute then
begin
jpg.LoadFromFile(OpenPictureDialog2.FileName);
BMP.Assign(JPG);
Image1.Picture.Assign(BMP);
end;
end;
ツイート | ![]() |