String über netztwerk !?

Killmag10 · Verfasst: Fr 05.09.03 18:26

hallo !

Ich kenn mich eigendlich mit Delphi ganz gut aus hab aber noch null ahnung von Netzwerk verbindungen ! :oops:

kann mir nemand ein beispiel geben wie ich zb.

einen string von einen rechner auf den andern übertrag ? :?:

IP von mein PC 10.0.1.6 (wen es geht den string wieder an mein PC senden)

sonst diese IP nehmen : 10.0.1.2

_________________
Mega-inkompetente Computer-ruinierende Organisation spioniert ohne funktionierende Technik

Ex0rzist · Beiträge: 550 Win XP Prof. Mandrake 10.0 D6

Kannst du auf beiden Rechnern dein Programm laufen lassen?
Wenn ja, dann nimm die Client- / Serversockets.
Einzelheiten dazu findest du hier, in der OH oder in deinem Delphi Demo-Ordner.
Insbesondere Socket.Sendtext sollte für dich interessant sein.

Killmag10 · Verfasst: Fr 05.09.03 19:44

Jo habs raus !

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
begin

c1.Socket.SendText(edit1.Text);

end;

procedure TForm1.s1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
edit2.Text:=Socket.ReceiveText;
end;

end.

is ja ganz einfach hab mirs schwerer vorgestellt !

und es geht übrigens auch wenn ich es selber an mein PC schicke !

mein fehler war das ich immer s1.socket geschrieben hab und nett einfach socket ! :idea:

_________________
Mega-inkompetente Computer-ruinierende Organisation spioniert ohne funktionierende Technik

Killmag10 · Verfasst: Fr 05.09.03 21:22

noch ein prob. !

wie kann ich überbrüfen ob eine adresse verhanden ist ?

oder gibt es einen andern weg die fehlermeldung auszuschalten ?

_________________
Mega-inkompetente Computer-ruinierende Organisation spioniert ohne funktionierende Technik

Ex0rzist · Beiträge: 550 Win XP Prof. Mandrake 10.0 D6

Der Clientsocket hat ein Ereignis OnError. Hier kannst du sämtliche Fehlermeldungen abfangen. Dabei wird ein ErrorCode übergeben.

Wenn das Verbinden zum Host fehlgeschlagen ist, hat der ErrorCode den Wert '10049'.

Im Programm würde das so aussehen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
If ErrorCode = 10049 then  // Host nicht gefunden
 begin
  Showmessage('Host nicht gefunden');
  ErrorCode := 0;  // Die anschliessende Fehlermeldung wird unterdrückt, da schon eine ausgegen wurde
 end
else
 ErrorCode := 0;  // Hier werden alle anderen Fehlermeldungen unterdrückt
end;

Eine Liste mit den häufigsten Socket-Fehlern findest du in der MSDN.

_________________
If accidentally read, induce vomitting.

Killmag10 · Verfasst: Sa 06.09.03 11:37

Ex0rzist hat folgendes geschrieben:

Der Clientsocket hat ein Ereignis OnError. Hier kannst du sämtliche Fehlermeldungen abfangen. Dabei wird ein ErrorCode übergeben.

Wenn das Verbinden zum Host fehlgeschlagen ist, hat der ErrorCode den Wert '10049'.

Im Programm würde das so aussehen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
If ErrorCode = 10049 then  // Host nicht gefunden
 begin
  Showmessage('Host nicht gefunden');
  ErrorCode := 0;  // Die anschliessende Fehlermeldung wird unterdrückt, da schon eine ausgegen wurde
 end
else
 ErrorCode := 0;  // Hier werden alle anderen Fehlermeldungen unterdrückt
end;

Eine Liste mit den häufigsten Socket-Fehlern findest du in der [url=msdn.microsoft.com/l...ame=true]MSDN[/url].

Habs schon selbst rausgefunden ! :idea:

Drotzdem Danke !

_________________
Mega-inkompetente Computer-ruinierende Organisation spioniert ohne funktionierende Technik

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme