реализовать на delphi 2010

[Ivan34ru]

Стоит Indy 2010

Ошибки:

Checking project dependencies...
Compiling Project1.dproj (Debug configuration)
[DCC Error] Unit1.pas(59): E2003 Undeclared identifier: 'WriteLn'
[DCC Error] Unit1.pas(61): E2003 Undeclared identifier: 'ReadStream'
[DCC Error] Unit1.pas(26): E2065 Unsatisfied forward or external declaration: 'TForm1.IdTCPClient1Disconnected'
[DCC Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'
Failed
Elapsed time: 00:00:00.4

 IdTCPClient1.WriteLn('jpg');
 IdTCPClient1.ReadStream(st);

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient;


type
  TForm1 = class(TForm)
    IdTCPClient1: TIdTCPClient;
    Image1: TImage;
    Timer1: TTimer;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit3: TEdit;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure IdTCPClient1Disconnected(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPClient1.Host:=edit1.Text; // ип адрес
IdTCPClient1.Connect;
timer1.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

timer1.Interval:=StrToInt(edit3.Text);
end;


procedure TForm1.Timer1Timer(Sender: TObject);
var
  st:TMemoryStream;
begin
 IdTCPClient1.WriteLn('jpg');
 st:=TMemoryStream.Create;
 IdTCPClient1.ReadStream(st);
 st.Position:=0;
 image1.Picture.Bitmap.LoadFromStream(st);
 st.Clear;
 st.Free;
end;

     procedure TForm1.Button3Click(Sender: TObject);
begin
timer1.Enabled:=False;

end;


        procedure TForm1.IdTCPClient1Disconnected(Sender: TObject);
begin
timer1.Enabled:=false;
end;




end.

[Stilet]

Наконец-то! Уж заждались...

Undeclared identifier: 'WriteLn'

Версии инди не совпадают. 2010 это если не ошибаюсь 9-я версия.
У нее WriteLN засунут дальше в класс IOHandler, т.е:

IdTCPClient1.IOHandler.WriteLn('jpg');

[Ivan34ru]

Спасибо! с клиентом разобрался.
Подскажите пожалуйста с сервером.
ошибка:

[DCC Error] Unit2.pas(34): E2003 Undeclared identifier: 'TIdTCPServerConnection'
[DCC Error] Unit2.pas(50): E2066 Missing operator or semicolon
[DCC Error] Unit2.pas(57): E2029 ';' expected but '.' found
[DCC Error] Unit2.pas(60): E2003 Undeclared identifier: 'AThread'
[DCC Error] Unit2.pas(60): E2066 Missing operator or semicolon
[DCC Error] Unit2.pas(63): E2029 ')' expected but identifier 'Connection' found
[DCC Error] Unit2.pas(66): E2029 '.' expected but ';' found
[DCC Error] Unit2.pas(68): E2004 Identifier redeclared: 'TForm1'
[DCC Error] Unit2.pas(14): E2065 Unsatisfied forward or external declaration: 'TForm2.IdTCPServer1Execute'

код:

procedure jpg (connection: TIdTCPServerConnection);
var
 steam:TMemoryStream;
 desktopconvas : Tcanvas;
 Bitmap: TBitmap;
 begin
   desktopconvas:=TCanvas.Create;
   desktopconvas.Handle:=GetDC(HWND_DESKTOP);
   Bitmap:=TBitmap.Create;
   Bitmap.Width:=Screen.Width;
   Bitmap.Height:=screen.height;
   Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect, desktopconvas, desktopconvas.ClipRect);
   if not DrawIcon(Bitmap.Canvas.Handle,Mouse.CursorPos.X, Mouse.CursorPos.Y, GetCursor) then
   begin
     steam:=TMemoryStream.Create;
     Bitmap.SaveToStream(steam);
     connection.WriteStream(steam, True, True);
     steam.Clear;
     steam.Free;
     Bitmap.free;
   end;
 end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var a:string;
begin
  a:=AThread.Connection.ReadLn;
  if a='jpg' then
  begin
    jpg(AThread.Connection);
  end;

[Stilet]

Ищи в хелпе своей INDI класс TIdTCPServerConnection. Смотри в каком он модуле описан и прописывай его в uses.

[Ivan34ru]

в uses все прописано на delphi 2010 не работает этот код, всю голову сломал, помогите пожалйста!