Einzelnen Beitrag anzeigen

FileOwner

Registriert seit: 21. Feb 2008
21 Beiträge
 
#1

Ini Problem, wo liegt der Fehler?

  Alt 27. Mär 2008, 20:42
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
Wer aus dem 10. Stock springt, dem geht´s bis zum 1. auch recht gut...
  Mit Zitat antworten Zitat