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
