Bom dia pessoal!
A minha dúvida é a seguinte:
Tenho umas fotos em BMP num banco de dados SQL em um banco de dados
e tenho que passa-las para outro banco de dados, só que este outro só
aceita JPG.
Arrumei uma função que faz essa conversão, só que
precisava
passar o resultado da consulta do banco antigo, no caso as fotos, e o
outro
parametro seria a consulta de insert no do banco novo.Ai é que está o
problema..
Testei a função e funciona, passando parametros fixos.Obs.: Estou
usando ADO.
Abaixo o trecho do código:
procedure ConverterBmpParaJPeg(ArquivoEntrada, ArquivoSaida : String);
//Função que faz a conversão
var
Bmp: TBitmap;
JPeg: TJPegImage;
begin
try
Bmp.LoadFromFile(ArquivoEntrada);
JPeg := TJPegImage.Create;
try
JPeg.CompressionQuality := 100;
JPeg.Assign(Bmp);
ChangeFileExt(ArquivoEntrada,'.jpg');
JPeg.SaveToFile(ArquivoSaida);
finally
JPeg.Free;
end;
finally
Bmp.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject); // Ao clicar no botão
var
I:Integer;
begin
ADOConecta;
while I < 10 do // Teste com 10 fotos selecionadas do banco
begin
ConverterBmpParaJPeg(qryLstEntFoto.Value[I], Destino no Banco
novo); //Foto do banco antigo, Caminho Destino novo
end;
No que vcs puderem me ajudar está ótimo,
valeu,
Thiago
--
<<<<< 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
