|
ｿｽ@ｿｽｿｽDBISAMｿｽｿｽBLOBｿｽﾛ托ｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
studio-take 2011/04/24(ｿｽｿｽ) 06:51:38
ｿｽｿｽｿｽﾌスｿｽｿｽｿｽbｿｽhｿｽｿｽQｿｽlｿｽﾉ登ｿｽ^ｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽwｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
//FieldByNameｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅみゑｿｽ
var
JP:TJpegImage;
ST:TStream;
begin
with DbisamQuery do
begin
Insert;
JP := TJpegImage.Create;
ST := CreateBlobStream(FieldByName('JPEGIMAGE'),bmWrite);
JP.Asign(Image1.Picture.bitmap);
JP.SaveToStream(ST);
Post;
JP.Free;
ST.Free;
end;
end;
//ｿｽ闡ｱｿｽｿｽｿｽﾍ奇ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌｿｽｿｽRｿｽ[ｿｽhｿｽﾉ移ろうｿｽﾆゑｿｽｿｽｿｽｿｽｿｽAｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾂゑｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽｿｽ
ｿｽuDBISAM EngineError#10030Invalid BLOB Handle for the Table '#####'Specifiedｿｽv
ｿｽﾆなゑｿｽﾜゑｿｽｿｽB
#####ｿｽﾍゑｿｽｿｽﾂゑｿｽﾔ搾ｿｽｿｽｿｽｿｽﾏゑｿｽｿｽｿｽﾄゑｿｽB
//UpdateSQLｿｽｿｽgｿｽｿｽｿｽﾄみゑｿｽ
var
JP:TJpegImage;
ST:TStream;
begin
JP := TJpegImage.Create;
ST := TStream.Create;
JP.Asign(Image1.Picture.bitmap);
JP.SaveToStream(ST);
with DBISAMUpdateSQL do
begin
Query[ukInsert].ParamByName('JPEGIMAGE').SaveToStream(ST);
ExecSQL(ukInsert);
end;
JP.Free;
ST.Free;
end;
//ｿｽｿｽｿｽﾆ「AbstructｿｽGｿｽｿｽｿｽ[ｿｽvｿｽﾆなゑｿｽﾜゑｿｽｿｽB
studio-take 2011/04/24(ｿｽｿｽ) 08:12:19
SteamｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽMemoryStreamｿｽﾅ擾ｿｽ閧ｭｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
