Entwickler-Ecke
Sonstiges (Delphi) - MessageBox leer...
arcitC|Crash - Di 02.08.05 22:34
Titel: MessageBox leer...
Abend,
also ich haben einen Server gemacht, der unsichtbar ist und wenn man ihm nun Nachrichten mit "sendText" beim Clienten schickt, dann erscheint beim Server nur eine leere MessageBox, wahrscheinlich hat das wohl irgend etwas damit zu tun, dass der Server invisible ist...ich weiß es aber nicht.
Gibt es eine Möglichkeit, wie ich die Nachricht sehen kann?
arcitC|Crash - Di 02.08.05 23:35
Nagut^^
Aber viel ist das nicht:
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:
| procedure TForm1.btnPORTClick(Sender: TObject);
begin
Server.Port := STRtoINT(edPort.Text);
end;
procedure TForm1.ServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
IF socket.ReceiveText = '%123456Shutdown123456%' then
ExitWindowsEx(EWX_REBOOT, 0)
Else
Showmessage(socket.ReceiveText);
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form1.Hide;
end;
end. |
Client:
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.btnSendClick(Sender: TObject);
begin
Client.socket.SendText(edSend.Text);
end; |
Moderiert von 
AXMD: Code- durch Delphi-Tags ersetzt.
AXMD - Di 02.08.05 23:49
Zeile 12: Bau doch einfach ein if ein, das dir leere Strings ('') nicht ausgibt... ;)
AXMD
arcitC|Crash - Di 02.08.05 23:54
Ja aber bringt das dann was? Ich mein, dann wird bestimmt nichtmal die Dialogbox angezeigt. Oder wie?
chrissivo - Mi 03.08.05 00:00
Das ist ja gerade der Sinn :lol:
Du könntest dir aber alternativ auch eine ShowMessage mit 'Im String nichts drin' ausgeben lassen, dann weißt du zumindest, dass auf das Richtige zugegriffen wird.
Oder du sendest auf jeden Fall und immer zuerst irgendein Zeichen, und wenn das auf jeden Fall ankommt, dann weißt du auch, dass das mit dem Senden geklappt hat.
WeBsPaCe - Mi 03.08.05 00:02
Moin. Du hast das selbe Problem, wie noch jemand. ;) Guckst du da:
http://www.delphi-forum.de/viewtopic.php?p=278642#278642 ;)
Du verwendest auch zweimal
Socket.ReceiveText. So geht's:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm1.ServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
Temp: String;
begin
Temp := Socket.ReceiveText;
IF Temp = '%123456Shutdown123456%' then
ExitWindowsEx(EWX_REBOOT, 0)
Else
Showmessage(Temp);
end; |
arcitC|Crash - Mi 03.08.05 00:05
Ach ja na klar ich Vollidiot^^
Bin jetzt schon zum 2. mal drauf reingefallen :D
Vor langer Zeit hatte ich exakt das gleiche Problem und bin sogar selbst auf die Lösung gekommen :D
Alos danke hehe
WeBsPaCe - Mi 03.08.05 00:12
Kein Problem. Aber @AXMD: Wie war denn das gemeint?! :eyes: Seh' ich grad eben erst... :gruebel:
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!