var
jpg:TJEPGImage;
blob:TStream;
begin
...
blob = Table.CreateBlobStream(Table.FieldByName("Data"), bmWrite);
jpg.SaveToStream(blob);
blob.Free;
end;
//我用的BCB,转到DELPHI未测试^o^
jpg:TJEPGImage;
blob:TStream;
begin
...
blob = Table.CreateBlobStream(Table.FieldByName("Data"), bmWrite);
jpg.SaveToStream(blob);
blob.Free;
end;
//我用的BCB,转到DELPHI未测试^o^
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货