Imagem em forma Binária

Delphi

07/06/2005

Delphianos,
Bom Dia,
Estou com seguinte duvida, Tenho um array de Byte, com informações de uma Img do tipo BitMap. Como posso transportar essa informação num Objeto TImage ou algo parecido ?


Melo

Melo

Curtidas 0

Melhor post

Beppe

Beppe

07/06/2005

Oi!

Precisa salvar numa stream e converter pra um bitmap.

S := TMemoryStream.Create do
try
  S.Write(@SeuArray[0], Length(SeuArray));
  S.Position := 0;
  B := TBitmap.Create;
  try
    B.LoadFromStream(S);
    Image1.Picture.Graphic := B;
  finally
    B.Free;
  end;
finally
  S.Free;
end;



GOSTEI 1

Mais Respostas

Inarais Jerônimo

Inarais Jerônimo

07/06/2005

E como faço o Inverso tenho um Bitmap?
preciso pegar a imagem capturada no TakePhotoFromCameraAction1DidFinishTaking e transformar em TBytes para enviar mais não sei por onde começar.

function TF_Cadsuspeito.UploadFile(pFile: TBytes; FileName, Bucket: string): boolean;
var
Service: TAmazonStorageService;
ConAmazon: TAmazonConnectionInfo;
begin
try
ConAmazon := TAmazonConnectionInfo.Create(nil);
ConAmazon.AccountKey := SecretKey;
ConAmazon.AccountName := AccessKey;
ConAmazon.QueueEndpoint := 'queue.amazonaws.com';
ConAmazon.StorageEndpoint := 's3-us-east-1.xxxxxxx';
ConAmazon.TableEndpoint := 'sdb.xxxxxxx';
ConAmazon.UseDefaultEndpoints := False;
Service := TAmazonStorageService.Create(ConAmazon);
Result := Service.UploadObject(Bucket, FileName, pFile, TRUE, nil, nil, amzbaPrivate, nil);
finally
ConAmazon.Free;
Service.Free;
end;
end;
GOSTEI 0
POSTAR