Форум   Статьи   Новости   Файлы   Bugtraq   Сниффер   Друзья   О Клубе
  , 00:48   #1
Постоянный
 
Регистрация: 05.02.2012
Сообщений: 567

Репутация: 54 / 1
По умолчанию Перевод в api

Кто поможет и сможет перевести данный код в api, пробовал сам ну не получается из-за компонента idtcpserver

Delphi highlight
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;
begin
cmd:=AContext.Connection.IOHandler.ReadLn;//считываем команду
if cmd='show' then//если клиент запросил 
begin
ShowMessage('Сообщение!');
end;
end;

end.
 
Пользователь вне форума    
Наши Спонсоры
 

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Mail.Ru открывает API для внешних сайтов vonkolot Архив новостей 1 16.06.2010 03:07
[В контакте]Обновления в API. Прием платежей и доступ к заметкам. _qwe_ Соц. сети 2 03.06.2010 23:21
Flash API VKontakte kir55rus Оффтоп 3 11.01.2010 01:58
Общие сведения об API-функциях. Объявление API. Использование файла объявлений Win32A Nobody4all Basic 0 19.04.2009 11:48
API функции Nobody4all Basic 0 15.04.2009 14:31



Часовой пояс GMT +2
Powered by vBulletin® 3.x.x Copyright ©2000 - 2012, Jelsoft Enterprises Ltd.

Copyright © 2008 - 2013 «HPC» Реклама на сайте Правила Форума Пользовательское соглашение Работа на сайте
При копировании материалов ставьте ссылку на источник
Все материалы представлены только в ознакомительных целях, администрация за их использование ответственности не несет.