Me ajudem, gravar uma foto jpg no interbase, fiz de tudo!

Delphi

30/05/2003

Como faço para gravar um jpg no IB 6.02, já coloquei uses jpeg, e já segui varios exemplos que baixei e nada, alguém já conseguiu realmente e pode me passar?
Uma grande abraço a todos,
Atenciosamente,


Jorgerodrigo

Jorgerodrigo

Curtidas 0

Respostas

José Paz

José Paz

30/05/2003

Procure no help por ´filestream´ ou algo parecido (não melembro claramente).Vc terá que passar a imagem selecionada (num componente TIMAGE) para algumas variáveis e depois enviar para o campo blob.


GOSTEI 0
Rik3500

Rik3500

30/05/2003

Caro Jorje, voce terá que criar no ib um campo tipo blob com substring 0, ai sim voce grava imagem, e para campos tipo obs, voce tambem usa blob, mas com substring 1, pois ele armazenará texto.


GOSTEI 0
Fred

Fred

30/05/2003

crie o campo do blob substring 0 segment size 80;
depois coloque um opendialog e faça o seguinte

if opendialog1.execute then
tabelaCAMPOIMAGEM.loadfromfile(opendialog1.filename); 8)


GOSTEI 0
Moonlight

Moonlight

30/05/2003

Essa rotina aqui funciona:

procedure TForm1.Button1Click(Sender: TObject);
var img : Tjpegimage;
begin
{cria variável para armazenar imagem }
img:= Tjpegimage.Create;
openpicturedialog1.Execute;
{busca imagem no arquivo e joga na variável}
img.LoadFromFile(openpicturedialog1.FileName);
img.DIBNeeded;
{passa imagem para Clipboard}
clipboard.assign(img);
{copia imagem para o campo´DBimagem´}
dbimage1.pastefromclipboard;
{libera variável}
img.free;
end;

quem fez ela foi uma Débora Mendes, que postou aqui no Clube há algum tempo... já testei, funcionou... qualquer coisa, se vc nao conseguir, fala ae...
ateh


GOSTEI 0
POSTAR