[delphi-br] Picture pra String

[erivando]

Turma eu estou precisando muito converter uma imagem Jpeg em Texto, não sei se 
os colegas observaram, mas o IBExpert faz isso com um campo blob, até converte 
pra outros formatos, só não sei a função que eles usaram, rerere
eu estou com estes metodos e funções aqui mais não consigo trazer do texto para 
imagem . 

dar o erro: JPEG error #51



     
      unit Unit1; 

      interface 

      uses 
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, 
Forms, 
      Dialogs, ExtCtrls, Jpeg, ExtDlgs, StdCtrls, Buttons, RxGIF; 

      type 
      TbasFormatImage = ( ftiBitmap, ftiJPeg, ftiIcon, ftiMetafile ); 
      TForm1 = class(TForm) 
      BitBtn1: TBitBtn; 
      BitBtn2: TBitBtn; 
      Image1: TImage; 
      OpenPictureDialog: TOpenPictureDialog; 
      Image2: TImage; 
      Memo1: TMemo; 
      procedure BitBtn1Click(Sender: TObject); 
      procedure BitBtn2Click(Sender: TObject); 
      private 
      { Private declarations } 
      public 
      { Public declarations } 
      end; 

      var 
      Form1: TForm1; 

      MS: TMemoryStream; 
      J1: TJPEGImage; 

      implementation 

      {$R *.dfm} 

      function ImageToString(const pPicture: TPicture): string; 
      var 
      oStr : TStringStream; 
      begin 
      if pPicture = nil then 
      begin 
      Result:= ''; 
      Exit; 
      end; 

      oStr := TStringStream.Create(''); 

      try 
      pPicture.Graphic.SaveToStream( oStr ); 
      Result := oStr.DataString; 
      finally 
      oStr.Free; 
      end; 
      end; 

      function StringToImage(const pDataString: string; const 
      pFormatImage: TbasFormatImage): TPicture; 
      var 
      oStr : TStringStream; 
      oGraphic : TGraphic; 
      begin 
      Result:= nil; 

      if pDataString = '' then 
      Exit; 
      oStr := TStringStream.Create(pDataString); 
      try 
      case pFormatImage of 
      ftiBitmap : oGraphic := TBitmap.Create; 
      ftiJPeg : oGraphic := TJPEGImage.Create; 
      ftiIcon : oGraphic := TIcon.Create; 
      ftiMetafile : oGraphic := TMetafile.Create; 
      end; 
      oGraphic.LoadFromStream( oStr ); 
      Result := TPicture .Create; 
      Result.Graphic := oGraphic; 
      finally 
      oStr.Free; 
      end; 
      end; 

      procedure TForm1.BitBtn1Click(Sender: TObject); 
      var i: integer; 
      begin 
      if OpenPictureDialog.Execute then 
      Image1.Picture.LoadFromFile(OpenPictureDialog.FileName); 
      Memo1.Text:=ImageToString(Image1.Picture); 
      end; 

      procedure TForm1.BitBtn2Click(Sender: TObject); 
      begin 
      Image2.Picture.Assign(StringToImage(Memo1.Text, ftiJPeg)); 
      end; 

      end. 

     



Erivando Sena

[As partes desta mensagem que não continham texto foram removidas]