ver se isto te ajuda
Caminho : string;
aFS : TFileStream;
ImagJPG : TJPEGImage;
begin
OpenPictureDialog1.Execute;
Caminho:= OpenPictureDialog1.FileName;
JvImage1.Picture.LoadFromFile(Caminho);
JvImage1.Refresh;
if empty(Caminho) then
exit;
aFS := TFileStream.Create(Caminho, fmOpenRead); //
Le imagem
DataCus.CDSProdutoImag.Append;
DataCus.CDSProdutoImag.FieldByName('CD_CODPRO').AsString
:=DataCus.CDSLista.FieldByName('CD_CODPRO').AsString;
DataCus.CDSProdutoImagFOTO1.LoadFromStream(aFS);
DataCus.CDSProdutoImag.Post;
DataCus.CDSProdutoImag.ApplyUpdates(0);
aFS.Free; // Fecha o arquivo e libera a memoria.
--- HNS Informática <[EMAIL PROTECTED]> wrote:
> estou usando um image, assim ó:
>
> editimagem.Picture.LoadFromFile(open.filename);
>
> como posso fazer a gora para a imagem que está no
> meu image ser armazenado no banco mysql?
>
> por exemplo: query['Imagem'] := image o que?
>
> att. Charles Chiodi
>
> [As partes desta mensagem que não continham texto
> foram removidas]
>
>
>
>
__________________________________
Yahoo! Music Unlimited
Access over 1 million songs. Try it free.
http://music.yahoo.com/unlimited/
--
<<<<< 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
