Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Erutan**

Hallo,

vielen Dank, vor allen Dingen an Bjoerk. Nein, das funktioniert leider auch nicht, d.h. es erzeugt die gleiche Fehlermeldung und das Programm stürzt so ab, daß ich erst die ganze IDE beenden und neu starten muß.

Zitat:

So, jetzt bin ich leicht verwirrt (Absturz [ ] Ja, [ ] Nein).

Okay. Ich sagte ja, daß das Programm nur beim Aufruf einiger Seiten abstürzt während es beim Aufruf anderer Seiten stabil läuft.

Es stürzt beispielsweise beim Aufruf der Seite

http://www.swissdelphicenter.ch/en/addtip.php (um dort probehalber das Feld bei Homepage ausfülen zu lassen) niemals ab; ist zumindest bisher noch nie abgestürzt.

Dagegen stürzt es beim Aufruf der Seite

http://openpr.de/news/einstellen.html manchmal und beim Aufruf der Seite

http://www.fair-news.de/pr_neu_2.php bzw.

http://www.firmenpresse.de/pressemit...entlichen.html sehr häufig ab. Die letzteren Seiten biegen die Anfrage allerdings auf eine Login-Seite um. Das spielt allerdings keine Rolle. Auch wenn ich direkt auf die Loginseite verlinke, stüzt das Programm hin und wieder ab.

Etwas was wirklich seltsam ist:
Gehe ich zuerst auf

http://www.swissdelphicenter.ch/en/addtip.php und erst dann auf die anderen Seiten, reduzieren sich die Abstürze deutlich.

Zitat:

Vielleicht gibst Du etwas Code oder (besser beides) eine URL dazu, die die Exception auslöst. Sonst können wir noch 'ne ganze Weile im Nebel stochern.

Gern. Ich füge hier einfach mal den gesamten Sourcecode ein, da ich mir nicht sicher bin, ob das Problem wirklich dort entsteht wo der Debugger es mir anzeigt. Möglich, daß einfach nur eine Einstellung falsch gewählt ist?...

Also, hier der gesamte Sourcecode:

zusammenfalten · markieren

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, OleCtrls, SHDocVw, StdCtrls, ComCtrls, IniFiles, Buttons;

type

  TForm1 = class(TForm)

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    TabSheet3: TTabSheet;

    GroupBox1: TGroupBox;

    GroupBox2: TGroupBox;

    Button1: TButton;

    WebBrowser1: TWebBrowser;

    Label1: TLabel;

    Button2: TButton;

    GroupBox3: TGroupBox;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    EditName: TEdit;

    EditEmail: TEdit;

    EditTelefon: TEdit;

    EditAgentur: TEdit;

    EditFirma: TEdit;

    MemoKontaktdaten: TMemo;

    MemoPortrait: TMemo;

    EditUsername: TEdit;

    EditPassword: TEdit;

    Button16: TButton;

    Button17: TButton;

    Button18: TButton;

    Button19: TButton;

    GroupBox4: TGroupBox;

    EditTitel: TEdit;

    Label11: TLabel;

    Label12: TLabel;

    EditUntertitel: TEdit;

    Label13: TLabel;

    MemoTeaser: TMemo;

    Label14: TLabel;

    EditWebseite: TEdit;

    Label15: TLabel;

    MemoHaupttext: TMemo;

    GroupBox5: TGroupBox;

    Label16: TLabel;

    EditKey1: TEdit;

    Label17: TLabel;

    EditKey2: TEdit;

    Label18: TLabel;

    EditKey3: TEdit;

    Label19: TLabel;

    EditKey4: TEdit;

    Button23: TButton;

    Button24: TButton;

    MemoKeys: TMemo;

    Button26: TButton;

    Button27: TButton;

    Button28: TButton;

    Button29: TButton;

    Button30: TButton;

    Button31: TButton;

    Button32: TButton;

    Button33: TButton;

    Button34: TButton;

    OpenDialogAlles: TOpenDialog;

    SaveDialogAlles: TSaveDialog;

    OpenDialogEmail: TOpenDialog;

    SaveDialogEmail: TSaveDialog;

    ButtonDatenSpeichern: TButton;

    ButtonDatenLaden: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    Button7: TButton;

    EditVeroeffentlichungOrt: TEdit;

    Label20: TLabel;

    ComboBoxKategorie: TComboBox;

    LabelKategorie: TLabel;

    EditBild: TEdit;

    SpeedButton1: TSpeedButton;

    Label21: TLabel;

    EditBildunterschrift: TEdit;

    Label22: TLabel;

    Button8: TButton;

    Button9: TButton;

    Button10: TButton;

    Button11: TButton;

    GroupBox6: TGroupBox;

    Label23: TLabel;

    EditOpenPRUser: TEdit;

    EditOpenPRPass: TEdit;

    EditPRInsideUser: TEdit;

    EditPRInsidePass: TEdit;

    Label24: TLabel;

    Button12: TButton;

    Button13: TButton;

    Label25: TLabel;

    EditPremiumpresseUser: TEdit;

    EditPremiumpressePass: TEdit;

    Label26: TLabel;

    EditFairNewsUser: TEdit;

    EditFairNewsPass: TEdit;

    EditOffenesPPUser: TEdit;

    EditOffenesPPPass: TEdit;

    Label27: TLabel;

    Label28: TLabel;

    Label29: TLabel;

    Label30: TLabel;

    Label31: TLabel;

    Label32: TLabel;

    Label33: TLabel;

    EditNachrichtenNetUser: TEdit;

    EditNachrichtenNetPass: TEdit;

    EditFirmenpresseUser: TEdit;

    EditFirmenpressePass: TEdit;

    EditLivePRUser: TEdit;

    EditLivePRPass: TEdit;

    EditPresseINUser: TEdit;

    EditPresseINPass: TEdit;

    EditPresseWSUser: TEdit;

    EditPresseWSPass: TEdit;

    EditInarUser: TEdit;

    EditInarPass: TEdit;

    Button14: TButton;

    Button15: TButton;

    Button20: TButton;

    Button21: TButton;

    Button22: TButton;

    Button35: TButton;

    Button36: TButton;

    Button37: TButton;

    Button38: TButton;

    Button39: TButton;

    Button40: TButton;

    Label34: TLabel;

    EditnordPRUser: TEdit;

    EditnordPRPass: TEdit;

    Button41: TButton;

    Button42: TButton;

    Button43: TButton;

    Label35: TLabel;

    EditDailyNetUser: TEdit;

    EditDailyNetPass: TEdit;

    Button44: TButton;

    Button45: TButton;

    Label36: TLabel;

    EditPTextUser: TEdit;

    EditPTextPass: TEdit;

    Button46: TButton;

    Button47: TButton;

    EditOnlinepresseinfoUser: TEdit;

    EditOnlinepresseinfoPass: TEdit;

    Label37: TLabel;

    Button48: TButton;

    Button49: TButton;

    Label38: TLabel;

    EditOpenbroadcastUser: TEdit;

    EditOpenbroadcastPass: TEdit;

    Button50: TButton;

    Label39: TLabel;

    Label40: TLabel;

    StaticText1: TStaticText;

    Button51: TButton;

    EditFreiePMUser: TEdit;

    EditFreiePMPass: TEdit;

    Label41: TLabel;

    Button52: TButton;

    Label42: TLabel;

    Label43: TLabel;

    EditVorname: TEdit;

    EditPLZ: TEdit;

    EditOrt: TEdit;

    EditStrasse: TEdit;

    Label44: TLabel;

    EditNr: TEdit;

    Label45: TLabel;

    Label46: TLabel;

    procedure WebBrowser1DocumentComplete(Sender: TObject;

      const pDisp: IDispatch; var URL: OleVariant);

    procedure WebBrowser1ProgressChange(Sender: TObject; Progress,

      ProgressMax: Integer);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button34Click(Sender: TObject);

    procedure ButtonDatenSpeichernClick(Sender: TObject);

    procedure ButtonDatenLadenClick(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button16Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure Button10Click(Sender: TObject);

    procedure Button11Click(Sender: TObject);

    procedure Button39Click(Sender: TObject);

    procedure Button40Click(Sender: TObject);

    procedure Button42Click(Sender: TObject);

    procedure Button43Click(Sender: TObject);

    procedure Button45Click(Sender: TObject);

    procedure Button49Click(Sender: TObject);

    procedure Button47Click(Sender: TObject);

    procedure Button51Click(Sender: TObject);

    procedure MemoKontaktdatenClick(Sender: TObject);

    procedure MemoKeysClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  ini: TIniFile;

  PWert: Integer;

implementation

{$R *.dfm}

function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean; 

var

  i, j: Integer; 

  FormItem: Variant; 

begin 

  Result := False; 

  //no form on document

  if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then 

  begin 

    Exit; 

  end; 

  //count forms on document 

  for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do 

  begin 

    FormItem := WebBrowser.OleObject.Document.forms.Item(I); 

    for j := 0 to FormItem.Length - 1 do 

    begin 

      try 

        //when the fieldname is found, try to fill out

        if FormItem.Item(j).Name = FieldName then

        begin 

          FormItem.Item(j).Value := Value; 

          Result := True; 

        end; 

      except 

        Exit; 

      end; 

    end;

  end; 

end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;

  const pDisp: IDispatch; var URL: OleVariant); 

begin

// Ab hier die Ausfüllfelder eintragen

// Ausfüllfelder für Swissdelphicenter

  FillForm(WebBrowser1, 'homepage', 'http://www.swissdelphicenter.ch') ;

  FillForm(WebBrowser1, 'email', EditEmail.Text);

  FillForm(WebBrowser1, 'headline', EditTitel.Text);

  FillForm(WebBrowser1, 'name', EditVorname.Text + ' ' + EditName.Text) ;

  FillForm(WebBrowser1, 'agency', EditAgentur.Text) ;

  FillForm(WebBrowser1, 'tel', EditTelefon.Text) ;

  FillForm(WebBrowser1, 'firma', EditFirma.Text) ;

  FillForm(WebBrowser1, 'titel', EditTitel.Text) ;

  FillForm(WebBrowser1, 'text', MemoHaupttext.Text) ;

  FillForm(WebBrowser1, 'ccontact', MemoKontaktdaten.Text) ;

  FillForm(WebBrowser1, 'portrait', MemoPortrait.Text) ;

  FillForm(WebBrowser1, 'shorttext', MemoTeaser.Text);

  FillForm(WebBrowser1, 'maintext', MemoHaupttext.Text);

  FillForm(WebBrowser1, 'company', EditFirma.Text) ;

  FillForm(WebBrowser1, 'adress', MemoKontaktdaten.Text) ;

  FillForm(WebBrowser1, 'web', EditWebseite.Text) ;

  FillForm(WebBrowser1, 'person', EditVorname.Text + ' ' + EditName.Text) ;  //PRInside

  FillForm(WebBrowser1, 'position', 'Pressesprecher(in)') ;     //PRInsie

  FillForm(WebBrowser1, 'ftitle', EditTitel.Text) ;      //Premiumpresse

  FillForm(WebBrowser1, 'fsubtitle', EditUntertitel.Text) ;     //Premiumpresse

  FillForm(WebBrowser1, 'fcity', EditVeroeffentlichungOrt.Text) ;     //Premiumpresse

  FillForm(WebBrowser1, 'feditor1', MemoHaupttext.Text) ;        //Premiumpresse

  FillForm(WebBrowser1, 'fuserkw1', EditKey1.Text) ;              //Pemiumpresse

  FillForm(WebBrowser1, 'fuserkw2', EditKey2.Text) ;             //Premiumpresse

  FillForm(WebBrowser1, 'fuserkw3', EditKey3.Text) ;              //Premiumpresse

  FillForm(WebBrowser1, 'link_zur_homepage', EditWebseite.Text) ;

  //FillForm(WebBrowser1, 'passwort', EditPassword.Text) ;

     FillForm(WebBrowser1, 'firma', EditFirma.Text) ;                    //Offenes Presseportal

     FillForm(WebBrowser1, 'vorname', EditVorname.Text) ;                    //Offenes Presseportal

     FillForm(WebBrowser1, 'nachname', EditName.Text) ;                    //Offenes Presseportal

     FillForm(WebBrowser1, 'stadt', EditOrt.Text) ;                    //Offenes Presseportal

     FillForm(WebBrowser1, 'email', EditEmail.Text) ;                    //Offenes Presseportal

     FillForm(WebBrowser1, 'telefon', EditTelefon.Text) ;                //Offenes Presseportal

     FillForm(WebBrowser1, 'url', EditWebseite.Text) ;                    //Offenes Presseportal

     FillForm(WebBrowser1, 'titel', EditTitel.Text) ;                    //Offenes Presseportal

     FillForm(WebBrowser1, 'text', MemoHaupttext.Text) ;                    //Offenes Presseportal

     FillForm(WebBrowser1, 'firmenportrait', MemoPortrait.Text) ;                    //Offenes Presseportal

     FillForm(WebBrowser1, 'bild_titel', EditBildunterschrift.Text) ;

  FillForm(WebBrowser1, 'titel', EditTitel.Text) ;

  FillForm(WebBrowser1, 'subtitle', EditUntertitel.Text) ;

  FillForm(WebBrowser1, 'hauptinhalt', MemoHaupttext.Text) ;

  FillForm(WebBrowser1, 'pressekontakt', MemoKontaktdaten.Text) ;

  FillForm(WebBrowser1, 'profil', MemoPortrait.Text) ;

  FillForm(WebBrowser1, 'edit[titel]', EditTitel.Text) ;

  FillForm(WebBrowser1, 'edit[taxonomy][tags][2]', MemoKeys.Text) ;

  FillForm(WebBrowser1, 'edit[body]', MemoHaupttext.Text) ;

  FillForm(WebBrowser1, 'post_titel', EditTitel.Text) ;

  FillForm(WebBrowser1, 'content', MemoHaupttext.Text) ;

  //Firmenpresse

  //Zugangsdaten

  if PWert=4 then begin //Starte Weiche für Premiumpresse

     FillForm(WebBrowser1, 'fusername', EditPremiumpresseUser.Text) ;          //Premiumpresse

     FillForm(WebBrowser1, 'fpassword', EditPremiumpressePass.Text) ;          //Premiumpresse

  end   //Ende Weiche für Premiumpresse

  else

  if PWert=5 then begin //Starte Weiche für Fair News

     FillForm(WebBrowser1, 'edit[name]', EditUsername.Text) ;

     FillForm(WebBrowser1, 'edit[pass]', EditPassword.Text) ;

  end

  else

  if PWert=3 then begin //Starte Weiche für PRInsie

     FillForm(WebBrowser1, 'password', EditPRInsidePass.Text) ;

  end

  else

  if PWert=7 then begin //Nachrichten.net

     FillForm(WebBrowser1, 'password', EditNachrichtenNetPass.Text) ;

     FillForm(WebBrowser1, 'username', EditNachrichtenNetUser.Text) ;

  end

  else

  if PWert=8 then begin //Firmenpresse

     FillForm(WebBrowser1, 'uname', EditFirmenpresseUser.Text) ;

     FillForm(WebBrowser1, 'pass', EditFirmenpressePass.Text) ;

   end;

end;

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,

  ProgressMax: Integer);

begin

  if ProgressMax = 0 then 

  begin 

    label1.Caption := '';

    Exit;

  end;

  try 

    if (Progress <> -1) and (Progress <= ProgressMax) then 

      label1.Caption := IntToStr((Progress * 100) div ProgressMax) + '% loaded...' 

    else 

      label1.Caption := ''; 

  except 

    on EDivByZero do Exit; 

  end; 

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 Webbrowser1.Navigate('http://www.swissdelphicenter.ch/en/addtip.php');

 PWert := 1;

  // Show the Titel of the currently active Webpage in the titlebar

  // Den Titel der aktuellen Webseite in der Titeleiste anzeigen

//  Caption := Webbrowser1.OleObject.Document.Title;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  PWert := 2;

  Webbrowser1.Navigate('http://openpr.de/news/einstellen.html');

end;

procedure TForm1.Button34Click(Sender: TObject);

begin

  PWert := 3;

  Webbrowser1.Navigate('http://www.pr-inside.com/de/release_new.htm');

end;

procedure TForm1.ButtonDatenSpeichernClick(Sender: TObject);

var ini: TIniFile;

begin

  ini:=TIniFile.Create('./userdat.ini');

  With ini do begin

  // Wenn das Formular geschlossen wird, werden diese Werte in die userdat.ini gespeichert

  WriteString('User1','Name',EditName.Text);

  WriteString('User1','Vorname',EditVorname.Text);

  WriteString('User1','Email',EditEmail.Text);

  WriteString('User1','Telefon',EditTelefon.Text);

  WriteString('User1','Agentur',EditAgentur.Text);

  WriteString('User1','Archiv',EditFirma.Text);

  WriteString('User1','Webseite',EditWebseite.Text);

  WriteString('User1','Username',EditUsername.Text);

  WriteString('User1','Password',EditPassword.Text);

  WriteString('User1','Strasse',EditStrasse.Text);

  WriteString('User1','Nr',EditNr.Text);

  WriteString('User1','PLZ',EditPLZ.Text);

  WriteString('User1','Ort',EditOrt.Text);

  WriteString('User1','OpenPRUser',EditOpenPRUser.Text);

  WriteString('User1','OpenPRPass',EditOpenPRPass.Text);

  WriteString('User1','PRInsideUser',EditPRInsideUser.Text);

  WriteString('User1','PRInsidePass',EditPRInsidePass.Text);

  WriteString('User1','PremiumpresseUser',EditPremiumpresseUser.Text);

  WriteString('User1','PremiumpressePass',EditPremiumpressePass.Text);

  WriteString('User1','FairNewsUser',EditFairNewsUser.Text);

  WriteString('User1','FairNewsPass',EditFairNewsPass.Text);

  WriteString('User1','OffenesPPUser',EditOffenesPPUser.Text);

  WriteString('User1','OffenesPPPass',EditOffenesPPPass.Text);

  WriteString('User1','NachrichtenNetUser',EditNachrichtenNetUser.Text);

  WriteString('User1','NachrichtenNetPass',EditNachrichtenNetPass.Text);

  WriteString('User1','FirmenpresseUser',EditFirmenpresseUser.Text);

  WriteString('User1','FirmenpressePass',EditFirmenpressePass.Text);

  WriteString('User1','LivePRUser',EditLivePRUser.Text);

  WriteString('User1','LivePRPass',EditLivePRPass.Text);

  WriteString('User1','PresseINUser',EditPresseINUser.Text);

  WriteString('User1','PresseINPass',EditPresseINPass.Text);

  WriteString('User1','PresseWSUser',EditPresseWSUser.Text);

  WriteString('User1','PresseWSPass',EditPresseWSPass.Text);

  WriteString('User1','InarUser',EditInarUser.Text);

  WriteString('User1','InarPass',EditInarPass.Text);

  WriteString('User1','nordPRUser',EditnordPRUser.Text);

  WriteString('User1','nordPRPass',EditnordPRPass.Text);

  WriteString('User1','DailyNetUser',EditDailyNetUser.Text);

  WriteString('User1','DailyNetPass',EditDailyNetPass.Text);

  WriteString('User1','PTextUser',EditPTextUser.Text);

  WriteString('User1','PTextPass',EditPTextPass.Text);

  WriteString('User1','OnlinepresseinfoUser',EditOnlinepresseinfoUser.Text);

  WriteString('User1','OnlinepresseinfoPass',EditOnlinepresseinfoPass.Text);

  WriteString('User1','OpenbroadcastUser',EditOpenbroadcastUser.Text);

  WriteString('User1','OpenbroadcastPass',EditOpenbroadcastPass.Text);

  WriteString('User1','FreiePMUser',EditFreiePMUser.Text);

  WriteString('User1','FreiePMPass',EditFreiePMPass.Text);

  //WriteLn('User1','Kontaktdaten',Memo1.Lines);

  //Wenn die Anwendung geschlossen wird, werden Fensterposition und Größe in die Ini geschrieben

  //  WriteInteger('Position','Links',Left);

  //  WriteInteger('Position','Oben',Top);

 //   WriteInteger('Position','Rechts',Width);

 //   WriteInteger('Position','Unten',Height);

end;

  ini.Free

end;

procedure TForm1.ButtonDatenLadenClick(Sender: TObject);

   var

    ini: TIniFile;

begin

    ini:=TIniFile.Create('./userdat.ini');

    with ini do begin

    // Wenn die Anwendung gestartet wird, werden diese Daten aus der userdat.ini geschrieben

    EditName.Text:=ReadString ('User1','Name','');

    EditVorname.Text:=ReadString ('User1','Vorname','');

    EditEmail.Text:=ReadString ('User1','Email','');

    EditTelefon.Text:=ReadString ('User1','Telefon','');

    EditAgentur.Text:=ReadString ('User1','Agentur','');

    EditFirma.Text:=ReadString ('User1','Archiv','');

    EditWebseite.Text:=ReadString ('User1','Webseite','');

    EditUsername.Text:=ReadString ('User1','Username','');

    EditPassword.Text:=ReadString ('User1','Password','');

    EditStrasse.Text:=ReadString ('User1','Strasse','');

    EditNr.Text:=ReadString ('User1','Nr','');

    EditPLZ.Text:=ReadString ('User1','PLZ','');

    EditOrt.Text:=ReadString ('User1','Ort','');

    EditOpenPRUser.Text:=ReadString ('User1','OpenPRUser','');

    EditOpenPRPass.Text:=ReadString ('User1','OpenPRPass','');

    EditPRInsideUser.Text:=ReadString ('User1','PRInsideUser','');

    EditPRInsidePass.Text:=ReadString ('User1','PRInsidePass','');

    EditPremiumpresseUser.Text:=ReadString ('User1','PremiumpresseUser','');

    EditPremiumpressePass.Text:=ReadString ('User1','PremiumpressePass','');

    EditFairNewsUser.Text:=ReadString ('User1','FairNewsUser','');

    EditFairNewsPass.Text:=ReadString ('User1','EditFairNewsPass','');

    EditOffenesPPUser.Text:=ReadString ('User1','OffenesPPUser','');

    EditOffenesPPPass.Text:=ReadString ('User1','OffenesPPPass','');

    EditNachrichtenNetUser.Text:=ReadString ('User1','NachrichtenNetUser','');

    EditNachrichtenNetPass.Text:=ReadString ('User1','NachrichtenNetPass','');

    EditFirmenpresseUser.Text:=ReadString ('User1','FirmenpresseUser','');

    EditFirmenpressePass.Text:=ReadString ('User1','FirmenpressePass','');

    EditLivePRUser.Text:=ReadString ('User1','LivePRUser','');

    EditLivePRPass.Text:=ReadString ('User1','LivePRPass','');

    EditPresseINUser.Text:=ReadString ('User1','PresseINUser','');

    EditPresseINPass.Text:=ReadString ('User1','PresseINPass','');

    EditPresseWSUser.Text:=ReadString ('User1','PresseWSUser','');

    EditPresseWSPass.Text:=ReadString ('User1','PresseWSPass','');

    EditInarUser.Text:=ReadString ('User1','InarUser','');

    EditInarPass.Text:=ReadString ('User1','InarPass','');

    EditnordPRUser.Text:=ReadString ('User1','nordPRUser','');

    EditnordPRPass.Text:=ReadString ('User1','nordPRPass','');

    EditDailyNetUser.Text:=ReadString ('User1','DailyNetUser','');

    EditDailyNetPass.Text:=ReadString ('User1','DailyNetPass','');

    EditPTextUser.Text:=ReadString ('User1','PTextUser','');

    EditPTextPass.Text:=ReadString ('User1','PTextPass','');

    EditOnlinepresseinfoUser.Text:=ReadString ('User1','OnlinepresseinfoUser','');

    EditOnlinepresseinfoPass.Text:=ReadString ('User1','OnlinepresseinfoPass','');

    EditOpenbroadcastUser.Text:=ReadString ('User1','OpenbroadcastUser','');

    EditOpenbroadcastPass.Text:=ReadString ('User1','OpenbroadcastPass','');

    EditFreiePMUser.Text:=ReadString ('User1','FreiePMUser','');

    EditFreiePMPass.Text:=ReadString ('User1','FreiePMPass','');

   // Memo1.Lines:=ReadString ('User1','Kontaktdaten','');

      //Fensterposition vom letzten Programmende verwenden

 //   Left := ReadInteger('Position','Links',Left);

 //   Top := ReadInteger('Position','Oben',Top);

 //   Width := ReadInteger('Position','Rechts',Width);

 //   Height := ReadInteger('Position','Unten',Height);

    end;

    ini.Free;

end;

procedure TForm1.Button16Click(Sender: TObject);

var

Datei: TextFile;

//text_datei: TextFile;

text_zeilen: string;

zeilen_num: Integer;

begin

if SaveDialogAlles.Execute then

   // MemoKontaktdaten.Lines.SaveToFile(SaveDialogAlles.FileName);

  //  MemoPortrait.Lines.SaveToFile(SaveDialogAlles.FileName);

  AssignFile(Datei, SaveDialogAlles.FileName);

  Rewrite(Datei);

  WriteLn(Datei, EditName.Text);

  WriteLn(Datei,EditEmail.Text);

  WriteLn(Datei,EditTelefon.Text);

  WriteLn(Datei,EditAgentur.Text);

  WriteLn(Datei,EditFirma.Text);

  WriteLn(Datei,EditWebseite.Text);

  WriteLn(Datei,EditUsername.Text);

  WriteLn(Datei,EditPassword.Text);

 // WriteLn(Datei,MemoKontaktdaten.Lines.DelimitedText);

//  WriteLn(Datei,MemoPortrait.Lines.DelimitedText);

  //--------------Test----------------------

   for zeilen_num := 0 to MemoKontaktdaten.Lines.Count -1 do

   begin

   //liest geänderte Zeilen in Variable

   text_zeilen := {IntToStr(zeilen_num) +} MemoKontaktdaten.Lines[zeilen_num];

   //schreibt in Datei Zeile für Zeile

   WriteLn(datei,text_zeilen);

   end; //for end

   for zeilen_num := 0 to MemoPortrait.Lines.Count -1 do

   begin

   //liest geänderte Zeilen in Variable

   text_zeilen := {IntToStr(zeilen_num) +} MemoPortrait.Lines[zeilen_num];

   //schreibt in Datei Zeile für Zeile

   WriteLn(datei,text_zeilen);

   end; //for end

  //------------Test Ende---------------------

  CloseFile(Datei);

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

  PWert := 7;

  Webbrowser1.Navigate('http://www.nachrichten.net/news/create');

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

   PWert := 8;

   Webbrowser1.Navigate('http://www.firmenpresse.de/pressemitteilung-veroeffentlichen.html');

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

   PWert := 9;

   Webbrowser1.Navigate('http://www.live-pr.com/neue-pressemeldung.htm');

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

   PWert := 10;

   Webbrowser1.Navigate('http://www.pressemitteilung.in/node/add/pressemeldung');

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

   PWert := 11;

   Webbrowser1.Navigate('http://pressemitteilung.ws/node/add/story');

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

   PWert := 12;

   Webbrowser1.Navigate('http://www.inar.de/wp-admin/post-new.php');

end;

procedure TForm1.Button39Click(Sender: TObject);

begin

   PWert := 13;

   Webbrowser1.Navigate('http://www.presse-kostenlos.de/press.exe?new=true');

end;

procedure TForm1.Button40Click(Sender: TObject);

begin

  PWert := 14;

  Webbrowser1.Navigate('http://www.nordpr.de/form/presseartikel-kostenlos-einstellen.html');

end;

procedure TForm1.Button42Click(Sender: TObject);

begin

   PWert := 15;

   Webbrowser1.Navigate('http://www.pressekat.de/index.php?_B=pm-erstellen-neul');

end;

procedure TForm1.Button43Click(Sender: TObject);

begin

  PWert := 16;

  Webbrowser1.Navigate('http://www.dailynet.de/anmeldung_pm.php');

end;

procedure TForm1.Button45Click(Sender: TObject);

begin

  PWert := 17;

  Webbrowser1.Navigate('http://www.ptext.de/user');

end;

procedure TForm1.Button49Click(Sender: TObject);

begin

  PWert := 19;

  Webbrowser1.Navigate('http://www.openbroadcast.de/publish.html');

end;

procedure TForm1.Button47Click(Sender: TObject);

begin

    PWert := 18;

    Webbrowser1.Navigate('http://www.onlinepresse.info/user/');

end;

procedure TForm1.Button51Click(Sender: TObject);

begin

    PWert := 20;

    Webbrowser1.Navigate('http://www.freie-pressemitteilungen.de/modules.php?name=Your_Account');

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

    PWert := 4;

    Webbrowser1.Navigate('http://www.premiumpresse.de/seite/pressemitteilung-erstellen/');

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

    PWert := 5;

    Webbrowser1.Navigate('http://www.fair-news.de/pr_neu_2.php');

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

   PWert := 6;

   Webbrowser1.Navigate('http://www.offenes-presseportal.de/artikel-schreiben.htm');

end;

procedure TForm1.MemoKontaktdatenClick(Sender: TObject);

begin

 MemoKontaktdaten.Text := EditVorname.Text + ' ' + EditName.Text + #13#10 + EditEmail.Text

 + #13#10 + EditStrasse.Text + ' ' + EditNr.Text + #13#10 + EditPLZ.Text

 + ' ' + EditOrt.Text + #13#10 + 'Telefon: ' + EditTelefon.Text ;

end;

procedure TForm1.MemoKeysClick(Sender: TObject);

begin

 MemoKeys.Text := EditKey1.Text + ', ' + EditKey2.Text + ', ' + EditKey3.Text + ', ' + EditKey4.Text ;

end;

end.

Für den Fall, daß es jemand selber ausprobieren will, habe ich die kompilierte Datei hochgeladen.

Grüße
Erutan

Einzelnen Beitrag anzeigen

AW: Floating Point division by zero