Ini Problem, wo liegt der Fehler?

[FileOwner]

Wo liegt der Fehler ich sitz schon seit ner Stunde drann und komm nich weiter

Delphi-Quellcode:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var ini: TIniFile;
begin
 ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
    'server.ini');

    ini.WriteString('Connection','ServerIP',Form2.ClientSocket1.Host);
    ini.WriteString('Connection','Port',inttostr(Form2.ClientSocket1.Port));
    ini.WriteString('User','Nickname',Nickname);
    ini.Free;
end;

procedure TForm2.FormShow(Sender: TObject);
var ini: TIniFile;
begin
  ini:=TIniFile.Create('server.ini');
  try
  clientsocket1.Host:=ini.Readstring('Connection','ServerIP', '');
  Nickname:=ini.Readstring('User','Nickname', '');
  clientsocket1.Port:=ini.ReadInteger('Connection','Port',0);
  finally
    ini.free;
    sleep(450);
    Timer4.Enabled := true;
end;

INIFILE:

[Connection]
ServerIP=192.168.0.133
Port=99
[User]
Nickname=Oo



Bitte helft mir

[DeddyH]

Außer, dass evtl. 2 verschiedene Pfade (und keine try-finally-Blöcke) benutzt werden, fällt mir nichts auf.

[mkinzler]

Was geht nicht, das Erzeugen oder das Einladen?

[Matze]

Hallo,

was funktioniert denn nicht?

Du solltets übrigens generell absolute Pfaden nutzen, da das Arbeitsverzeichnis nicht zwangsläufig dein Programmverzeichnis ist. Relative und absolute Pfade zu mischen ist sowieso nicht sinnvoll.

Edit: Mist, Deddy ist heute verdammt schnell. *g*

[toms]

Hallo, vielleicht greifst du nicht auf dieselbe Ini zu.
Im Create(...) schreibst du einmal den vollen Pfad und einmal nicht.

[DeddyH]

[OT] Matze, ich bin auch ganz erstaunt :D [/OT]

[bigben37]

Zitat:

Delphi-Quellcode:

 clientsocket1.Port:=ini.ReadInteger('Connection','Port',0);

Kann es sein, dass es

Delphi-Quellcode:

clientsocket1.Port:=StrToInt(ini.ReadString('Connection', 'Port',''));

heißen muss, da du es auch als String speicherst?

[DeddyH]

Hallo bigben, das ist reine Interpretationssache, in einer Ini stehen immer Strings.

[Die Muhkuh]

Nach dem finally-Block fehlt noch ein end.

@bigben:
Biberach (Baden) oder Biberach an der Riß?

[mkinzler]

Oder (HN-)Biberach (Württemberg)

[bigben37]

@DeddyH

ok, das wusste ich nicht

@Die Muhkuh

[OT]Biberach(Baden)[/OT]

[Die Muhkuh]

Zitat:

Zitat von bigben37

[OT]Biberach(Baden)[/OT]

[OT] Ein Fast-Nachbar :mrgreen: *Vom "Berg" runterwink :hi: *[/OT]

[SirThornberry]

Hallo FileOwner, gib deinem Beitrag bitte einen aussagekräftigen Titel :) Das hat den Vorteil das alle sofort wissen worum es hier geht und somit die Leute die Ahnung vom Thema haben es auch anschauen. Zudem hat es den Vorteil das andere mit dem gleichen Problem später über die Suchfunktion auch schneller dieses Thema hier finden und somit auch die Lösung.

Zum ändern des Titels nutze einfach http://www.delphipraxis.net/template.../icon_edit.gif über dem ersten Beitrag von dir

[DeddyH]

Außerdem wäre es sinnvoll, den "Fehler" mal zu beschreiben (meckert der Compiler, macht das Prog nicht, was es soll...) :zwinker:

[Die Muhkuh]

Zitat:

Zitat von DeddyH

(meckert der Compiler, macht das Prog nicht, was es soll...) :zwinker:

Fehlerbeschreibung: Das Prog macht nicht, was es soll :mrgreen:

*SCNR*

[DP-Maintenance]

Dieses Thema wurde von "SirThornberry" von "Sonstige Fragen zu Delphi" nach "VCL / WinForms / Controls" verschoben.

[FileOwner]

Lag wohl scheinbar wirklich am Pfad, das ganze sieht jetzt so aus:

Delphi-Quellcode:

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var ini: TIniFile;
begin
 ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
    'c:\server.ini');

    ini.WriteString('Connection','ServerIP',Form2.ClientSocket1.Host);
    ini.WriteString('Connection','Port',inttostr(Form2.ClientSocket1.Port));
    ini.WriteString('User','Nickname',Nickname);
    ini.Free;
end;

procedure TForm2.FormShow(Sender: TObject);
var ini: TIniFile;
begin
  ini:=TIniFile.Create('c:\server.ini');
  try
  clientsocket1.Host:=ini.Readstring('Connection','ServerIP', '');
  Nickname:=ini.Readstring('User','Nickname', '');
  clientsocket1.Port:=ini.ReadInteger('Connection','Port',0);
  finally
    ini.free;
    Timer4.Enabled := true; end
end;

Nur jetzt taucht das Problem auf das die server.ini nicht gespeichert wird :(

Danke @ alle und das ihr auch Neulingen helft ;)

[Matze]

Hallo

Delphi-Quellcode:

ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
    'c:\server.ini');

Das ergibt dann ein Pfad wie C:\Programme\Projekt\c:\server.ini.
Das ist nicht das, was du willst. ;)

[Klaus01]

eventuell so:

Delphi-Quellcode:

ini:=TIniFile.create('c:\server.ini');

obwohl Du Dir da im klaren sein solltest, dass nicht unter jedem OS
etwas auf c:\ gespeichert werden kann.

Grüße
Klaus

[mkinzler]

Delphi-Quellcode:

ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'server.ini');

[Die Muhkuh]

Und wenn man es richtig richtig machen möchte, dann schreibt man das ganze in das Benutzerprofil, den dort hat der Benutzer Schreibrechte. :)

[SirThornberry]

Zitat:

Zitat von SirThornberry

Hallo FileOwner, gib deinem Beitrag bitte einen aussagekräftigen Titel :) Das hat den Vorteil das alle sofort wissen worum es hier geht und somit die Leute die Ahnung vom Thema haben es auch anschauen. Zudem hat es den Vorteil das andere mit dem gleichen Problem später über die Suchfunktion auch schneller dieses Thema hier finden und somit auch die Lösung.

Zum ändern des Titels nutze einfach http://www.delphipraxis.net/template.../icon_edit.gif über dem ersten Beitrag von dir

Bitte ignoriere diesen Beitrag nicht und halte dich entsprechend an die Forenregeln denen du bei der Anmeldungen zugestimmt hast. Dein jetziger Titel sagt nur aus "ini" was nicht wirklich aussagekräftig ist.