Registriert seit: 21. Feb 2008
21 Beiträge
|
Ini Problem, wo liegt der Fehler?
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...
|
|
Zitat
|