|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.03.2008, 21:13 | #1 |
Пользователь
Регистрация: 31.03.2008
Сообщений: 10
|
Помогите с дипломом WEB программирование
Помогите, кто может. Задача вот такая: на Delphi
На серваке работает прога, есть DLL-ка, через которую можно получать данные от проги. Надо при подключении через браузер запустить библиотеку и получить данные от проги и отправить страничку обратно браузеру. Причём данные текут постоянно и надо динамически обновлять поля на странице. При отключении надо закрыть библиотеку. Intraweb и WebSnap пробовал, не помогает. может надо данные как-нить преобразовывать? помогите, ато тупик. вот функция unit funcimplement; const NetLinkAllHosts= ''; NetLinkAllPorts=0; Procedure EfesClient_Close;stdcall;external 'EfesClient.DLL'; Procedure EfesClient_SendMessage (var Host:ansistring; Port:integer; var Mess:ansistring);stdcall;external 'EfesClient.DLL'; Procedure StandartEfesLinkOpen; type TMessCallBack = procedure(var Host:Ansistring; Port:integer; var Mess:ansistring);stdcall; TConnectCallBack = procedure(var Host:Ansistring; Port:integer);stdcall; TDisConnectCallBack = procedure(var Host:Ansistring; Port:integer);stdcall; Procedure EfesClient_Open (MessCallBack:TMessCallBack; ConnectCallBack:TConnectCallBack; DisConnectCallBack:TDisConnectCallB ack);stdcall;external 'EfesClient.DLL'; interface implementation Procedure EC_MessCallBack (var Host:Ansistring; Port:integer; var Mess:ansistring);stdcall; begin FormMain1.IWMemo1.Lines.Add(host+'. '+inttostr(port)+'.'+mess); end; Procedure EC_ConnectCallBack (var Host:Ansistring; Port:integer)stdcall; begin end; Procedure EC_DisConnectCallBack (var Host:Ansistring; Port:integer)stdcall; begin end; Procedure EfesSendMessage (var Host:Ansistring; Port:integer; var Mess:ansistring); begin end; Procedure Log(Text:AnsiString); begin end; Procedure ShowConnLib; begin end; Procedure StandartEfesLinkOpen; begin try EfesClient_Open (EC_MessCallBack, EC_ConnectCallBack, EC_DisConnectCallBack); except on E: Exception do begin EfesClient_Close; end; end; end; end. IWmemo не заполняется, хотя, если не интравеб, а обычное приложение сделать, то инфа принимается |
01.04.2008, 07:55 | #2 | ||
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Цитата:
I'm learning to live...
|
||
01.04.2008, 09:10 | #3 |
Пользователь
Регистрация: 31.03.2008
Сообщений: 10
|
Да, браузер любой, например IE. А с DLL немного не так. DLL просто собирает данные (там функции обратного вызова). Формирует страницу веб модуль (cgi). И всё это чудо под apache 2.0.
Я ещё правда такую [мат] вычитал, что CGI выполняется один раз, а мне надо динамически заполнять поля, может поэтому не цепляется, не успевает или ещё как??????????? Последний раз редактировалось AlDelta; 01.04.2008 в 09:57. |
01.04.2008, 10:25 | #4 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
01.04.2008, 18:39 | #5 |
Пользователь
Регистрация: 31.03.2008
Сообщений: 10
|
Идея хорошая, а главное простая. Там инфу надо получать в реал тайме.
Надо, чтобы не страница перезагружалась, а сервак сам обновлял страницы на клиентской стороне по мере появления новой инфы. Но всё равно спасибо. Мож ещё чёнить посоветуешь. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с курсовой. Параллейное программирование. | bendar | Помощь студентам | 1 | 16.06.2008 17:41 |
Программирование под .NET | RoamingFire | Свободное общение | 1 | 04.03.2008 08:35 |
Шифр Атбаш. Зашиваюсь с дипломом! | Регина | Помощь студентам | 2 | 06.04.2007 15:47 |
Программирование под nix | Simply-Art | Свободное общение | 8 | 20.03.2007 11:45 |