Форум: "Сети";
Текущий архив: 2010.10.10;
Скачать: [xml.tar.bz2];

Вниз

Помогите с кодом в CodeGear RAD Studio 2007   Найти похожие ветки 

← →
diks   (2008-11-09 12:31) [0]

Здравствуйте! Сегодня сделал резкий переход с Delphi 7 на CodeGear RAD Studio 2007 и один из основных проектов отказывается работать. Помогите!

Код из Delphi 7:

function LAN_SendClientMessage(ClientListLink: integer; Msg:string): boolean;
var  Client: TSimpleClient;
begin
if (ClientListLink>=0) and (ClientListLink<GLServer.Clients.Count) then
 begin
 Client := GLServer.Clients.Items[ClientListLink];
 if LowerCase(Client.Name)=LowerCase(Client.Name) then
   begin
   TIdPeerThread(Client.Thread).Connection.WriteLn(Msg);
   LAN_SendClientMessage:=true;
   end
 else
   begin
   Application.ProcessMessages;
   LAN_SendClientMessage:=false;
   end;
 end
else
 begin
 ShowErrors("&#202;&#238;&#236;&#239;&#252;&#254;&#242;&#229;&#240; &#226;&#251;&#234;&#235;&#254;&#247;&#229;&#237;."#13#13"&#194;&#234;&#235;&#254 ;&#247;&#232;&#242;&#229; &#234;&#238;&#236;&#239;&#252;&#254;&#242;&#229;&#240;, &#235;&#232;&#225;&#238; &#239;&#240;&#238;&#226;&#229;&#240;&#252;&#242;&#229;"#13"&#241;&#229;&#242;&#2 29;&#226;&#238;&#233; &#239;&#240;&#238;&#226;&#238;&#228;.");
 LAN_SendClientMessage:=false;
 end;
end;

С этой TIdPeerThread(Client.Thread).Connection.WriteLn(Msg); строкой какая то несовместимость!
Как же тогда отправлять сообщения клиенту? Так же 2007-я ругается на ServerConnect и ServerDisconnect.
Компонент TCPServer. Помогите исправить ошибки!

---

← →
cerber   (2008-11-19 20:53) [1]

вроде .Thread поменяли на .acontext

---

← →
Сергей М. ©   (2008-11-20 09:36) [2]

> какая то несовместимость


Что значит "какая-то" ?

Компилятор дает точную диагностику ошибки, а твоё "какая-то несовместимость" - это уже отсебячина, по которой можно лишь сделать предположение, что D2007 поставляется с 10-й версией Indy, в отличие от 9-й в D7.

В 10-ке упомянутые компоненты (и не только они) претерпели основательные изменения, так что готовься - это далеко не последние грабли.

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2010.10.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.003 c