figura no Image para outro image...

Delphi

15/02/2004

não sei se é por que estou quase 12 horas em frente ao micro...más me dê uma luz tenho um comp. image em form e queria inserir o conteúdo do mesmo em outro...EXEMPLO:

* tenho form (Formcliente) com um dispositivo de captura via scaner.....
*Quando inicialiso o utilitário de captura este abre um outro form ( formscaner )
* quando capturo a imagem, esta se Hospeda no image1...e no form do cliente (formcliente) tem outro image ( image3 ) que recebe esta image...aí está o problema, não consigo jogar a figura do FormScaner.imag1 para o Formcliente.Image3...

Isso não parece complicado...Massss ...TÁ BATENDO ABESSA....

VAleuuuuuuuu


Gigatel

Gigatel

Curtidas 0

Respostas

Carlosestevam

Carlosestevam

15/02/2004

use a propriedade assign do TImage.
Image1.Picture.Assign(Image2.Picture);


GOSTEI 0
Gigatel

Gigatel

15/02/2004

use a propriedade assign do TImage. Image1.Picture.Assign(Image2.Picture);



Não funcionou... ficaria assim ?

_FormCliente.Image3.Picture.Assign(Image1.Picture);


O image1 e que está com a figura....


GOSTEI 0
Gigatel

Gigatel

15/02/2004

Só um detalhe, Uso um componete para Scamer chamado ScanImage....
este componete é bem fá cil de trabalhar....daí resolví mudar...analizem...
no componente existe uma opção SCANEDIMAGE onde a ímagem fica alojada ..só que neste image onde quero visualizar foi adicionada uma função de JPG... e não visualiza....olhe o código...

procedure T_FormCliente.DataSource1DataChange(Sender: TObject;
Field: TField);
var
BlobStream : TBlobStream;
JpegImage : TJPEGImage;
begin
BlobStream := TBlobStream.Create(Table1Fig1, bmRead);
if BlobStream.Size <> 0 then
Begin
Image3.Visible := true;
JpegImage := TJPEGImage.Create;
Try
JpegImage.LoadFromStream(BlobStream);
Image3.Picture.Assign(JpegImage);
Finally
BlobStream.Free;
JpegImage.Free;
End;
End
Else
Image3.Visible := false;


GOSTEI 0
POSTAR