Problema ao exportar do banco de dados para o html

Delphi

02/01/2007

opa..montei uma função que o programa gera um html para um determinda tabela, funciona assim..o programa coloca a tabela no 1º registro e daí sai gerando html para para cada tabela um a um cada registro vai ter um doc para ele, só que estes registros tem fotos, que quando executo a funçao quando chego no oitavo registro aparece um erro.

esta é o erro.
ecepicion class EconvertErro whit message "Cannot assing Tpicture to a TJPGImage.


este é o código
procedure T_FORM_VIZ_PC.Button3Click(Sender: TObject);
var
  linha: string;
  htmlfile: TextFile;
  Jpg: TJpegImage;
const
  wrap=#13+10;
begin
  BD_CADPC.First;
  while not BD_CADPC.Eof do
  begin
  Jpg:= TJpegImage.Create;
  Jpg.Assign(Image2.Picture);
  Jpg.SaveToFile(´C:\GS_HTM\´+Label12.Caption+´.jpg´);
  Jpg.Assign(Image3.Picture);
  Jpg.SaveToFile(´C:\GS_HTM\SCREEN´+Label12.Caption+´.jpg´);
//
  AssignFile(HtmlFile,´C:\GS_HTM\´+Label12.Caption+´.html´);
  Rewrite(HtmlFile);
  writeln(htmlfile, ´<html><head>´ + wrap +
    ´<title>´+ BD_CADPCGS_PC_NOME.Value + ´</title></head>´ + wrap +
    ´<body bgcolor="#426F42"text="CCCCCC" link="ffff33" vlink="ffffcc" alink="ffff00">´+ wrap +
    ´<center><h2>´+ BD_CADPCGS_PC_NOME.Value + ´ - ´ + IntToStr(BD_CADPCGS_PC_NCD.value) +´ ´+ BD_CONFIGGS_COF_TIPO_MIDIA.value +´</h2></center>´ + wrap +
    ´</body>´+ wrap +
    ´</html>´+ wrap);
//
  writeln(htmlfile, ´<br><br>´+ wrap +
    ´<center>´+ wrap +
    ´<table>´+ wrap +
    ´<table border="2" bordercolor="CCCCCC" width="400" height"400">´+ wrap +
    ´<tr>´+ wrap +
    ´<td>´+ wrap +
    ´<IMG SRC="´ + (Label12.Caption) + ´.jpg" ´+´width="230" height"150" border "1">´+ wrap +
    ´</td>´+ wrap +
    ´<td>´+ wrap +
    ´<IMG SRC="´ + ´SCREEN´+(Label12.Caption) + ´.jpg" ´+´width="400" height"400" border "1">´+ wrap +
    ´</TD>´+ wrap +
    ´</TR>´+ wrap +
    ´<td>´+ wrap +
    ´<font face="Tahoma,verdana,arial">´+ wrap +
    ´<h6>´+ (BD_CADPCGS_PC_REQ.value)+´</h6>´+ wrap +
    ´<td>´+ wrap +
    ´<font face="Tahoma,verdana,arial">´+ wrap +
    ´<h6>´+ (BD_CADPCGS_PC_SINOPSE.value)+´</h6>´+ wrap +
    ´</tr>´+ wrap +
    ´</table>´+ wrap +
    ´</center>´+ wrap);
//
  writeln(htmlfile, linha);
  writeln(htmlfile, ´</tr>´);
  next;
  writeln (htmlfile, ´</body></html>´);
  CloseFile(htmlfile);
  BD_CADPC.Next;
end;
end;

flw t+


Gigatel

Gigatel

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

02/01/2007

Colega,

JPG está sendo criado (instanciado) dentro do laço while sem ser destruído posteriormente.


GOSTEI 0
Gigatel

Gigatel

02/01/2007

[quote:f8c38fd495=´Aroldo Zanela´]Colega,

JPG está sendo criado (instanciado) dentro do laço while sem ser destruído posteriormente.[/quote:f8c38fd495]

onde eu coloco este código ?


GOSTEI 0
Gigatel

Gigatel

02/01/2007

[quote:af117bb20b=´Aroldo Zanela´]Colega,

JPG está sendo criado (instanciado) dentro do laço while sem ser destruído posteriormente.[/quote:af117bb20b]

minhas imagens são todas em jpg num presciso recrial-as..como faço para salvar direto do image para um diretório especificado..


GOSTEI 0
Gigatel

Gigatel

02/01/2007

será que o problema num é porque a imagem talvez não seja jpg ? ou seja teria como comverter esta imagem para que podesse ficar padrão ?


GOSTEI 0
Gigatel

Gigatel

02/01/2007

exixte uma mandeira de converter o aquivo no image 2 caso ele não seja jpg ? se num, tiver jeito tem como o programa pular a figura ao inver de dá o erro ? o problema tá parecendo erro na figura, então tem como jogar direto no diretório ao invés de usar a função jpg ?
vlw t+


GOSTEI 0
POSTAR