Wieso willst du es unbeding herum? Versteh ich den Sinn nit, hier mein Beispiel!
Ich habe ein Programm programmiert wo der server beim Opfer läuft und
du mit dem Server von deinem Pc bequem die Taskleiste ausblenden kannst
und solchen scherze, ein genialer Netzwerk spass!
Dein Client(Das Programm von dem du die Nachricht aus steuerst!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
client.Port:=25544;
{muss der gleiche sein}
client.Address:=Edit1.Text;
{IP oder PC-name}
client.Open;
end;
procedure TForm1.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
Form1.Caption:='
connected';
end;
procedure TForm1.ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Form1.Caption:='
disconnected';
end;
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Client.Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
client.Socket.SendText(Edit2.Text);
end;
Das Serverprogramm
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Visible:=false;
Server.Port:=25544;{z.B.}
server.Open;
end;
procedure TForm1.ServerClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
MessageDlg(Socket.ReceiveText, mtInformation, [mbOK], 1);
{Unter garkeinen Umständen hier server.Socket.ReceiveText, dann funkst das nit }
Form1.Caption:='nachricht';
end;
procedure TForm1.ServerClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Form1.Caption:='connected';
end;
procedure TForm1.ServerClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Form1.Caption:='Disconnected';
end;
Ja und das is es dann auch schon ein Freund von mir wollte schon formatieren, dann hab ich ihn eingeweit!
Denk dran das du das nur mit Leuten machst die den Spass auch verstehn, sonst kannst du echt Ärger bekommen!
Na dann!
Viel Spass
@wardz