imagem -gt; txt e vice-versa

Delphi

07/02/2003

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


Uiratan Cavalcante

Uiratan Cavalcante

Curtidas 0

Respostas

Anonymous

Anonymous

07/02/2003

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


GOSTEI 0
Anonymous

Anonymous

07/02/2003

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


GOSTEI 0
Anonymous

Anonymous

07/02/2003

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á .


GOSTEI 0
POSTAR