Re: Saving Image/Picture to Database using ADO

procedure TfrmCompany.SaveJpegToTable(Table: TADOQuery; PicField:TBlobField;
sPicPath: string);
{
Usage:

SPicFileName := 'C:\!gajba\cdcovers\cdcover1.jpg';
SaveJpegToTable(ADOTable1, ADOTable1Picture, SPicFileName);
}
var
fS : TFileStream;
begin
// fs:=TFileStream.Create(sPicPath, fmOpenRead);
fs:=TFileStream.Create(PicField, fmOpenRead);
try
Table.Edit;
// JpegStartsInfs(PicField, fs);
PicField.LoadFromStream(fs);
Table.Post;
finally
fs.Free;
end;
end;

Any help would be appreciated.

Thanks,
Leonard


Table.Edit;
( Table.fieldbyName('picfield') as TblobField).loadFromfile(SPicFileName);
Table.Post;

--
Brian Bushay (TeamB)
Bbushay@xxxxxxxxx
.

Quantcast