169 похожих чатов

Добрый день. Приложение Delphi + DelphiMVCFramework предоставляет - REST

API по localhost:12345/api и
- как web сервер отдает по localhost:12345/app web приложение написанное на Dart/Flutter (лежит в подкаталоге www).

В коде это выглядит так:
WebRequestHandler.WebModuleClass := TRESTListenerWebModule;
WebRequestHandlerProc.MaxConnections := 1024;
FServer := TIdHTTPWebBrokerBridge.Create(nil);
FServer.DefaultPort:= APort;
FServer.MaxConnections:= 0;
FServer.ListenQueue:= 200;
// LGetSSLPassword := TSSLEventHandlers.Create;
// LIOHandleSSL := TIdServerIOHandlerSSLOpenSSL.Create(FServer);
// LIOHandleSSL.SSLOptions.SSLVersions := [
// TIdSSLVersion.sslvSSLv23,
// TIdSSLVersion.sslvSSLv3,
// TIdSSLVersion.sslvTLSv1,
// TIdSSLVersion.sslvTLSv1_1,
// TIdSSLVersion.sslvTLSv1_2];
// LIOHandleSSL.SSLOptions.Mode := sslmServer;
// LIOHandleSSL.SSLOptions.CertFile := 'cacert.pem';
// LIOHandleSSL.SSLOptions.RootCertFile := '';
// LIOHandleSSL.SSLOptions.KeyFile := 'privkey.pem';
// LIOHandleSSL.OnGetPassword := LGetSSLPassword.OnGetSSLPassword;
// FServer.IOHandler := LIOHandleSSL;
// FServer.OnQuerySSLPort := LGetSSLPassword.OnQuerySSLPort;
FServer.Active:= True;



FMVC := TMVCEngine.Create(Self);
FMVC.AddMiddleware(TCORSMiddleware.Create);
FMVC.AddMiddleware(TMVCStaticFilesMiddleware.Create(
'/app',
ExtractFilePath(GetModuleName(HInstance)) + 'www',
'index.html'));
FMVC.AddController(TRESTCopykeyServerController);

По http (http://localhost:12345/api и http://localhost:12345/app) все работает нормально
Но, если раскомментировать строчки, то по https (https://localhost:12345/api и https://localhost:12345/app) REST API работает нормально, а web приложение не открывается (в делфе много эксепшинов “ Not Found ”, а в консоли хрома соответственно много ошибок вида “ Failed to load resource: the server responded with a status of 404 ([EMVCException] Not Found)”).

Что я делаю неправильно?

2 ответов

57 просмотров

а что network вкладка говорит?

https://github.com/viniciussanchez/RESTRequest4Delphi

Похожие вопросы

Обсуждают сегодня

Всем привет! Имеется функция: function IsValidChar(ch: UTF8Char): Boolean; var i: Integer; ValidChars: AnsiString; begin ValidChars := 'abcdefghijklmnopqrstuvwxyzABCDE...
Евгений
28
лучше скажите, причём тут паскаль?
Alexey Kulakov
36
День добрый, подскажите пожалуйста, есть ли какой-то способ сказать ребару не компилировать определённое приложение? Всю доку их перечиатл ничего подобного не нашёл
Кирилл
14
Народ! Впервые клиенту пришло письмо от РКН, у вас, дескать, есть яндекс метрика, а нигде не написано, что вы ее юзаете. Никто не сталкивался?
Sasha Beep
10
Добрый вечер. Хочу чтобы у меня в классе поле было функцией, которая возвращает строку. Делаю так: interface ... TGetOutPath = function : String of object; ... protec...
Kirill Filippenok
12
Это может быть все-таки не флудвейт? у меня ботфазер принимает изменения и отображает даже что они изменились, на видео видно что он прислал якобы уже измененное описание, н...
OVERLINK
13
В clientsettings есть поле client_rates. В поле pagebuilder. Как получить то его?)
Andrey K
8
Здравствуйте, хочу сделать HelloWorld в консоли Дельфи, но функция API ничего не выводит, что я делаю не так? program Hello; {$APPTYPE CONSOLE} uses System.SysUtils, WinAPI.Wi...
Sergey Vinogradov
20
Вопрос на перед, на следующую пятницу. Сколько строк кода можно вешать на одного программиста, понятно что если проект хорошо написан то можно и миллион. Но есть же где то пре...
AlekseyK Kluchnikov
31
Немного оффтопа: а кто на чем сидит для осдева в плане ide/редактора? Последнее время сидел на vscode, но я его прям не могу нормально воспринимать, перешел на сlion, но меня...
Evg Resh
29
Карта сайта