Добрый день.
Для Д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? Какой аналог оператора OpenWriteBuffer в Д2010?

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

[ATimofeev]

Я работаю с D2009, короче у TIdContext тоже есть Connection, его и задействуй