fail to save bmp to the blob of DB2 |
|
尚未結案
|
|
cti
一般會員   發表：1 回覆：4 積分：1 註冊：2004-05-27 發送簡訊給我 |
db2 7 delphi 7 bde 5.01 program: procedure TForm1.Button1Click(Sender: TObject);
var
ext:string;
//Stream:TMemoryStream;
//fs: TFileStream;
//bs: TBlobStream; begin
if openpicturedialog1.Execute then
image1.Picture.LoadFromFile(openpicturedialog1.FileName ); if image1.picture.Graphic <> nil then begin
//table1.Edit ;
table1.append;
TBlobField(table1.FieldByName('myimage')).Assign(image1.Picture.Graphic);
TBlobField(table1.FieldByName('myimage') as TBlobField ).LoadFromFile(openpicturedialog1.FileName );
(*
Stream:=TMemoryStream.Create;
image1.Picture.Graphic.SaveToStream(stream);
TBlobField(Table1.FieldByName('myimage') as TBlobField).LoadFromStream(Stream);
Stream.Free ;
*)
(*
fs := TFileStream.Create(openpicturedialog1.FileName, fmOpenRead);
bs := TBlobStream(table1.CreateBlobStream(FieldByName('myimage'), bmWrite));
bs.CopyFrom(fs, 0);
bs.Free;
fs.Free;
*)
table1.FieldByName('BT_CODE').AsString := '33060200204035000133'; ext:=extractfileext(openpicturedialog1.FileName ); if uppercase(ext) = '.BMP' THEN
table1.FieldByName('isbmp').VALUE := 1
ELSE IF (UPPERCASE(EXT) = '.JPEG') OR (UPPERCASE(EXT) = '.JPG') THEN
table1.FieldByName('isbmp').VALUE := 0;
TABLE1.Post ;
end; end; 错误：project1.exe raised exception class EDBEngineError with message 'General SQL error. [IBM][CLI Driver]CLI0102E无效的转换。SQLSTATE=07006'. 使用ADO，也是同样的错误。 请大家帮帮我！
|
|
cti
一般會員 發表：1 回覆：4 積分：1 註冊：2004-05-27 發送簡訊給我 |
|
|
cti
一般會員 發表：1 回覆：4 積分：1 註冊：2004-05-27 發送簡訊給我 |
|
|
minjiu
中階會員  發表：27 回覆：119 積分：69 註冊：2002-06-26 發送簡訊給我 |
|
|
cti
一般會員 發表：1 回覆：4 積分：1 註冊：2004-05-27 發送簡訊給我 |
|
|
cti
一般會員 發表：1 回覆：4 積分：1 註冊：2004-05-27 發送簡訊給我 |
發表時間：2005-01-11 14:45:39
IP:202.107.xxx.xxx 未訂閱
系統時間：2024-11-23 7:23:27
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |