在 MS Sql Server 7 的数据库中有一个数据库 aa,结构为:
ct1 char(10) , ct2 binary 现在我需s要将一个 Jpeg 文件保存到 ct2中,
但是我用dbimage控件去取這個圖片的時候,他好像說找不到這個字段
各位大仙我應怎麼辦,我用image2.Picture.Assign(query1.FieldByName('ct2'));也沒有辦法取出來。
procedure TForm1.Button1Click(Sender: TObject);
var
stringstream1:Tstringstream;
str:string;
jpeg1:tjpegimage;
begin
OpenDialog1.Execute;
// Str := ExtractFileExt(OpenDialog1.filename);
Jpeg1 := TJPEGIMAGE.Create;
Jpeg1.LoadFromFile(OpenDialog1.FileName);
query1.Close;
query1.SQL.Clear;
query1.SQL.Append('insert into kingct');
query1.SQL.Append('values(:ct1,:ct2)');
stringstream1 := TStringStream.create('');
jpeg1.savetostream(stringstream1);
query1.Params[0].AsString:='123';
query1.params[1].asblob := stringstream1.datastring;
query1.execsql;
//image2.Picture.Assign(query1.FieldByName('ct2'));
stringstream1.free;end;
ct1 char(10) , ct2 binary 现在我需s要将一个 Jpeg 文件保存到 ct2中,
但是我用dbimage控件去取這個圖片的時候,他好像說找不到這個字段
各位大仙我應怎麼辦,我用image2.Picture.Assign(query1.FieldByName('ct2'));也沒有辦法取出來。
procedure TForm1.Button1Click(Sender: TObject);
var
stringstream1:Tstringstream;
str:string;
jpeg1:tjpegimage;
begin
OpenDialog1.Execute;
// Str := ExtractFileExt(OpenDialog1.filename);
Jpeg1 := TJPEGIMAGE.Create;
Jpeg1.LoadFromFile(OpenDialog1.FileName);
query1.Close;
query1.SQL.Clear;
query1.SQL.Append('insert into kingct');
query1.SQL.Append('values(:ct1,:ct2)');
stringstream1 := TStringStream.create('');
jpeg1.savetostream(stringstream1);
query1.Params[0].AsString:='123';
query1.params[1].asblob := stringstream1.datastring;
query1.execsql;
//image2.Picture.Assign(query1.FieldByName('ct2'));
stringstream1.free;end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货