Entwickler-Ecke
Internet / Netzwerk - String über netztwerk !?
Killmag10 - Fr 05.09.03 18:26
Titel: String über netztwerk !?
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
Ex0rzist - Fr 05.09.03 19:34
Kannst du auf beiden Rechnern dein Programm laufen lassen?
Wenn ja, dann nimm die Client- / Serversockets.
Einzelheiten dazu findest du
hier [
http://www.delphi-forum.de/viewtopic.php?t=120], in der OH oder in deinem Delphi Demo-Ordner.
Insbesondere
Socket.Sendtext sollte für dich interessant sein.
Killmag10 - Fr 05.09.03 19:44
Jo habs raus !
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: :D
Killmag10 - 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 ?
Ex0rzist - Sa 06.09.03 02:16
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:
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 begin
Showmessage('Host nicht gefunden');
ErrorCode := 0; end
else
ErrorCode := 0; end; |
Eine Liste mit den häufigsten Socket-Fehlern findest du in der
MSDN [
http://msdn.microsoft.com/library/en-us/winsock/winsock/windows_sockets_error_codes_2.asp?frame=true].
Killmag10 - 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:
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 begin
Showmessage('Host nicht gefunden');
ErrorCode := 0; end
else
ErrorCode := 0; end; |
Eine Liste mit den häufigsten Socket-Fehlern findest du in der [url=http://msdn.microsoft.com/library/en-us/winsock/winsock/windows_sockets_error_codes_2.asp?frame=true]MSDN[/url]. |
Habs schon selbst rausgefunden ! :idea:
Drotzdem Danke !
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 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!