Delphi - Utilizzo dei socket [Delphi 7]

Forum - Delphi - Utilizzo dei socket [Delphi 7]

a_butta (Member)
Expert

Messaggi: 578
Iscritto: 16/03/2010

Postato alle 13:51
Domenica, 11/07/2010

Ciao a tutti.
Sto cercando per la prima volta di capire come funzionano i Socket in delphi.
Sto cercando di creare una semplicissima applicazione che mi trasmetta una stringa.
Ho prodotto questo codice che prevede una form con una memo, un bottone che dovrebbe inviare la stringa contenuta nell' Edit1.
Tuttavia non funziona. Anzi la condizione contenuta nel bottone mi restituisce che il client non è connesso...
Potete aiutarmi?
grazie mille

Il codice:

Codice sorgente - presumibilmente Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Sockets;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Server: TTcpServer;
    Client: TTcpClient;
    Button1: TButton;
    Edit1: TEdit;
    procedure ServerAccept(Sender: TObject; ClientSocket: TCustomIpClient);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ServerAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
begin
Memo1.Lines.Add(ClientSocket.Receiveln());
 
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 With Server Do
  begin
    LocalPort:= '132';
    RemotePort:= '132';
    LocalHost:= '192.168.0.2';
    RemoteHost:= '151.16.23.85';
  end;
With Client Do
  begin
    LocalPort:= '132';
    RemotePort:= '132';
    LocalHost:= '192.168.0.2';
    RemoteHost:= '151.16.23.85';
  end;
Client.Active:= True;
Server.Active:= True;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if client.Connect then
  Client.Sendln(Edit1.Text)
else
  ShowMessage('Non connesso');
end;
 
end.

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 13:59
Domenica, 11/07/2010

Prima di scrivere programmi che lavorano in rete, bisognerebbe studiare un po' i rudimenti (protocolli, socket, ...).

A prescindere se il tuo codice è corretto o no, dato che ti vuoi collegare ad un IP pubblico (151....), tra l'altro, su una porta minore di 1024, cosa alquanto sconsigliata, devi sapere se il sistema che "ascolta" (il server) sta dietro un router (cosa molto probabile).

In questo caso, l'IP pubblico/porta devono essere nattati verso l'IP/porta privati del PC, attraverso apposita configurazione del router.

Tutto questo esula dal programma o dal codice usato ed è per questo che bisogna avere chiara la teoria, prima di scrivere del codice.

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

a_butta (Member)
Expert

Messaggi: 578
Iscritto: 16/03/2010

Postato alle 14:08
Domenica, 11/07/2010

Testo quotato

Postato originariamente da nessuno:

Prima di scrivere programmi che lavorano in rete, bisognerebbe studiare un po' i rudimenti (protocolli, socket, ...).

A prescindere se il tuo codice è corretto o no, dato che ti vuoi collegare ad un IP pubblico (151....), tra l'altro, su una porta minore di 1024, cosa alquanto sconsigliata, devi sapere se il sistema che "ascolta" (il server) sta dietro un router (cosa molto probabile).

In questo caso, l'IP pubblico/porta devono essere nattati verso l'IP/porta privati del PC, attraverso apposita configurazione del router.

Tutto questo esula dal programma o dal codice usato ed è per questo che bisogna avere chiara la teoria, prima di scrivere del codice.

Ok hai ragione, serve la teoria. Tuttavia in questo caso vorrei partire dalla pratica (e non solo in questo caso, ma tante altre volte sono partito dalla pratica per arrivare alla teoria).
Comunque sia si, utilizzo un router.
cosa vuol dire nattati?
Io non ho capito come far connettere il socket: l'ip che gli devo passare è quello locale (quindi il 192.168....) oppure quello "pubblico"?

nessuno (Normal User)
Guru^2

Messaggi: 6402
Iscritto: 03/01/2010

Postato alle 14:26
Domenica, 11/07/2010

Testo quotato

Postato originariamente da a_butta:

Tuttavia in questo caso vorrei partire dalla pratica

Non capisco .... quindi non potrò rispondere a nessuna tua domanda, dato che è tutta teoria ... no?

Testo quotato

cosa vuol dire nattati?

http://it.wikipedia.org/wiki/Network_address_translation

Testo quotato

Io non ho capito come far connettere il socket: l'ip che gli devo passare è quello locale (quindi il 192.168....) oppure quello "pubblico"?

Passare a chi?

1) il server deve ascoltare sull'IP locale
2) l'IP pubblico deve essere nattato sull'IP locale
3) il client si deve collegare all'IP pubblico del server

faracchioclaudio (Normal User)
Newbie

Messaggi: 1
Iscritto: 17/08/2010

Postato alle 9:23
Martedì, 17/08/2010

Io ho lo stesso problema e il pc e' collegato a internet direttamente utilizzando una chiavetta vodafone. Comunque il programma client non comunica con il server.