урок на делфи 45 - выгрузить в html, в php


задание на delphi. отправить данные на сайт


unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Memo1: TMemo;
Memo2: TMemo;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
{описание тут https://youtu.be/El2J8gDkctc}
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
shablon,table:TStringList;
begin
shablon:=TStringList.Create;
shablon.LoadFromFile('shablon.php');
shablon.Insert(78,'
');
shablon.Insert(79,(Edit1.Text));
table:=TStringList.Create;
table.Add('');
table.Add('');
table.Add('');
table.Add('');
table.Add('');
table.Add('');
table.Add('');
table.Add('');
table.Add('
'+AnsiToUtf8(Edit1.Text)+'
'+AnsiToUtf8(Edit2.Text)+' '+AnsiToUtf8(Edit3.Text)+'
'+AnsiToUtf8(Memo1.Text)+''+AnsiToUtf8(Memo2.Text)+'
');
shablon.Insert(80,table.Text);
shablon.SaveToFile('shablon_new.php');
FreeAndNil(shablon);
FreeAndNil(table);
end;
end.



Скачать