![]() |
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. |
Re: Regsistrierungs Assistent
was registriert er denn ?
büdde bissl mehr input.. und vielleicht nen screenshot dazu ^^ gruß reli |
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. |
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. |
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. |
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: |
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). |
Re: Regsistrierungs Assistent
Zitat:
|
Re: Regsistrierungs Assistent
Zitat:
|
Re: Regsistrierungs Assistent
Zitat:
|
Re: Regsistrierungs Assistent
das ist schlecht, :gruebel: denn bei mir funzt das... mal sehen werd meine version mal überarbeiten!!
Gruß T.E. |
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 |
Re: Regsistrierungs Assistent
Zitat:
|
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. |
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. |
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? |
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: |
Re: Regsistrierungs Assistent
Zitat:
|
Re: Regsistrierungs Assistent
Zitat:
|
Re: Regsistrierungs Assistent
Zitat:
Zitat:
|
Re: Regsistrierungs Assistent
Zitat:
|
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. |
Re: Regsistrierungs Assistent
Zitat:
|
Re: Regsistrierungs Assistent
komisch aber bei mir hab ich auch nichts dort eingegeben und er zeigt das nicht an!?! :gruebel:
|
Re: Regsistrierungs Assistent
Liste der Anhänge anzeigen (Anzahl: 2)
Zitat:
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) |
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!!
|
Re: Regsistrierungs Assistent
zeig mal den code der dahinter steckt
|
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. |
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:
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?
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. |
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:
|
Re: Regsistrierungs Assistent
Hallo,
hier ist der Fehler:
Delphi-Quellcode:
es muss heissen:
Form3.Memo1.Text + #13#10#10#13#10#13 //<---
Delphi-Quellcode:
du kannst die Balken in deiner Textdatei sehen (Ihre Benutzerangaben im Registrierungs-Assistenten.txt).
Form3.Memo1.Text + #13#10#13#10#13#10
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; |
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)! |
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 |
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? |
Re: Regsistrierungs Assistent
nein jetzt nicht mehr
|
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