imagem -gt; txt e vice-versa

Question

amigos do forum, alguem ja precisou transformar imagem em txt e vice-versa? existe algum algoritmo para cada tipo de imagem? se alguem souber de algo.. abra�os...

Anonymous · Answer

Ol� amigo... o lance � usar streams como no exemplo abaixo

procedure TForm1.TesteClick....
var
  wStream : TStringStream; 
  bmp : TBitmap; 
begin
  wStream := TStringStream.Create(��); 
  bmp := TBitmap.Create(Self); 
  bmp.LoadFromFile(�c:\teste.bmp�); 
  bmp.SaveToStream(wStream); 
  wStream.position := 0; 
  showmessage(wStream.DataString); 

  Image1.Picture.Bitmap.LoadFromStream(wStream); 
  wStream.free;
  bmp.free;
end;

� algo do g�nero, espero ter ajudado.

Abra�os

Marcello Bacos Moreno
mbminformatica@yahoo.com.br

Anonymous · Answer

e ai marcelo, bem, pelo menos com os testes q eu fiz aqui, deu tudo certo, vamos ver se a empresa q vai passar o arquivo pra mim, como ela ira fazer... se for desta forma.. ta tranquilo.. valeu a ajuda

Anonymous · Answer

Achei interessante este t�pico por isso fui test�-lo mas o Delphi na hora de compilar d� um erro.
Exatamente aqui :

bmp := TBitmap.Create(Self);

O erro � esse :

Too many actual parameters

Eu n�o consegui resolvelo se alguem souber o motivo por favor me ajude.
Obrigado desde j� .

F�rum imagem -gt; txt e vice-versa #133654