Fórum Problema ao exportar do banco de dados para o html #335511
02/01/2007
0
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
Curtir tópico
+ 0Posts
02/01/2007
Aroldo Zanela
JPG está sendo criado (instanciado) dentro do laço while sem ser destruído posteriormente.
Gostei + 0
02/01/2007
Gigatel
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
02/01/2007
Gigatel
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
02/01/2007
Gigatel
Gostei + 0
03/01/2007
Gigatel
vlw t+
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)