(Resolvido) Armazenar foto Sql Server

[Alberto Mota]

Prezados colegas, o código abaixo roda perfeito quando o banco de dados é access,

No sql server da o seguinte erro:

unknown picture file extension (.jpg)

Segue o código:

var
foto1,guardafoto : string;
Begin
with TblEmp do
Begin
guardafoto := inttostr(TblEmp.FieldByName('codigoEmp').AsInteger);
if not(fileexists('C:\folha\fotos\'+guardafoto+'.jpg')) then
begin 
foto1 := ('C:\folha\20.jpg');
end else
foto1 := ('C:\folha\'+guardafoto+'.jpg');
DbImage1.Picture.loadfromfile(foto1);

Desde já obrigado.

Editado Maio 1, 2010 por Douglas_Soares
Adição de tag code

[Douglas Soares]

Creio que você está trocando os caminhos uma hora você poe C:\folha\ e outra C:\folha\fotos, posso estar enganado...... outra coisa, você está fazendo uma coisa sem sentido ao transformar um inteiro em string de uma tabela sendo que se pode obter o valor string diretamente dela... tente assim:

var
foto1,guardafoto : string;
Begin
with TblEmp do
Begin
guardafoto := TblEmp.FieldByName('codigoEmp').AsString;
if fileexists('C:\folha\fotos\'+guardafoto+'.jpg') then
begin
foto1 := ('C:\folha\fotos\'+guardafoto+'.jpg');
DbImage1.Picture.loadfromfile(foto1);
end else
foto1 := ('C:\folha\fotos\20.jpg');

Abraços

[Alberto Mota]

Prezado Douglas, obrigado por responder

Alterei conforme sugeriu, porem o erro continua o mesmo.

[Douglas Soares]

Faça um debug pra ver se está passando alguma informação errada...

var
foto1,guardafoto : string;
Begin
with TblEmp do
Begin
guardafoto := TblEmp.FieldByName('codigoEmp').AsString;
ShowMessage('guardafoto: ' + guardafoto);
ShowMessage('caminho completo: ' + 'C:\folha\fotos\'+guardafoto+'.jpg');
if fileexists('C:\folha\fotos\'+guardafoto+'.jpg') then
begin
foto1 := ('C:\folha\fotos\'+guardafoto+'.jpg');
ShowMessage(foto1);
DbImage1.Picture.loadfromfile(foto1);
end else
foto1 := ('C:\folha\fotos\20.jpg');

[Alberto Mota]

Infelizmente Douglas, o código parece estar ok.

Fiz o debug e o mesmo erro:

unknown picture file extension (.jpg)

A mensagem diz: Arquivo de extensão de imagem desconhecida(.jpg)

E como disse antes, usando o mesmo código num sistema em Access, roda perfeito.

Um abraço.

[Alberto Mota]

Douglas, consegui resolver.

Alterei a extensão para bmp e rodou ok.

Obrigado.

Segue o código:

var

foto1 : string;

guardafoto : string;

Begin

with TblEmp do

Begin

guardafoto := inttostr(TblEmp.FieldByName('codigoEmp').AsInteger);

if not(fileexists('C:\folha\fotos\'+guardafoto+'.bmp')) then

begin

foto1 := 'C:\folha\fotos\2010.bmp';

end else

foto1 := 'C:\folha\fotos\'+guardafoto+'.bmp';

DbImage1.Picture.loadfromfile(foto1);

[Douglas Soares]

Certo, mas você tinha a unit Jpeg declarada? talvez seja esse o problema com jpg...

[Alberto Mota]

Douglas, realmente não tinha a use jpeg.

Coloquei e aceita imagens jpg.

E com o código original tudo beleza.

Mais uma vez, valeu.