procedure TForm1.Button1Click(Sender: TObject);
var
BMP: TBitMap;
Stream : TMemoryStream; (* Alterado aqui *)
begin
BMP := TBitMap.Create;
if OpenPictureDialog1.Execute then
begin
if Table1.State in [dsInsert, dsEdit] then
begin
Stream := TMemoryStream.Create;(* Alterado aqui *)
BMP.LoadFromFile(OpenPictureDialog1.FileName);
BMP.SaveToStream(Stream); (* Alterado aqui *)
Table1Graphic.LoadFromStream(Stream); (* Alterado aqui *)
end;
end
end;
Não deu pra testar com certeza, pois to sem delphi aki, mas deve
funcionar.... se não funcionar, da um toque...
flws
Daniel Augusto Bastos
Em 13/05/06, wendeir oliveira <[EMAIL PROTECTED]> escreveu:
>
> Bom dia amigos do grupo, preciso salvar imagens no Banco PostgreSQL, estou
> usando campo do tipo bytea. Usei a seguinte função no Delphi7:
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> BMP: TBitMap;
> begin
> BMP := TBitMap.Create;
> if OpenPictureDialog1.Execute then
> begin
> if Table1.State in [dsInsert, dsEdit] then
> begin
> BMP.LoadFromFile(OpenPictureDialog1.FileName);
> Table1Graphic.Assign( BMP );
> end;
> end
> end;
>
> porem não está salvando no banco
>
> Desde já agradeço
>
>
>
>
> ---------------------------------
> Yahoo! Search
> Música para ver e ouvir: You're Beautiful, do James Blunt
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por: | |
|
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 Termos do Serviço do Yahoo!.