+1 JPG的列子: uses jpeg; //保存jpeg文件 procedure Tfrmado.ImageDblClick(Sender: TObject); begin with topendialog.Create(Self) do begin if execute then begin if not (adoquery1.State in [dsedit]) then adoquery1.Edit ; tblobfield(adoquery1.FieldByName('jpg')).LoadFromFile(FileName) ; end; end; end;//显示出来 procedure Tfrmado.DataSource1DataChange(Sender: TObject; Field: TField); var jpeg:tjpegimage; stream :TMemoryStream; begin if adoquery1jpg.BlobSize>0 then begin jpeg:=tjpegimage.Create; stream :=TMemoryStream.Create; tblobfield(adoquery1.FieldByName('jpg')).savetostream(stream); Stream.Seek(0,soFromBeginning); jpeg.loadfromstream(stream); image.Picture.Bitmap.Assign(jpeg); jpeg.Free; stream.Free; end else image.Picture:=nil; end;
对了,散分也放到基础类里没关系吗?
偶也一直想散点分,就是不知道斑竹管不管...害怕ing
JPG的列子:
uses jpeg;
//保存jpeg文件
procedure Tfrmado.ImageDblClick(Sender: TObject);
begin
with topendialog.Create(Self) do
begin
if execute then
begin
if not (adoquery1.State in [dsedit]) then adoquery1.Edit ;
tblobfield(adoquery1.FieldByName('jpg')).LoadFromFile(FileName) ;
end;
end;
end;//显示出来
procedure Tfrmado.DataSource1DataChange(Sender: TObject; Field: TField);
var
jpeg:tjpegimage;
stream :TMemoryStream;
begin
if adoquery1jpg.BlobSize>0 then
begin
jpeg:=tjpegimage.Create;
stream :=TMemoryStream.Create;
tblobfield(adoquery1.FieldByName('jpg')).savetostream(stream);
Stream.Seek(0,soFromBeginning);
jpeg.loadfromstream(stream);
image.Picture.Bitmap.Assign(jpeg);
jpeg.Free;
stream.Free;
end
else
image.Picture:=nil;
end;
UPUPUPUPUPUPUPUPUP
UPUPUPUPUPUPUPUPUPUPUPUPUPUPUP
UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP
UPUPUPUP UPUPUPUPUPUPUPUPUPUPUP
UPUPUPUPUPUPUP UPUPUP UPUPUPUPUP
UPUPUPUPUPUPUPUPUPUPUPUP UPUPUPUP
UPUPUPUPUPUPUPUPUPUPUPUPUPUP UPUPUPUP
UPUPUPUPUPUPUPUPUPUPUPUP UPUPUPUPUPUPUPUPUPUPUP
UPUPUPUPUPUPUPUPUPUPUPUP UPUPUPUPUPUPUPUPUPUPUPUPUPUP
UPUPUPUPUPUPUPUPUPUP UPUPUPUPUPUP UPUPUPUPUPUPUP
UPUPUPUP UPUPUPUP UPUPUPUPUP
UPUPUPUP UPUPUPUP UPUP UPUPUPUPUP
UPUPUPUP UPUPUPUP UPUPUPUP UPUPUPUPUP
UPUPUPUP UPUPUPUP UPUPUPUP UPUPUPUPUP
UPUPUPUP UPUPUPUP UPUPUP UPUPUPUPUP
UPUPUPUP UPUPUPUP UPUPUP UPUPUPUPUP
UPUPUPUP UPUPUPUP UPUPUPUP UPUPUPUPUP
UPUPUPUP UPUPUPUP UPUPUPUP UPUPUPUPUP
UPUPUPUP UPUPUPUP UPUPUPUP UPUPUPUPUP
UPUPUPUP UPUPUPUP UPUPUPUP UPUPUPUPUP
UPUPUPUP UPUPUP UPUPUPUP UPUPUPUPUP
UPUP UPUPUPUPUP UPUPUP UPUPUP UPUPUPUPUP
UPUPUPUPUPUPUPUPUPUP UPUP UPUP UPUPUPUPUP
UPUPUPUPUPUPUPUPUP UPUPUP UPUPUPUP
UPUPUPUPUPUPUP UPUPUP UPUPUPUP
UPUPUPUPUPUP UPUPUPUP UPUPUPUPUP
UPUPUP UPUPUPUPUP UPUPUPUPUPUPUP
UPUPUPUPUPUP UPUPUPUPUPUP
UPUPUPUPUPUP UPUPUPUPUPUPUP
UPUPUPUPUP UPUPUPUPUPUP
UPUPUPUPUP UPUPUPUP
UPUPUP UPUPUP 你要的帖子!http://expert.csdn.net/Expert/topic/1204/1204374.xml?temp=.7629053
http://expert.csdn.net/Expert/topic/1258/1258595.xml?temp=7.079715E-02
最后再恭喜你!