Mam 2 kompy i do nich karty sieciowe i jak zrobić żeby można było z jednego do drugiego przesyłać wiadomości, obrazki, muze itp.? hmm...
Coś takiego często jest w kafejkach gdy opłacony czas się kończy to admin przesyła wiadomość.
0
0
o stary...
na to jest naprawde wiele metod wiele komponentuf itd.
najprostszy i dostepny w np. Delphi 6 Personal to po prostu client i server.
poczytaj o tym gdzies indziej bo na forum raczej nikt ci nie bedzie tlumaczyl jak to dziala i jak tego uzywac
yaroo
what the f**k is this world runnig to?
0
Coś jak:: server.socket.connections[0].sendtext??? (ze strony servera)
a potem juz client odbiera ten text i np. showmessage(cos tam) {zzz} --Le murdoc
0
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp;
type
TForm1 = class(TForm)
ServerSocket1: TServerSocket;
ClientSocket1: TClientSocket;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
serversocket1.Socket.Connections[0].SendText('aaa');
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
s:string;
begin
s:=clientsocket1.Socket.ReceiveText;
showmessage(s);
end;
end.
P.s. powinno pomóc..................host i adres -dojdziesz, a port na cliencie i serverze musi być oczywiście taki sam.................................{zzz}
--Le murdoc
0
Czlowieku to jest na stronie :
http://www.4programmers.net/view.php?id=39
Zobacz sobie :)--||===
0
Dzięki wszystkim za odpowiedź i przepraszam, że nie poszukałem...