Imagem em forma Binária
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
Curtidas 0
Melhor post
Beppe
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;
GOSTEI 1
Mais Respostas
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.
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