Einzelnen Beitrag anzeigen

FileOwner

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

Re: Ini Problem, wo liegt der Fehler?

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