[AJUDA]Chat c/ Servidor hospedado

[RickKM 2]

Bom, estou tentando fazer um programa chat so que eu hospedo em uma host uso script pra executa-lo so que estou com um problema na hora do servidor mandar o texto pelo evento OnClientWrite, meu aplicativo servidor contem um TMemo cada vez que o client manda um texto ele adiciona no TMemo mas depois tem que mandar o texto do TMemo para o TMemo do client para ficar iguais.

 

Base do Client:

 

unit base;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ScktComp, XPMan, StdCtrls, ExtCtrls;

 

type

TForm1 = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Button1: TButton;

Edit4: TEdit;

Memo1: TMemo;

XPManifest1: TXPManifest;

Client1: TClientSocket;

procedure Button1Click(Sender: TObject);

procedure Edit4KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Client1Connect(Sender: TObject; Socket: TCustomWinSocket);

procedure Client1Disconnect(Sender: TObject; Socket: TCustomWinSocket);

procedure Client1Error(Sender: TObject; Socket: TCustomWinSocket;

ErrorEvent: TErrorEvent; var ErrorCode: Integer);

procedure Timer1Timer(Sender: TObject);

procedure Client1Read(Sender: TObject; Socket: TCustomWinSocket);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

if client1.Active then

begin

client1.Active := False;

button1.Caption := 'Conectar';

edit1.Enabled:= true;

edit2.Enabled:= true;

end

else begin

client1.Address := edit1.Text;

client1.Active := True;

button1.Caption := 'Desconectar';

edit1.Enabled:= false;

edit2.Enabled:= false;

end;

end;

 

procedure TForm1.Edit4KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

var

time: string;

begin

if Key= VK_RETURN then

begin

time:= '('+ FormatDateTime('hh:nn:ss',now)+')';

client1.Socket.SendText(time+edit2.Text + ' : ' + edit4.Text);

edit4.Text := '';

end;

end;

 

procedure TForm1.Client1Connect(Sender: TObject; Socket: TCustomWinSocket);

var

time: string;

begin

time:= '('+ FormatDateTime('hh:nn:ss',now)+')';

client1.Socket.SendText(time+edit2.Text+' se conectou.');

end;

 

procedure TForm1.Client1Disconnect(Sender: TObject;

Socket: TCustomWinSocket);

var

time: string;

begin

time:= '('+ FormatDateTime('hh:nn:ss',now)+')';

client1.Socket.SendText(time+edit2.Text+' desconectou.');

end;

 

 

procedure TForm1.Client1Error(Sender: TObject; Socket: TCustomWinSocket;

ErrorEvent: TErrorEvent; var ErrorCode: Integer);

begin

showmessage('Ocorreu um erro ao conectar com o servidor!');

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

begin

memo1.Lines.Text:= client1.Socket.ReceiveText;

end;

 

procedure TForm1.Client1Read(Sender: TObject; Socket: TCustomWinSocket);

begin

memo1.Lines.Text:= socket.ReceiveText;

end;

 

end.

 

Base do Servidor:

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ScktComp, StdCtrls, ExtCtrls;

 

type

TForm1 = class(TForm)

Memo1: TMemo;

Server1: TServerSocket;

procedure Server1ClientRead(Sender: TObject;

Socket: TCustomWinSocket);

procedure Server1ClientWrite(Sender: TObject;

Socket: TCustomWinSocket);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Server1ClientRead(Sender: TObject;

Socket: TCustomWinSocket);

begin

memo1.Lines.Add(socket.ReceiveText);

end;

 

procedure TForm1.Server1ClientWrite(Sender: TObject;

Socket: TCustomWinSocket);

begin

Server1.Socket.SendText(memo1.Lines.Text);

end;

 

end.

 

E isso aguardo resposta...