--- Anderson Furtilho escreveu:
> Olá amigos da lista!
>
>
> Alguém sabe como faço para anexar em um campo blob
> (Binary) qualquer tipo de arquivo (exemplo: PDF, DOC,
> TXT) e abri-lo de acordo com usa extensão!
>
>
> Resumo: Gravar no blob qualquer tipo de arquivo e
> abri-lo com o aplicativo associado!
>
> Qualquer dica ficarei agradecido.
>
> Uso Firebird com IBX
[--x--]
[Welson] Bom, salvá-lo no banco de dados eu posso te passar a dica, mas abrir o
arquivo com o programa correspondente eu não sei. :-/
Para salvar:
procedure Salvar ...
var
M : TMemoryStream;
begin
...
M := TMemoryStream.Create;
try
Image1.Picture.Bitmap.SaveToStream(M);
DataSetCAMPOBLOB.Value := M;
finally
M.Free;
end;
...
Tenta essa rotina aí acima e veja se funciona. Qualquer coisa, pode perguntar.
[]s.
=================================
"O que me preocupa não é o grito dos maus. É o silêncio dos bons."
Martin Luther King.
=================================
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
<www.geminisistemas.com.br>
Juiz de Fora - Minas Gerais
=================================
_______________________________________________________
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
--
<<<<< 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]
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
