inserir uma imagem JPGE

Delphi

02/06/2003

Caro amigos.

Estou tendo dificuldades, eu sei inserir a imagem, só quando vou salvar, ou avançar para visualizar outros registros ele some.

eu uso dois componentes na palheta dialogs

1)Open
2)Save

Uses declaro JPGE

Fico grato pela Ajuda.


Velozzo

Velozzo

Curtidas 0

Respostas

Joa0

Joa0

02/06/2003

Caro amigos. Estou tendo dificuldades, eu sei inserir a imagem, só quando vou salvar, ou avançar para visualizar outros registros ele some. eu uso dois componentes na palheta dialogs 1)Open 2)Save Uses declaro JPGE Fico grato pela Ajuda.


Se voce proporciona o codigo tal vez lle poida axudar.
Em que componhente visualiza as imaxes? supoño nun timage, si e asi declarando jpeg nas uses cos componhentes topenpicturedialog e tsavepicture dialog non deberia ter problema.

procedure TForm1.btnOpenClick(Sender: TObject);
begin
if openpicturedialog1.Execute
then image1.Picture.LoadFromFile(openpicturedialog1.FileName);
end;

Se o grafico esta nunha taboa
Para gardalo na taboa

procedure TForm1.btngardarClick(Sender: TObject);
begin
if openpicturedialog1.execute then
begin
form1.table1.Edit;
try
form1.table1BMP.LoadFromFile(openpicturedialog1.FileName);
except
end;
form1.tblLaminasUnir.Post;
end;
end;



Para amosar o campo table1bmp nun timage

Este exemplo esa en http://www.q3.nu/trucomania/ftesp.html

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
Jpeg:TJpegImage;
Corriente:TMemoryStream;
begin
{Intentamos asignarlo como BMP normalito}
try
Image1.Picture.Assign(Table1BMP);
except
{Seda erro, tentamolo como JPG}
Jpeg:=TJpegImage.create;
Corriente:=TMemoryStream.create;
try
Table1BMP.SaveToStream(Corriente);
Corriente.Seek(0,soFromBeginning);
Jpeg.LoadFromStream(Corriente);
Image1.Picture.Assign(Jpeg);
finally
Corriente.Free;
Jpeg.Free;
end;
end;
end;

Seria mais ou menos asi. Espero lle sirva de axuda.
(Disculpe o meu redactar pois portugues non sei moito. Só galego.)


GOSTEI 0
POSTAR