Delphi 7 & Flash MX

[Lavelas]

Многоуважаемые, возникла проблема следующего характера: Обмен данными между Delphi 7 и Flash`ем. Т.е. в Делфи 6 как бы все хорошо - объект ServerSocket и вперед, но дело в том что в Делфи 7 этот объект переработан в TTcpServer и вроде как и старается работать, но все строки получаемые от flash отображает только после закрытия flash приложения. Странно. Привожу упрощеный код делфовый и флэшовый.

Delphi :

procedure TForm1.ServerAccept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
Memo1.Lines.Append(ClientSocket.Receiveln());//тут как бы в Мемо должны получаемые строки добавляться.
end;


Flash :

on (release) {
client = new XMLSocket();
client.connect(ip, 8888);
client.onConnect = function(success) {
if (success == true) {
client.send("I am connected");
client.onData = function(data) {
trace(data);
};
}
};
}
пока флэш не закроешь, ничего в Memo1 не отобразится...


Флэшовый код абсолютно рабочий для Делфи 6. И наполовину для Делфи 7. Делфовый код рабочий для другого делфи-приложения с TTcpClient. В чем дело не понятно... ждем-с вразумлений...

[Lavelas]

Похоже придется инсталить ServerSocket в Delphi 7 ...

[Persival Shuttenbah]

Почему бы не создавать ServerSocket динамически? Компонент убрали, но объект остался ;)

type
TForm1 = class(TForm)
...
procedure ServerAccept(Sender: TObject;
ClientSocket: TCustomIpClient);
...
end;

var Server1: TServerSocket;

procedure TForm1.FormCreate(Sender: TObject);
begin
Server1:=TServerSocket.Create(Form1);
With Server1 do
begin
Parent:=Form1;
Port:=2002;
Active:=true;
end;
Server1.OnAccept:=ServerAccept;
end;

procedure TForm1.ServerAccept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
Memo1.Lines.Append(ClientSocket.Receiveln());
end;