Мне понадобился встроенный web сервер, экспериментирую с TFPHttpServer из пакета fpweb.
Я в web не шарю совсем, пробую сделать форму и первая загвоздка:
В label русский текст приходится конвертировать в win1251, что нужно сделать, чтобы UTF8 понимал? Иначе кракозяблы вылазят.
- Код: Выделить всё
rocedure TForm1.DoHandleRequest(Sender: TObject;
var ARequest: TFPHTTPConnectionRequest;
var AResponse: TFPHTTPConnectionResponse);
begin
FURL := Arequest.URL;
if FURL = '/sform.html' then
begin
AResponse.Contents.Add('<form id="form" action="' + ARequest.URI + '" method="POST" enctype="multipart/form-data">');
AResponse.Contents.Add('<label for="name">' + UTF8ToCP1251('Введите') + '</label>');
AResponse.Contents.Add('<input type="text" name="input" />');
AResponse.Contents.Add('</form>');
end;
FServer.Synchronize(nil, @ShowURL);
end;
