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...