Как создать клиент для сайта

[leopard93]

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

Берете любой браузерный движок, например Chromium, оформляете в нужном Вам стиле, делаете пункты меню на несколько игровых опций/команд, настраиваете кэширование и заполняете кэш, делаете функцию проверки версии игры и подкачивания необходимых ресорсов в кэш (хотя оно в принципе и автоматом будет кэшироваться, если кэширование включить), делаете механизм обновления вашего "супер-пупер игрового клиента", как-то так наверное.

Спасибо. Вообще, на сколько это сложно? Можешь прямую ссылку дать, где скачать чё.. а то я чего то там недопонял...


Есть у каво ещё какие предложения?

[astecenko]

Упс...
Я исходил из того что Вы знакомы с Delphi
И так, начнём с начала: Какие языки программирования Вы знаете? Ну или как минимум каким хотите овладеть чтобы сделать клиента к сайту, браузерной игре и т.д. и т.п.?

[leopard93]

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

Упс...
Я исходил из того что Вы знакомы с Delphi
И так, начнём с начала: Какие языки программирования Вы знаете? Ну или как минимум каким хотите овладеть чтобы сделать клиента к сайту, браузерной игре и т.д. и т.п.?

Да так html знаю.. А делфи если чё буду учить.. время найду.. Просто Надо что бы хоть подсказали чё и как там. Мож где пример какой взять... С чего начать попросту...

[raxp]

...вот вам пример - кишочки с моего клиента: парсит с моего сайта информацию о состоянии датчиков температуры, влажности, вероятности заморозков (которую, в свою очередь, на сайт загружает по FTP WEB-сервер обслуживания метеостанции) http://raxp.radioliga.com/cnt/s.php?p=wpt.zip

uses TextTrayIcon, coolTrayIcon,
       idhttp, IdCookieManager, IdMultipartFormData;


var
  data: TIdMultiPartFormDataStream;
  http: TIdHTTP;
  IdCookieManager: TIdCookieManager;
  Response: TStringStream;

  tmr2: integer;
  ftimer: Ttimer;


function get_data(url: ansistring): ansistring;
begin
 // создаем класс-
 http:= TIdHTTP.Create(nil);
 IdCookieManager   := TIdCookieManager.Create(http);
 http.CookieManager:= IdCookieManager;
 Response          := TStringStream.Create('');
 data := TIdMultiPartFormDataStream.Create;

 http.HTTPOptions:= http.HttpOptions - [hoForceEncodeParams]; // баг, чтобы "+" не заменялся пробелом
 http.HandleRedirects:= true;
 http.AllowCookies:= true;

 // заполняем POST- запрос
 http.Post(url, data, Response);
 result:= Response.DataString;
 
 // подчищаем-
 FreeAndNil(Response);
 FreeAndNil(Data);
 FreeAndNil(http)
end;



{xx°
03.07.2012 08:57:58.656
Украина, г.Запорожье, пески (р-н маг.Сильпо)
Плата USB.HID: температура xx°С
Плата V850ES-J: температура 27.54°С, влажность 39.40%
T [в 13:00] 27°C, T [в 21:00] 27°C (заморозки 0%)}

procedure Tform1.on_tmr(Sender: TObject);
var k,z: integer;
    t1, t2: ansistring;
begin
 gl_data:= get_data('http://raxp.radioliga.com/cnt/zpt.txt');

 k:= pos('температура ', gl_data);
 z:= posex('температура ' , gl_data, k+1);
 t1:= trim(copy(gl_data, k + 12, pos('°С', gl_data) - k-12));
 t2:= trim(copy(gl_data, z + 12, posex('°С', gl_data, z+1) - z-12));

 //
 if (t1 = 'xx')and(t2 = 'xx')  then begin
  TrayIcon1.Text:= 'X';
  gl_temp:= 0
 end;

 if (t1 = 'xx')and(t2 <> 'xx') then begin
  gl_temp:= trunc(strtofloatdef(t2, 0));
  TrayIcon1.Text:= inttostr(gl_temp) + '°';
 end;

 if (t1 <> 'xx')               then begin
  TrayIcon1.Text:= t1 + '°';
  gl_temp:= trunc(strtofloatdef(t1, 0))
 end;

 TrayIcon1.Hint:= gl_data
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 DecimalSeparator:= '.';
 //
 SetWindowLong(Application.Handle,GWL_EXSTYLE,GetWindowLong(Application.Handle, GWL_EXSTYLE) or
  not WS_EX_APPWINDOW);
 application.ShowMainForm:= false;
 
 TrayIcon1:= TTextTrayIcon.Create(self);
 TrayIcon1.PopupMenu:= pm;
 TrayIcon1.OnClick  := on_show;

 TrayIcon1.MinimizeToTray:= true;
 TrayIcon1.IconVisible   := true;
 TrayIcon1.Text          := 'X';
 TrayIcon1.Color         := RGB(0,0,0);
 TrayIcon1.Font.Name     := 'arial';
 TrayIcon1.Font.Size     := 7;
 TrayIcon1.Font.Color    := RGB(255,255,255);

 // динамическое создание компонента-клиента
 ftimer:= ttimer.Create(nil);
 ftimer.interval:= 5000;
 ftimer.ontimer := on_tmr;
 ftimer.Enabled := true;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 ftimer.Enabled:= False;
 ftimer.Free;
 TrayIcon1.Free
end;

[astecenko]

самый простой вариант

[leopard93]

Спс всем. Может кто хочет взяться за данную работку? Оплата как полагается.

[Базиля]

Готов обсудить.
Стучите в аську.
Сегодня буду там после 23.30 по мск.

[Петррр]

Готов обсудить предложение. Подробности в ЛС.

[raxp]

...подробности пишите на radio.money@yandex.ru.

[leopard93]

Ух как сразу помощнички нашлись((( Пишите мне в скайп leopard_promo