Fórum Exportação de imagens #163683
30/05/2003
0
:?: Seguinte galera tô com um problemão nas mãos. Eu tenho as fotos dos funcionários da minha empresa cadastradas no meu banco de dados (sqlserver 2000) e agora eu estou tento que exporta-las para para arquivos .jpg(uma para cada foto) como eu posso fazer isso?
desde já muito obrigado!
desde já muito obrigado!
Djjunior
Curtir tópico
+ 0
Responder
Posts
30/05/2003
Akpjunior
veja o exemplo abaixo:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
i:=1;
While not IBQuery1.Eof do
begin
IBQuery1FT_PRODUTO.SaveToFile(´D:\Documents and Settings\JRAKP\Desktop\´ + FormatFloat(´00000´, i) + ´.bmp´);
Inc(i);
IBQuery1.Next;
end;
end;
sendo q o campo ft_produto é o campo blob do ´interbase´, não sei se deve funcionar da mesma forma pro SQLServer....
espero ter ajudado...
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
i:=1;
While not IBQuery1.Eof do
begin
IBQuery1FT_PRODUTO.SaveToFile(´D:\Documents and Settings\JRAKP\Desktop\´ + FormatFloat(´00000´, i) + ´.bmp´);
Inc(i);
IBQuery1.Next;
end;
end;
sendo q o campo ft_produto é o campo blob do ´interbase´, não sei se deve funcionar da mesma forma pro SQLServer....
espero ter ajudado...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)