Imagem em forma Binária
07/06/2005
0
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 ?
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
Curtir tópico
+ 0
Responder
Post mais votado
07/06/2005
Oi!
Precisa salvar numa stream e converter pra um bitmap.
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;
Beppe
Responder
Mais Posts
24/03/2020
Inarais Jerônimo
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.
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)