Einzelnen Beitrag anzeigen

Mr.Dollar2k3

Registriert seit: 12. Okt 2003
Ort: KÖLN
29 Beiträge
 
Delphi 7 Enterprise
 
#1

icq clone mit ftp verbindung

  Alt 4. Jan 2004, 23:08
also hab ein prob...ich hab mir schon viele andere source codes angeschaut aber ich werde nicht schlau
ich will ein prog schreben womit man sich wie bei icq über internet nachrichten schreibt in form von ftp verbindung doch ich kriege immer fehlermedung wie zum beispiel das der client den server nicht erreicht oder das der server den client nicht connecten lässst

hier der code vom server :
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer;

type
  TForm1 = class(TForm)
    IdTCPServer1: TIdTCPServer;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure IdTCPServer1Execute(AThread: TIdPeerThread);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
IdTCPServer1.DefaultPort :=21;

end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
Var x : string;
begin

with AThread.Connection do
memo1.Lines.Add(ReadLn);

end;
end.
und der client :
Delphi-Quellcode:
unit Unit1;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient;

type
  TForm1 = class(TForm)
    IdTCPClient1: TIdTCPClient;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var text: string;
begin
text:= edit1.Text;

idTCPClient1.Connect();
idTCPClient1.WriteLn(text);
idTCPClient1.Disconnect;

end;
end.
thx in vorraus
mfg Mr.Dollar2k3
  Mit Zitat antworten Zitat