TimKellner - Do 31.01.08 22:22
Titel: Indy Server / Client Problem
Hallo Leute,
ich habe mal wieder ein Problem und zwar habe ich eine kleine Client Server anwendung geschrieben.
Auf dem Server gibt es drei ausgaben -1, -1 und -1 der Response ist auch im Server richtig, wenn ich das ganze in einem String speichere.
Auf dem Client kommt jedoch -1, . und -1 an ich kann jedoch nicht verstehen warum. Kann einer von euch mir helfen?
Client
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure TFM_Main.CheckStatus;
begin
CheckConnection;
IdTCPClient1.Writeln('serverstatus');
Response := IdTCPClient1.ReadLn;
IdTCPClient1.Writeln('lzstatus');
Response := Response + IdTCPClient1.ReadLn;
IdTCPClient1.Writeln('jfstatus');
Response := Response + IdTCPClient1.ReadLn;
ShowMessage(Response);
end; |
Server
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
| procedure TFM_Server.RemoteControlServerStatusCommand(ASender: TIdCommand);
begin
ASender.Response.Add(BoolToStr(ServerStatus));
Response := ASender.Response[0];
ASender.SendReply;
end;
procedure TFM_Server.RemoteControlLZStatusCommand(ASender: TIdCommand);
begin
ASender.Response.Add(BoolToStr(LZStatus));
Response := Response + ASender.Response[0];
ASender.SendReply;
end;
procedure TFM_Server.RemoteControlJFStatusCommand(ASender: TIdCommand);
begin
ASender.Response.Add(BoolToStr(JFStatus));
Response := Response + ASender.Response[0];
ASender.SendReply;
end;
procedure TFM_Server.RemoteControlDisconnect(AThread: TIdPeerThread);
begin
ShowMessage(Response);
end; |
Ich kann mir aus dem ganzen leider keinen reim raus machen.
Danke schonmal Tim
Moderiert von 
Narses: Tiepvelher im Titel korrigiert