Bisa juga dgn TParam.LoadFromStream. Hal ini berguna jika gambar tsb
bukan berupa file, misalnya diambil dari suatu DBImage.
CONTOH:
procedure...
var MS: TMemoryStream;
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Text:='INSERT INTO biodata (foto) VALUES (:gbr)';
Query1.Prepare;
MS:=TMemoryStream.Create;
try
DBImage1.Picture.Bitmap.SaveToStream(MS);
MS.Position:=0;
Query1.Params[0].LoadFromStream(MS,ftGraphic);
finally
MS.Clear;
MS.Free;
end;
Query1.ExecSQL;
end;
Sebenarnya bisa juga dgn
DBImage1.Picture.Bitmap.SaveToFile('c:\temp.bmp');
dilanjutkan dgn
Query1.Params[0].LoadFromFile('c:\temp.bmp',ftGraphic);
tetapi Anda harus mencari dulu lokasi temporary foldernya (mis. dgn
GetTempFileName), supaya tidak bermasalah dgn security di sistem
WinNT. Jika sistemnya Win95, ya tidak masalah.
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/CBxunD/vN2EAA/xGHJAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
