Знатокам 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

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

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

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