Criar Pagina em HTML atraves do DELPHI 7

6 de abril de 2009

Alguem pode me ajudar como eu faço isso

Pode ser um programa bem simples apenas que use esses seguintes objetos

index.xp · 6 de abril de 2009

sugiro que nao use o delphi uma vez que ele nao foi sequer pensado para isso... sugiro alguma linguagem baseada em .NET (c# entre outras)... mas se você entender de html... é simples... como HTML é só um texto você simplesmente concatena as strings que você quer...

Mog.Lucas · 6 de abril de 2009

Olá!

Pra fazer o que quer:

No evento OnClick do TButton:

procedure TForm1.Button1Click(Sender: TObject);
var
HTML:TStringList;
begin
HTML := TSTringList.Create;
HTML.Add('<html>');
HTML.Add('<title>'+Edit1.Text+'</title>');
HTML.Add('<body bgcolor=#FFFFFF link=#000000 vlink=#000000 alink=#B5B5B5>');
HTML.Add('<center>');
HTML.Add('<font size=6>'+Edit2.text+'</font>');
HTML.Add('<BR><BR>');
HTML.Add(Memo1.Text);
HTML.Add('</center>');
HTML.Add('</body>');
HTML.Add('</html>');
HTML.SaveToFile('C:\'+FormatDateTime('ddmmyy - hh mm ss', now)+'.htm');
HTML.Free;
end;