cannot convert type
Posted: Wed 02 Apr 2014 09:19
UniDAC 最新版 5.2.7报错,连库sqlite
procedure TForm1.Button2Click(Sender: TObject);
var
ak:TFileStream;
begin
ak:=TFileStream.Create(ExtractFileDir(application.ExeName) + '\Water lilies.jpg',fmOpenRead);
utable1.Edit;
TBlobfield(utable1.FieldByName('picture')).loadfromStream(ak);
utable1.Post;
ak.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
ak:TFileStream;
begin
ak:=TFileStream.Create(ExtractFileDir(application.ExeName) + '\Water lilies.jpg',fmOpenRead);
utable1.Edit;
TBlobfield(utable1.FieldByName('picture')).loadfromStream(ak);
utable1.Post;
ak.Free;
end;