delphi实现保存和读取图片的方法

    本文实例讲述了delphi实现保存和读取图片的方法,是非常实用的技巧。分享给大家供大家参考。具体实现方法如下:

    首先引用jpeg

    1.显示图片:

    
    if  OpenPictureDialog.Execute then
    begin
       img1.Picture.LoadFromFile(OpenPictureDialog.FileName);
       btnPicture.Text:=OpenPictureDialog.FileName;
    end;
    
    

    2.保存图片:

    
    var
    Stream:TMemoryStream;
    Stream := TMemoryStream.Create; // 创建内存流
    // 将图片保存到内存流中
    img1.Picture.Graphic.SaveToStream(Stream);
    ParamByName('picture').LoadFromStream(Stream,ftBlob);
    ParamByName('IsSavePicture').Value:='1';
    Stream.Free;  //用完了马上Free掉
    
    

    3.读取图片:

    
    var
    
    Stream:TMemoryStream;
    Jpg:TjpegImage;
    
    if fieldbyname('IsSavePicture').Value='1' then
    begin
     Stream:=TMemoryStream.Create ;
     Jpg:=TjpegImage.Create ;
     TBlobField(FieldByName('picture')).SaveToStream(Stream);  // 显示的转换为BlobField并保存到内存流
     Stream.Position :=0;
     jpg.LoadFromStream(Stream);  // 加载图片
     img1.Picture.Assign(Jpg);
     Stream.Free;
     Jpg.Free;
    end
    else
    begin
     img1.Picture :=nil;
    
    

    相信本文所述对大家的Delphi程序设计有一定的借鉴价值。