Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   Regsistrierungs Assistent (https://www.delphipraxis.net/93024-regsistrierungs-assistent.html)

T.E. 30. Mai 2007 13:49


Regsistrierungs Assistent
 
Liste der Anhänge anzeigen (Anzahl: 2)
Hallo!
Ich habe mal einen Registrierungs Assitenten geschrieben und suche jemanden, der den testet und bewertet. Und mir eventuell Verbesserungswvorschläge macht. Ihr findet den Assitenten mit Zubehör im Anhang.
Würde mich über möglichst viele Kommentare freuen!

Gruß T.E.

Relicted 30. Mai 2007 13:53

Re: Regsistrierungs Assistent
 
was registriert er denn ?
büdde bissl mehr input.. und vielleicht nen screenshot dazu ^^

gruß
reli

T.E. 30. Mai 2007 14:01

Re: Regsistrierungs Assistent
 
Liste der Anhänge anzeigen (Anzahl: 2)
Also eigentlich soll sich mit diesem Assitenten jemand, der deine Software registrieren soll/muss registrieren!

Ein Scrrenshot von der Version für meine Programme is im Anhang!

Gruß T.E.

T.E. 30. Mai 2007 15:07

Re: Regsistrierungs Assistent
 
Diese Version, die hier zum download ist, ist nur etwas anders aufgebaut; d.h. das Image links ist anders und der Text bei der Einleitung ist etwas anders.
Bei weiteren Fragen bitte melden.

Helmi 30. Mai 2007 15:13

Re: Regsistrierungs Assistent
 
Liste der Anhänge anzeigen (Anzahl: 4)
Hallo,

ich hab die zwei Softwaren mal geöffnet und da ist mir gleich auf gefallen, dass die Software:
"UserData.exe" rechts oben am Bildschirm hängt, und maximierbar ist.

[Edit UserData.exe]
Wenn man auf den Button "Bearbeiten" drückt, wird in allen Feldern, das Wort "Wert" eingefügt, warum?



Die Software: "Registrieren.exe" ist auch maximierbar.

Entweder du blendest (BorderStyle) den Maximieren-Button aus, oder du veränderst die Größe der Controls beim Maximieren mit.

[Edit]
Dann fällt auf, dass bei der Software "Registrieren.exe" beim durchklicken mit "Weiter" sich die Fenstergrößen ändern, ausserdem ist die CheckBox mit der Caption: "Sie haben noch Fragen, dann geben Sie die doch bitte hier ein:" zu weit links im Image drin (Reg2.jpg).

Im Reg1.jpg sieht man einen Positions- und Textfehler.
In Reg3.jpg sieht man ein paar komische Zeichen (wahrscheinlich weil ich in Reg1.jpg nicht eingegeben habe.)
Die Fehlermeldung von Reg4.jpg kommt, wenn man auf "fertig" klickt.

Gremlin 30. Mai 2007 15:17

Re: Regsistrierungs Assistent
 
Dialog Userdata:

Sieht ein wenig strange aus und es sind folgende Dinge aufgefallen:

- Tabreihenfolge nach unten, dann rechts, dann wieder nach unten
Besser: nach rechts, eins runter, nach rechts...
- Überschrift des Dialogs sollte "beschreibender" sein, Userdate kann alles bedeuten
Besser: Angaben zu ... oä.
- Die ollen Borland-Button Pics sind ein wenig aus der Mode, würd ich ganz weglassen
- Warum ist die Beschriftung für die letzte Eingabe rot und underlined?
Besser: Alle Angaben der Felder im gleichen Stil, wenn es wichtig ist vielleicht auf fsBold
- Die Reihenfolge der Buttons überarbeiten
Besser: Bearbeiten (* brauch man das? *), Speichern (* bzw. OK *), Abbrechen
- Die Meldungen am Ende "Mailadresse ok, dies und das ok,..." in einen Ausgabe zusammenfassen
- Maximize-Funktion führt zu unschönen Ergebnissen


Dialog Registrieren

- Sind das unterschiedliche Formulare? Nimm doch NoteBooks oder ein PageControl
- Maximize-Funktion führt zu unschönen Ergebnissen
- Das Logo der unterschiedlichen Seiten, sowie die Eingabekomponenten springen beim Wechsel
der Seiten. -> Alle auf fixe Positionen setzen.
- Die Buttons (unten) rechts aligned ausrichten, den Abstand verringern"
- Die Buttonreihenfolge auf <Zurück, Weiter> und dann Abbrechen setzen
- Die Texte allgemein überarbeiten, lesen sich ungewöhnlich
- Die Check-Option "...Haben Sie noch Fragen..." weglassen, einfach eine Überschrift zb.
"Haben Sie Fragen?" anzeigen und den Text eingeben lassen. Ist dieser leer, dann hat der
Anwender keine Fragen.
- Letzte Seiten mit Anzeige der gemachten Angaben. Ist unübersichtlich, Steuerzeichen werden
angezeigt '|'-Zeichen
- Beim letzten "Fertig" erscheint eine "Zugriffsverletzung an Adresse..."


Dialog E-Maildaten

- Maximize-Funktion führt zu unschönen Ergebnissen
- Dem Dialog 'E-Maildaten' eine bessere Caption geben
- Der Dialog enthält als Text zu viel "senden"
- Abbrechen fehlt
- Den Text "Sollten Sie Ihre Angaben nicht wissen oder eingeben wollen.." solltest du
anpassen


Du könntest die erstellten Daten verschlüsselt speichern und bei Programmstart einlesen.


So geschafft! Puh, sind aber schon viele unangenehme Dinge aufgefallen. :!:
Hast du diese Fehler selbst nicht bemerkt? :gruebel:

Helmi 30. Mai 2007 15:35

Re: Regsistrierungs Assistent
 
Liste der Anhänge anzeigen (Anzahl: 1)
da leider nur 4 Attachments möglich sind, muss ich einen neuen Beitrag schreiben:

Ich hab nämlich noch ein Reg5.jpg :-)

Wenn man auf das rote "hier" klickt, gehts nichts (keine Funktion).

T.E. 31. Mai 2007 13:35

Re: Regsistrierungs Assistent
 
Zitat:

Zitat von Helmi
Hallo,

ich hab die zwei Softwaren mal geöffnet und da ist mir gleich auf gefallen, dass die Software:
"UserData.exe" rechts oben am Bildschirm hängt, und maximierbar ist.

[Edit UserData.exe]
Wenn man auf den Button "Bearbeiten" drückt, wird in allen Feldern, das Wort "Wert" eingefügt, warum?



Die Software: "Registrieren.exe" ist auch maximierbar.

Entweder du blendest (BorderStyle) den Maximieren-Button aus, oder du veränderst die Größe der Controls beim Maximieren mit.

[Edit]
Dann fällt auf, dass bei der Software "Registrieren.exe" beim durchklicken mit "Weiter" sich die Fenstergrößen ändern, ausserdem ist die CheckBox mit der Caption: "Sie haben noch Fragen, dann geben Sie die doch bitte hier ein:" zu weit links im Image drin (Reg2.jpg).

Im Reg1.jpg sieht man einen Positions- und Textfehler.
In Reg3.jpg sieht man ein paar komische Zeichen (wahrscheinlich weil ich in Reg1.jpg nicht eingegeben habe.)
Die Fehlermeldung von Reg4.jpg kommt, wenn man auf "fertig" klickt.

Vielen dank für den Bericht werde mal versuchen die Fehler auszubügeln!!

T.E. 31. Mai 2007 14:09

Re: Regsistrierungs Assistent
 
Zitat:

Zitat von Helmi
da leider nur 4 Attachments möglich sind, muss ich einen neuen Beitrag schreiben:

Ich hab nämlich noch ein Reg5.jpg :-)

Wenn man auf das rote "hier" klickt, gehts nichts (keine Funktion).

aber das Fenster wird doch geschlossen, oder?

Helmi 31. Mai 2007 15:18

Re: Regsistrierungs Assistent
 
Zitat:

Zitat von T.E.
aber das Fenster wird doch geschlossen, oder?

Nein, es passiert gar nichts!

T.E. 31. Mai 2007 15:46

Re: Regsistrierungs Assistent
 
das ist schlecht, :gruebel: denn bei mir funzt das... mal sehen werd meine version mal überarbeiten!!
Gruß T.E.

Waldteufel 31. Mai 2007 16:16

Re: Regsistrierungs Assistent
 
Hallo.

Ich hab auch noch eine Anmerkung:

Im zweiten Screenshot steht oben "..., es sei denn, Sie sind als freiwillig markiert". Das "sie" sollte hier besser klein geschrieben werden, da es sonst eine Anrede und kein Pronomen ist (ich lasse mich nämlich weder ausfüllen, noch bin ich als freiwillig markiert. ;-) )

Gruß,
Waldteufel

T.E. 31. Mai 2007 16:45

Re: Regsistrierungs Assistent
 
Zitat:

Zitat von Waldteufel
Hallo.

Ich hab auch noch eine Anmerkung:

Im zweiten Screenshot steht oben "..., es sei denn, Sie sind als freiwillig markiert". Das "sie" sollte hier besser klein geschrieben werden, da es sonst eine Anrede und kein Pronomen ist (ich lasse mich nämlich weder ausfüllen, noch bin ich als freiwillig markiert. ;-) )

Gruß,
Waldteufel

Vielen Dank noch einmal, allerdings ist der fehler schon genannt worden :wink:

T.E. 1. Jun 2007 13:28

Re: Regsistrierungs Assistent
 
Also ich habe beide programm erst einmal überarbeitet und gebe euch hier die aktuelle version der beiden progs.
allerdings ist es bei registrieren.exe im moment nur möglich emails zu versenden, wenn vorher bei den E-Maildaten auf "hier" geklickt worden ist.
Die Neue Version gibt ist im Ersten Eintrag auffindbar!

Gruß T.E.

Helmi 1. Jun 2007 14:00

Re: Regsistrierungs Assistent
 
Hallo,

bitte lösche aus deinem letzten Thread die zwei Anhänge raus, und füge sie im ersten Thread ein und verweise im letzten Thread auf den ersten Thread
So ist immer die aktuellste Software im ersten Thread.

Helmi 1. Jun 2007 14:21

Re: Regsistrierungs Assistent
 
Liste der Anhänge anzeigen (Anzahl: 4)
Ich hab es mir nochmal angeschaut:

Reg1.jpg: Ist schön, dass du drauf hinweisst, dass es Felder gibt, die optional sind, aber es gibt keine Felder die als optional markiert sind. Ausserdem ist ein Schreibfehler drin (Feldre)

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

Reg3.jpg: Beim Klicken auf das rote "hier" wird das Fenster geschlossen, aber warum? - was willst du damit aussagen? - Ausserdem wäre es bestimmt besser, wenn du den Cursor z. B. zu einer zeigenden Hand änderst, wenn man über das rote "hier" mit der Maus fährt.

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

Helmi 1. Jun 2007 14:22

Re: Regsistrierungs Assistent
 
Liste der Anhänge anzeigen (Anzahl: 1)
Ich brauch noch nen Thread für meine Bilder :mrgreen:

Reg5.jpg: Ich wüsst zugern, was ich beim Klick auf den Button "fertig" falsch gemacht hab :mrgreen: :mrgreen: :mrgreen:

T.E. 1. Jun 2007 15:01

Re: Regsistrierungs Assistent
 
Zitat:

Zitat von Helmi
Ich brauch noch nen Thread für meine Bilder :mrgreen:

Reg5.jpg: Ich wüsst zugern, was ich beim Klick auf den Button "fertig" falsch gemacht hab :mrgreen: :mrgreen: :mrgreen:

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

Helmi 1. Jun 2007 15:02

Re: Regsistrierungs Assistent
 
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!!!!

T.E. 1. Jun 2007 15:15

Re: Regsistrierungs Assistent
 
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:

T.E. 1. Jun 2007 15:19

Re: Regsistrierungs Assistent
 
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. 1. Jun 2007 15:24

Re: Regsistrierungs Assistent
 
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 1. Jun 2007 16:59

Re: Regsistrierungs Assistent
 
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. 1. Jun 2007 17:02

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

Helmi 1. Jun 2007 17:10

Re: Regsistrierungs Assistent
 
Liste der Anhänge anzeigen (Anzahl: 2)
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. 1. Jun 2007 17:25

Re: Regsistrierungs Assistent
 
Liste der Anhänge anzeigen (Anzahl: 2)
Es tu mir leid aber guck dir mal meinen screenshot an da ist das nicht!!

Helmi 1. Jun 2007 17:28

Re: Regsistrierungs Assistent
 
zeig mal den code der dahinter steckt

T.E. 1. Jun 2007 17:30

Re: Regsistrierungs Assistent
 
Liste der Anhänge anzeigen (Anzahl: 1)
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. 1. Jun 2007 17:36

Re: Regsistrierungs Assistent
 
Liste der Anhänge anzeigen (Anzahl: 1)
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. 2. Jun 2007 14:13

Re: Regsistrierungs Assistent
 
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:

Helmi 2. Jun 2007 15:05

Re: Regsistrierungs Assistent
 
Hallo,

hier ist der Fehler:
Delphi-Quellcode:
Form3.Memo1.Text + #13#10#10#13#10#13 //<---
es muss heissen:
Delphi-Quellcode:
Form3.Memo1.Text + #13#10#13#10#13#10
du kannst die Balken in deiner Textdatei sehen (Ihre Benutzerangaben im Registrierungs-Assistenten.txt).


Aber wieso verwendest du Edits als Variablen?

Delphi-Quellcode:
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;

T.E. 2. Jun 2007 15:12

Re: Regsistrierungs Assistent
 
gut da habe ich dann ein #13 ausgelassen, das wird in meiner text datei aber nicht angezeigt!
Und ich hatte edits als variabelen benutzt, weil ich sonst nicht wusste, wieich das dort reinbringen kann...;-)

Also werde ich jetzt die neue version mal hochladen; mal sehen ob der fehler bei dir immer noch ist.


OK ihr könnt jetzt die leicht berichtigte verion testen (bitte)!

Helmi 2. Jun 2007 15:29

Re: Regsistrierungs Assistent
 
Liste der Anhänge anzeigen (Anzahl: 2)
Ich hab dir hier mal meine Text-Datei angehängt, dann kannst es sehen.

Du brauchst keine Edits verwenden um Strings von einer Form zur andern zu übertragen.
Verwende dazu besser String-Variablen, die im public-Abschnitt z. B. der Form3 definiert ist.

In der Form4 kannst du dann mit "Form3.<deinVariablenName> drauf zugreifen.

[Edit]

Und die Textdatei als pic

T.E. 2. Jun 2007 15:40

Re: Regsistrierungs Assistent
 
Liste der Anhänge anzeigen (Anzahl: 1)
also als ich eben deine textdatei geöffnet habe, waren da keine Symbole ode balken (siehe Bild) und ich habe nichts daran verändert!!
Ist das denn bei der neuen Version immer noch?

Helmi 2. Jun 2007 15:45

Re: Regsistrierungs Assistent
 
nein jetzt nicht mehr

T.E. 3. Jun 2007 20:11

Re: Regsistrierungs Assistent
 
Gut kann ich dann jetzt vielleicht noch ein Paar Meinungen hören, was den Sinn, den Nutzen,... angeht?
Würde mich jetzt nämlich über Kritik freuen!


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:12 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz