Gustavo,
Este erro indica que a declaracao da procedure especificado na interface não
está igual a declaracao na implementacao. faça o seguinte:
- Remova a declaração na interface
- Localize o código da procedure na implementação e tecle
[Ctrl]+[Shift]+[C].
Obs: certifique-se de que o identificador de classe esteja correto.
[]s,
Alexandre.
----- Original Message -----
From: "Gustavo Valente" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, September 27, 2004 11:35 AM
Subject: Re: [delphi-br] Inserindo imagens JPG no BD - Dúvida
Olá, Colega,
Obrigado pela dica! Mas, agora, estou com outro problema.
Está dando erro na declaração da procedure. Já acrescentei "DB" na
cláusula uses e nada...
A mensagem de erro é a seguinte: "Unsatisfied forward or external
declaration: 'Tfrmcadimovel.SalvaJpegNoBlob'.
O que pode estar errado?
[]s
Gustavo
On Mon, 27 Sep 2004 10:00:09 -0300, Alexandre P. Trindade
<[EMAIL PROTECTED]> wrote:
>
> Colega, ai vai uma sugestão:
>
> Function SalvaJpegNoBlob(Img: TJpeg; Field: TBlobField);
> Var
> Stm : TMemoryStream;
> Begin
> Stm := TMemoryStream.Create;
> Try
> Img.SaveToStream(Stm);
> Stm.Seek(0,soFrombegining);
> Field.LoadFromStream(Stm);
> Finally
> Stm.Free;
> End;
> End;
>
> []s,
>
> Alexandre P. Trindade
> ===============
>
>
>
> ----- Original Message -----
> From: "Gustavo Valente" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Sunday, September 26, 2004 12:44 PM
> Subject: [Norton AntiSpam] [delphi-br] Inserindo imagens JPG no BD -
Dúvida
>
> Olá, Pessoal,
>
> Estou precisando criar uma funcionalidade que me permita inserir, no
> banco de dados, imagens JPG. Já procurei me informar, e precisarei
> usar a unit JPEG. Mas, ainda assim, não estou conseguindo fazer. Só
> consigo inserir imagens BMP.
> Uso Interbase 6.0 e Delphi 7.0.
>
> Abaixo, um trecho do código:
>
> procedure tfrmcadimovel.atribuirdados;
> var imagem: tjpegpicture;
> begin
> (...)
> imagem.Assign(imgfoto1.Picture);
> dm.cldprincipal.FieldByName('foto_1').Assign(imagem);
> (...)
> end;
>
> Ao mandar executar, o Delphi emite um aviso de que a variável imagem
> pode não ter sido inicializada. E, ao usar a referida procedure, é
> emitida uma mensagem de violação no acesso à memória. O que pode estar
> errado?
>
> Obrigado,
>
> Gustavo
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
