Использование компенента Indy IdTCPServer в зависимости от версии (D7 или D2010)

[Pcrepair]

Добрый день.
Для Д7 есть следующий код:

type
    procedure IdTCPServer1Execute(AThread: TIdPeerThread);
var
  Form1: TForm1;
Implementation
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  z: string;
  fstream:TFileStream;
  X,Y:integer;
  K:TPoint;
begin
  with AThread.Connection do
  begin
   z := ReadLn;
   if SameText(Copy(z, 1, 11), 'get_screen ') then
   begin
    Log('Запрошен скриншот');
    GET_SCREEN;
    fStream := TFileStream.Create(ExtractFilePath(Application.ExeName)+'\'+'s.png',
                                  fmOpenRead	+ fmShareDenyNone);
    OpenWriteBuffer;
    Log('Передаем файл s.png');
    WriteStream(fStream);
    Log('Файл передан');
    CloseWriteBuffer;
    FreeAndNil(fStream);
   end;
   if SameText(Copy(z, 1, 11), 'mouse_move ') then
   begin
    z := ReadLn;
    if SameText(Copy(z, 1, 8), 'mouse_x ') then
    X:=StrToInt(Copy(z,9,4));
    z := ReadLn;
    if SameText(Copy(z, 1, 8), 'mouse_y ') then
    Y:=StrToInt(Copy(z,9,4));
    Log('Перемещение мыши');
    SetCursorPos(X,Y);
  end;

для Д2010 все немного иначе:

type
     procedure IdTCPServer1Execute(AContext: TIdContext);
и далее
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);

Вопрос: как правильно записать предыдущий код от Д7 для Д2010, компилятор показывает ошибку вот здесь:

     OpenWriteBuffer;  - тут ОШИБКА
    Log('Передаем файл s.png');
    WriteStream(fStream); - тут ОШИБКА
    Log('Файл передан');
    CloseWriteBuffer; - тут ОШИБКА

на сайте ИНДИ тоже нет комментариев
кто знает, как правильно написать этот код в Д2010?

[Stilet]

Ну а текст ошибки то какой?

[Pcrepair]

а вот это

 OpenWriteBuffer;  пишет -  не объявленный идентификатор
    WriteStream(fStream); пишет - не объявленный идентификатор
    CloseWriteBuffer; пишет - не объявленный идентификатор

РАД пишет - не объявленный идентификатор
то есть в IdTCPServer нет выше указанных методов, там (ИНДИ 10) оне как то по другомы пишуться, но вот как?

[Pcrepair]

что, никто с Д2010 с ИНДИ не работает? Все сидят на Д7?

[SERG1980]

начиная с инди 10 меняется строка с

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);

на

TForm1.IdTCPServer1Execute(AContext: TIdContext)

вот с этим AContext и надо работать, а св-ва у них различаются
а передать стрим можно так

AContext.Connection.IOHandler.Write(fStream,fStream.Size,true);

вот здесь выкладывал проект как можно передать картинку по сети в инди 10
http://programmersforum.ru/showthread.php?t=117696

[Pcrepair]

SERG1980, спасибо
но где (источник) прочитать про это?

AContext.Connection.IOHandler.Write(fStream,fStream.Size,true);

синтаксис и прочее, откуда что берется

[raxp]

...а что мешает вам выдрать нужный модуль из инди и положить его рядом с проектом и работать с ним ...или реализовать самому на сокетах.

[SERG1980]

А прямо в хелпе по делфи можно почитать. там целый раздел есть (ну по крайней мере у меня) правда на буржуинском. А так запастись терпением и словарём ненормативной лексики