Перевести в API

[HTTqp]

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,IdContext, StdCtrls, IdBaseComponent, IdComponent, IdCustomTCPServer,
  IdTCPServer, ExtCtrls,JPEG;

type
  TForm1 = class(TForm)
    IdTCPServer1: TIdTCPServer;
    procedure IdTCPServer1Execute(AContext: TIdContext);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
idTCPServer1.Active:=True;
end;

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
cmd:string;
Stream:TMemoryStream;
Bitmap:TBitmap;

begin
cmd:=AContext.Connection.IOHandler.ReadLn;//считываем команду
if cmd='show_desktop' then//если клиент запросил картинку
begin
Bitmap:=TBitmap.Create;
Stream:=TMemoryStream.Create;
//скриншот
Bitmap.Width := Screen.Width;
Bitmap.Height := Screen.Height;
BitBlt(Bitmap.Canvas.Handle, 0,0, Screen.Width, Screen.Height,GetDC(0), 0,0,SRCCOPY);
//скриншот
Bitmap.SaveToStream(stream);
Stream.Position:=0;
//передаём картинку
try
AContext.Connection.IOHandler.Write(Stream,Stream.Size,true);
finally
Bitmap.Free;
Stream.Free;
end;
end;
end;

end.

[Stilet]

Хм... Загляни сюда: http://www.programmersforum.ru/showthread.php?p=1317942
И еще http://pblog.ru/?p=625

[HTTqp]

Сообщение от Stilet

Хм... Загляни сюда: http://www.programmersforum.ru/showthread.php?p=1317942
И еще http://pblog.ru/?p=625

Спасибо, покапаюсь в первой ссылки) Но все же полезнее было бы с компонентом idctpserver пример, просто компонент такой что про него мало мануала, пробывал искать но увы...
Не хочется бросать на пол пути и добить это уже)

[Stilet]

с компонентом idctpserver пример

Стоп!!! А какое API тогда имеется ввиду?

[HTTqp]

Ну на сколько я знаю любой компонент можно описать в delphi api, проще говоря нужна программа без формы ну или на крайний случай консольная. Мне главное показать пример как будет выглядеть первый код который я написал на api. Если кто способен перевести, буду благодарен, чтобы уже по примеру можно было развивать дальше. Тем более люди знающие я думаю есть здесь, иначе бы я не обратился к вам господа)

[Пепел Феникса]

Сообщение от HTTqp

Ну на сколько я знаю любой компонент можно описать в delphi api, проще говоря нужна программа без формы ну или на крайний случай консольная. Мне главное показать пример как будет выглядеть первый код который я написал на api. Если кто способен перевести, буду благодарен, чтобы уже по примеру можно было развивать дальше. Тем более люди знающие я думаю есть здесь, иначе бы я не обратился к вам господа)

у Делфи нет API, и первый код не на API.

в вашем случае просто не показываете форму, это проще всего.

[Stilet]

проще говоря нужна программа без формы

Ну и чем форма не угодила? Для выбора бесформенного приложения нужны веские причины. В нем много чего может просто не работать из того что будет работать в форменном.

[HTTqp]

Пепел Феникса, Первый код это ясно что не API)))
Во-вторых просто скрыть форму кодом это можно, там всего то

Application.ShowMainForm := False;

Важен вес программы, а с можулем Forms он конечно же увеличивается))) а упаковывать в упаковщики не вариант антивирусы воспринимают как вирус, а зачем заводить людей в заблуждение)))

И давайте ниже либо по теме, либо оставлять свои мысли при себе, чтобы не разводить на форуме флуд, надеюсь меня поймут.

[TwiX]

Так пиши консольное приложения и подключай модули инди: IdBaseComponent, IdComponent, IdCustomTCPServer, IdTCPServer