unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,IdMessage, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdMessageClient, IdSMTP, IdExplicitTLSClientServerBase,IdSMTPBase,
ComCtrls;
type
TForm4 =
class(TForm)
Button1: TButton;
Button2: TButton;
butnsendmail: TButton;
memomsg: TMemo;
Label1: TLabel;
Label2: TLabel;
smtpSendMail: TIdSMTP;
mesgMessage: TIdMessage;
ListBox1: TListBox;
StatusBar1: TStatusBar;
EEMail: TEdit;
Image1: TImage;
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure butnsendmailClick(Sender: TObject);
procedure smtpSendMailStatus(ASender: TObject;
const AStatus: TIdStatus;
const AStatusText:
String);
procedure FormCreate(Sender: TObject);
{ procedure FormCreate(Sender: TObject);}
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
procedure Status(AMsg:
string);
end;
var
Form4: TForm4;
implementation
uses INIFiles, Unit3, Unit2, Unit5, WinInet;
{$R *.dfm}
function IsConnectedToInternet : boolean;
begin
result := (InternetGetConnectedState(
nil, 0))
end;
procedure TForm4.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Application.Terminate;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
Form3.show;
Form4.Visible := false;
end;
procedure TForm4.FormShow(Sender: TObject);
begin
memomsg.text := '
Anrede: ' + Form2.Edit1.Text + #13#10#13#10 + '
Nachname: ' + Form2.edit2.text + #13#10#13#10 + '
Vorname: ' + Form2.Edit3.Text + #13#10#13#10 + '
E-Mailadresse: ' + Form2.Edit4.Text + #13#10#13#10 + '
Land: ' + Form2.Edit5.Text + #13#10#13#10 + '
Wohnort (freiwillig): ' + Form2.Edit6.text +
#13#10#13#10 + '
Produktname: ' + Form2.Edit7.Text + #13#10 + '
Version: ' + Form2.Edit8.text + #13#10#13#10 + '
Wo haben Sie das Produkt erworben und von wem: ' + #13#10 + Form2.Memo1.Text + #13#10#13#10#13#10 + '
Ihre Fragen: ' + #13#10#13#10 + Form3.Memo1.Text + #13#10#10#13#10#13 + Form3.Edit2.Text + #13#10 + Form3.edit3.Text + #13#10 + form3.Edit4.text + #13#10#13#10#13#10 + form2.Edit9.Text;
Form4.memomsg.Lines.SaveToFile('
C:\Temp\Ihre Benutzerangaben im Registrierungs-Assistenten.txt');
end;
procedure TForm4.butnsendmailClick(Sender: TObject);
var s :
string;
Ini: TIniFile;
begin
butnSendMail.Enabled := False;
try
with mesgMessage
do begin
Clear;
From.Text := Trim(Form2.EMail.text);
{Sender}
Recipients.Add.Text := Trim(Form4.EEMail.text);
{Empfänger}
Subject := Trim(Form2.edit4.text + '
hat ' + Form2.Edit7.text + '
Version ' + Form2.Edit8.text + '
registriert!' + Form2.Edit9.text);
Body.Assign(memomsg.Lines);
{Hier kommt die Nachricht hinein}
end;
with smtpSendMail
do begin
Host := Form2.Host.Text;
Username := Form2.Username.Text;
Password := Form2.Passwort.Text;
Port := 25;
Connect;
try
Send(mesgMessage);
finally Disconnect;
end;
end;
Status('
Completed');
finally butnSendMail.Enabled := True;
end;
s := '
Vielen Dank für Ihre Registrierung; Sie werden in kürze eine Registrierungsbestätigung in Ihrem E-Mail Postfach haben.';
ShowMessage(s);
close;
close;
end;
procedure Tform4.smtpSendMailStatus(ASender: TObject;
const AStatus: TIdStatus;
const AStatusText:
String);
begin
Status(AStatusText);
end;
procedure Tform4.Status(AMsg:
string);
begin
ListBox1.ItemIndex := ListBox1.Items.Add(AMsg);
// Allow the listbox to repaint
Application.ProcessMessages;
Application.ProcessMessages;
Application.ProcessMessages;
end;
{procedure TForm4.FormCreate(Sender: TObject);
begin
memomsg.Lines.Add(timetostr(time)+datetostr(date));
butnsendmail.Click;
end;
}
procedure TForm4.FormCreate(Sender: TObject);
var
Ini: TIniFile;
begin
try
Ini:=TIniFile.Create('
C:\Windows\System32\DataUs.rud');
Form4.EEMail.text := Ini.ReadString('
Empfänger','
Empfänger E-Mailadresse','
Wert')
finally
Ini.Free;
end;
if IsConnectedToInternet
then
StatusBar1.Panels[1].text := ('
Verbunden')
else
StatusBar1.Panels[1].Text := ('
nicht Verbunden-Bitte stellen Sie eine Internetverbindung her!')
end;
end.