Enviar informações Tabel para HTML
Dai galera blzzz....
E Possivel enviar as informações de uma tabela temporaria para um
arquivo HTML e depois de enviado as informações da Temporaria abrilo automaticamente pelo Internet Explorer?
Se alguem tiver um exemplo ou uma ideia ....Obrigado.
[color=green:76fb247313]Título Editado[/color:76fb247313]
E Possivel enviar as informações de uma tabela temporaria para um
arquivo HTML e depois de enviado as informações da Temporaria abrilo automaticamente pelo Internet Explorer?
Se alguem tiver um exemplo ou uma ideia ....Obrigado.
[color=green:76fb247313]Título Editado[/color:76fb247313]
Fabianoqi
Curtidas 0
Respostas
Tuiobecker
07/01/2004
Olá esse codigo gera um arquivo html com os dados de uma tabela depois eh so vc abrir o arquivo
procedure TForm1.Button1Click(Sender: TObject);
var
i, j, w: integer;
linha: string;
htmlfile: TextFile;
const
wrap=#13+10; {estamos declarando esta constante com o valor da tecla enter ...}
begin
//cria um arquivo html com dados da tabela
AssignFile(HtmlFile, ´c:\htmlfile.html´);
Rewrite(HtmlFile);
writeln(htmlfile, ´<html><head>´ + wrap + {estamos gerando o inicio do arquivo html}
´<title>´+ Table1.name + ´</title>´ + wrap +
´</head>´ + wrap + ´<body bgcolor=´FFFBCB´>´ +
wrap + ´<table border =1>´ + wrap); {Nesse ponto iremos gerar a tabela html}
with table1 do
begin
for w:=0 to fieldCount - 1 do
writeln(htmlfile, ´<td>´ + (Fields[w].FieldName) + ´</td>´);
{Na linha de cima iremos gerar uma coluna em html para cada campo da table 1 com os seus nomes}
table1.first;
for i:=0 to recordcount-1 do
begin
linha:=´<tr>´+wrap;
for j:=0 to fieldcount-1 do
begin
linha:= linha + ´<td>´ + Fields[j].AsString + ´</td>´;
{Este c¢digo pega o valor dos campos de cada linha da table e joga na tabela de html}
end;
writeln(htmlfile, linha);
writeln(htmlfile, ´</tr>´);
next;
end;
end;
writeln(htmlfile, ´</body></html>´); {Finaliza o arquivo html}
CloseFile(htmlfile);
end;
flw
tuiobecker
procedure TForm1.Button1Click(Sender: TObject);
var
i, j, w: integer;
linha: string;
htmlfile: TextFile;
const
wrap=#13+10; {estamos declarando esta constante com o valor da tecla enter ...}
begin
//cria um arquivo html com dados da tabela
AssignFile(HtmlFile, ´c:\htmlfile.html´);
Rewrite(HtmlFile);
writeln(htmlfile, ´<html><head>´ + wrap + {estamos gerando o inicio do arquivo html}
´<title>´+ Table1.name + ´</title>´ + wrap +
´</head>´ + wrap + ´<body bgcolor=´FFFBCB´>´ +
wrap + ´<table border =1>´ + wrap); {Nesse ponto iremos gerar a tabela html}
with table1 do
begin
for w:=0 to fieldCount - 1 do
writeln(htmlfile, ´<td>´ + (Fields[w].FieldName) + ´</td>´);
{Na linha de cima iremos gerar uma coluna em html para cada campo da table 1 com os seus nomes}
table1.first;
for i:=0 to recordcount-1 do
begin
linha:=´<tr>´+wrap;
for j:=0 to fieldcount-1 do
begin
linha:= linha + ´<td>´ + Fields[j].AsString + ´</td>´;
{Este c¢digo pega o valor dos campos de cada linha da table e joga na tabela de html}
end;
writeln(htmlfile, linha);
writeln(htmlfile, ´</tr>´);
next;
end;
end;
writeln(htmlfile, ´</body></html>´); {Finaliza o arquivo html}
CloseFile(htmlfile);
end;
flw
tuiobecker
GOSTEI 0