Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > http сервер

Автор: vood 23.4.2006, 03:29

У idhttpserver есть возможность обработки запросов, но если использовать в в ответах теги img, то пользователь не увидит картинки
К томуже у ответа на запрос часто бывает глючная кодировка
А отчего это?

Автор: Snowy 23.4.2006, 15:22

Цитата(vood @ 23.4.2006, 03:29

)

но если использовать в в ответах теги img, то пользователь не увидит картинки

Просто нужно указывать правильный mime-type.
Смотри пример сервера здесь: http://forum.vingrad.ru/index.php?showtopic=86992&view=findpost&p=669419

Цитата(vood @ 23.4.2006, 03:29

)

К томуже у ответа на запрос часто бывает глючная кодировка
А отчего это?

Просто нужно указывать кодировку в <head> html документа.

Автор: vood 24.4.2006, 10:24

спасибо
а через что определить IP сервера(в инете)?

Автор: Snowy 24.4.2006, 11:56

Цитата(vood @ 24.4.2006, 10:24

)

а через что определить IP сервера(в инете)?

Открываешь консоль. Пишешь:
ping www.yandex.ru
Видишь IP.
Если програмно, то через TIdDNSResolver.
Только это не имеет отношения к теме о TIdHTTPServer.
А согласно правилам: Модератор: Пожалуйста, один топик - один вопрос.

Автор: vood 26.4.2006, 09:42

Еще как имеет:нужно определить IP самого IDHTTPSERVER

Добавлено @ 09:42
То есть IP компа на котором он запущен

Автор: Snowy 26.4.2006, 10:18

Цитата(vood @ 26.4.2006, 09:42

)

Еще как имеет:нужно определить IP самого IDHTTPSERVER

То есть ты хочешь, чтобы твой сервер мог узнать на каком IP он сидит?
Тогда тебе сюда: http://forum.vingrad.ru/index.php?act=module&module=vingradfaq&section=758

Автор: vood 26.4.2006, 10:29

использую вот это но оно неработает(суде по всему нужен какойнибудь модуль)

Код


var 
 WSAData: TWSAData; 
 p: PHostEnt; 
 Name: array[0..$FF] of Char; 
begin 
 WSAStartup($0101, WSAData); 
 GetHostName(name, $FF); 
 p := GetHostByName(Name); 
 showmessage(inet_ntoa(PInAddr(p.h_addr_list^)^)); 
 WSACleanup; 
end;

Автор: Snowy 26.4.2006, 11:01

Цитата(vood @ 26.4.2006, 10:29

)

но оно неработает

А что говорит?

Цитата(vood @ 26.4.2006, 10:29

)

уде по всему нужен какойнибудь модуль

uses WinSock.

Автор: vood 26.4.2006, 11:12

Спасибо, заработало!