IMAGE。PICTURE。BITMAP。ASSING(FILENAME);

解决方案 »

  1.   

    uses jpeg
    image1.loadfromfile(filepath);
    第三个问题楼上已经解决
      

  2.   

    sorry
    应该是
    image1.picture.loadfromfile(filepath);
      

  3.   

    首先要uses jpeg
    然后你那个图象如果不用第三方控件的话,就只能用image控件了。
    下面就是存和读的代码,自个看着办吧。
    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;