Regsistrierungs Assistent

[T.E.]

Zitat:

Zitat von Helmi

Zitat:

Zitat von T.E.

Du hast wahrscheinlich wahrscheinlich nicht auf hier geklickt, denn sonst müsste das eigentlich funktionieren...;-)

Nichts desto trotz kann man doch keine Meldung ohne Text ausgeben!!!!

Da kann ich leider auch nichts für, denn die Indy Komponenten erwarten eine Eingabe, und wenn Host /Port /Benutzername /Passwort fehlt dann gibt das halt einen Fehler.

[T.E.]

So jetzt habe ich (hoffentlich) alle deine fehler ausgebügelt. Also die Neue version ist im ersten Thread zum download bereit!

HINWEIS: Um den Assitenten zu testen MÜSSEN beide Programme heruntergeladen werden und es MUSS erst beim Assistenten für die Benutzerangaben alles ausgefüllt werden! sonst funktioniert das leider noch nicht :???:

Gruß T.E.

[Helmi]

Zitat:

Zitat von T.E.

Zitat:

Zitat von Helmi

Reg2.jpg: Der Fehler besteht weiterhin: Bei Klick auf den Button "Bearbeiten" wird in allen Feldern das Wort "Wert" eingefügt, warum?

Der Fehler besteht nur wenn du zuvor nichts eingegeben hast!

Zitat:

Zitat von Helmi

Reg4.jpg: Was sind das für 3 schwarze Balken? Ausserdem, für was ist das Feld über den Buttons?

Hast du vielleicht keine Angaben gemacht, als du den Assistenten für den Regsitrierungs Assitenten bentuzt hast? :angel:

Jetzt hab ich was eingegeben, aber die Balken bleiben, aber ich weiss auch warum. Bei "Sie haben noch Fragen,..."-Checkbox hab ich nix gemacht und drunter auch nix eingegeben (warum auch - ich hab keine Fragen). Aber die Balken sind da!

[T.E.]

komisch aber bei mir hab ich auch nichts dort eingegeben und er zeigt das nicht an!?! :gruebel:

[Helmi]

Zitat:

Zitat von T.E.

komisch aber bei mir hab ich auch nichts dort eingegeben und er zeigt das nicht an!?! :gruebel:

Dann schau dir mal reg6.jpg an.
Wie gesagt, die Checkbox ist false und im Feld drunter nichts eingegeben, aber 3 Balken sind da bei den Fragen

[Edit]
selbst mit eingegebenen Text kommen die Balken (siehe reg7.jpg)

[T.E.]

Es tu mir leid aber guck dir mal meinen screenshot an da ist das nicht!!

[Helmi]

zeig mal den code der dahinter steckt

[T.E.]

ok hier hast du den code für die seite mit den fragen:

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type
  TForm3 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    StatusBar1: TStatusBar;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Image1: TImage;
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

uses Unit2, Unit4, Unit5;

{$R *.dfm}

procedure TForm3.Button2Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
  Form2.show;
  Form3.Visible := false;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
  Form4.show;
  Form3.Visible := false;
end;

procedure TForm3.CheckBox5Click(Sender: TObject);
begin
  memo1.Enabled := true;
end;

procedure TForm3.CheckBox1Click(Sender: TObject);
begin
  form4.memomsg.Lines.Text := 'Tst';
end;

procedure TForm3.CheckBox2Click(Sender: TObject);
begin
  if checkbox2.Checked = true then
  begin
    Form3.Edit2.text := 'Der Benutzer möchte am Programm zur Verbesserung der Benutzerfreundlichkeit teilnehmen!';
  end else
  begin
    Form3.Edit3.Text := ' ';
  end;
end;

procedure TForm3.CheckBox3Click(Sender: TObject);
begin
  if checkbox3.Checked = true then
  begin
    Edit3.Text := 'Der Benutzer möchte über Updates/neue Versionen informiert werden!';
  end else
  begin
    Edit3.text := ' ';
  end;
end;

procedure TForm3.CheckBox4Click(Sender: TObject);
begin
  if checkbox4.Checked = true then
  begin
    Edit4.Text := 'Der Benutzer möchte über andere Produkte informiert werden!';
  end else
  begin
    edit4.Text := ' ';
  end;
end;

end.

[T.E.]

Und dies ist der Code des Formulars, das dir als letztes angezeigt wird!

Delphi-Quellcode:

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.

Und wo ich hier gerade den Quellcode gepostet habe, kann mir vielleicht noch mal jemand sagen,wie ich die Priorität auf ganz hoch verändern kann?

[T.E.]

Also um das ganze etwas besser verständlich zumachen: Den Code zum versenden der E-Mails mit den Indy-Komponenten habe ich einfach auf mein Programm umgeschrieben, und ich möchte auch noch darauf hinweisen, das das Programm sowohlauf meinem anderen Rechner, als auch auf dem Rechner von einem Freund einwandfrei funktioniert; was allerdings nicht die Ergebnisse mit den Balken erklärt! :coder2: