Форум: "Прочее";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];

Вниз

Знатокам Kylix   Найти похожие ветки 

← →
vidiv ©   (2006-05-29 01:55) [0]

Хочу написать демон для чата под линукс... до этого делал на PHP, а сейчас захотел сделать на delphi...
Стоит ли искать Kylix для решения этой задачи?
Подобный код будет работать под линксом как ожидалось?

program Project2;

{$APPTYPE CONSOLE}

uses
 IdTCPServer, Classes, SysUtils;

type TServerObject = class (TIdTCPServer)
   public
     constructor Create(Own:TComponent); override;
     procedure HndlExecute(AThread: TIdPeerThread);
 end;

{ TServerObject }

constructor TServerObject.Create;
begin
   inherited Create(Own);
   OnExecute := HndlExecute;
end;

procedure TServerObject.HndlExecute(AThread: TIdPeerThread);
begin
   AThread.Connection.Write("HelloUser");
   AThread.FreeOnTerminate := true;
   AThread.Terminate;
end;

var SrvObj : TServerObject;

begin
   SrvObj := TServerObject.Create(nil);
   SrvObj.Bindings.Clear;
   with (SrvObj.Bindings.Add) do begin
       IP := "0.0.0.0";
       Port := 1234;
   end;
   SrvObj.Active := true;
   readln;
end.

И еще, маленький вопрос: как можно вместо readln зациклить приложение, без загрузки процессора?

---

← →
Джо ©   (2006-05-29 02:35) [1]

> как можно вместо readln зациклить приложение, без загрузки
> процессора?

А что ReadLn его так сильно загружает? Ну, можно еще в таком роде
 while SomeFlag do
 begin
   ...
   Sleep(1)
 end


---

← →
vidiv ©   (2006-05-29 02:40) [2]

>  что ReadLn его так сильно загружает?

да нет... вообще не грузит... просто по идее в линухе нужно будет отсоедениться от консоли (демонизироваться) а зачем там этот ридлн? :)

---

← →
TUser ©   (2006-05-29 04:30) [3]

Могу скинуть книгу по программированию под Linux. Она правда про FreePascal, но на Кайликс сам переведешь.

---

← →
vidiv ©   (2006-05-29 05:07) [4]

> TUser ©   (29.05.06 04:30) [3]

Давай :))

вот мыло на всякий случай: vidiv (@) mail.ru

---

← →
pasha_golub ©   (2006-05-29 10:26) [5]

> TUser ©   (29.05.06 04:30) [3]

И мне, пожалуйста! Спасибо заранее. Мыльце в анкете.

---

← →
TUser ©   (2006-05-29 12:38) [6]

http://monkey.belozersky.msu.ru/~evgeniy/sysprfpc.zip

Где-то в тырнете нашел

---

Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.011 c