你的 DELPHI存取JPEG文件到SQL Server数据库 文中showbotton中代码中的var
ghy:TADOBlobstream;
pic:tjpegimage;
begin
ghy:=TADOBlobstream.Create(ADOTable1,pic, bmRead);
try
ghy.Seek(JpegStartsInBlob(Adoquery1pic),soFromBeginning);
Pic:=TJpegImage.Create;
try
Pic.LoadFromStream(ghy);
Image1.Picture.Graphic:=Pic;
finally
Pic.Free;
end;
finally
ghy.Free
end;
中的Adoquery1pic是怎么回事,是怎么来的?该加什么或是设什么????
ghy:TADOBlobstream;
pic:tjpegimage;
begin
ghy:=TADOBlobstream.Create(ADOTable1,pic, bmRead);
try
ghy.Seek(JpegStartsInBlob(Adoquery1pic),soFromBeginning);
Pic:=TJpegImage.Create;
try
Pic.LoadFromStream(ghy);
Image1.Picture.Graphic:=Pic;
finally
Pic.Free;
end;
finally
ghy.Free
end;
中的Adoquery1pic是怎么回事,是怎么来的?该加什么或是设什么????
不知道你否明白:)