gt;gt;gt;gt; Converter TXT para HTML ou PDF lt;lt;lt;
Será que e possivel fazer um rotina em DELPHI 7, para converter um arquivo texto (ASC II) para HTML ou PDF?
Grato a quem puder ajudar,
Mardônio Cavalcante
Grato a quem puder ajudar,
Mardônio Cavalcante
Mardônio
Curtidas 0
Respostas
Carnette
10/07/2003
[quote:02ba517f2f=´Mardônio´]Será que e possivel fazer um rotina em DELPHI 7, para converter um arquivo texto (ASC II) para HTML ou PDF?
Grato a quem puder ajudar,
Mardônio Cavalcante[/quote:02ba517f2f]
Aqui tem o inicio...O Resto é por sua imaginação...Se, não quiser usar o exemplo...Vai no Site www.torry.net...Lá deve ter algum componente FREE para exportação no formato Html ou PDF
[b:02ba517f2f]Gerando um arquivo HTML[/b:02ba517f2f]
AssignFile(Arq, ´nomearq.html´);
Rewrite(Arq);
Writeln(Arq, ´<html>´);
Writeln(Arq, ´<head>´);
Writeln(Arq, ´<title>SAAE S&o Leopoldo - RS</title>´);
Writeln(Arq, ´</head>´);
Writeln(Arq, ´<body bgcolor=´#ffffff´ text=´0000A0´>´);
Writeln(Arq, ´<div align=´center´>´);
Writeln(Arq, ´<table border=0 width=´100¬´>´);
Writeln(Arq, ´<tr><td colspan=´4´ align=´center´ bgcolor=´0080FF´>´);
Writeln(Arq, ´<font size=3 face=´verdana´ color=´#ffffff´>´);
Writeln(Arq, ´<b>Lancamento de Conv&nio</b><br></font></td></tr>´);
Writeln(Arq, ´<tr><td colspan=´4´ align=´center´>´);
Writeln(Arq, ´</font></td></tr></table></div></body></html>´);
CloseFile(Arq);
Grato a quem puder ajudar,
Mardônio Cavalcante[/quote:02ba517f2f]
Aqui tem o inicio...O Resto é por sua imaginação...Se, não quiser usar o exemplo...Vai no Site www.torry.net...Lá deve ter algum componente FREE para exportação no formato Html ou PDF
[b:02ba517f2f]Gerando um arquivo HTML[/b:02ba517f2f]
AssignFile(Arq, ´nomearq.html´);
Rewrite(Arq);
Writeln(Arq, ´<html>´);
Writeln(Arq, ´<head>´);
Writeln(Arq, ´<title>SAAE S&o Leopoldo - RS</title>´);
Writeln(Arq, ´</head>´);
Writeln(Arq, ´<body bgcolor=´#ffffff´ text=´0000A0´>´);
Writeln(Arq, ´<div align=´center´>´);
Writeln(Arq, ´<table border=0 width=´100¬´>´);
Writeln(Arq, ´<tr><td colspan=´4´ align=´center´ bgcolor=´0080FF´>´);
Writeln(Arq, ´<font size=3 face=´verdana´ color=´#ffffff´>´);
Writeln(Arq, ´<b>Lancamento de Conv&nio</b><br></font></td></tr>´);
Writeln(Arq, ´<tr><td colspan=´4´ align=´center´>´);
Writeln(Arq, ´</font></td></tr></table></div></body></html>´);
CloseFile(Arq);
GOSTEI 0