Delphi mORMot Соединение не может быть установлено, потому что целевой компьютер активно отказался от него

Question

Я тестирую компонент mORMot. Я скомпилировал стандартную демонстрацию "28 - Простой сервер RESTful ORM". Запустите его и получите ошибку.

Код:

var
  aModel: TSQLModel;
  aProps: TSQLDBConnectionProperties;
  aRestServer: TSQLRestServerDB;
  aHttpServer: TSQLHttpServer;
begin
// set logging abilities
SQLite3Log.Family.Level := LOG_VERBOSE;
//SQLite3Log.Family.EchoToConsole := LOG_VERBOSE;
SQLite3Log.Family.PerThreadLog := ptIdentifiedInOnFile;
// ODBC driver e.g. from http://ftp.postgresql.org/pub/odbc/versions/msi


aProps := TODBCConnectionProperties.Create('','Driver=PostgreSQL Unicode'+
  {$ifdef CPU64}'(x64)'+{$endif}';Database=postgres;'+
  'Server=127.0.0.1;Port=5433;UID=postgres;Pwd=postgres','','');

//readln;

try
// get the shared data model
aModel := DataModel;
// use PostgreSQL database for all tables
VirtualTableExternalRegisterAll(aModel,aProps);
try
  // create the main mORMot server
  aRestServer := TSQLRestServerDB.Create(aModel,':memory:',false); // authentication=false
  try
    // optionally execute all PostgreSQL requests in a single thread
    aRestServer.AcquireExecutionMode[execORMGet] := amBackgroundORMSharedThread;
    aRestServer.AcquireExecutionMode[execORMWrite] := amBackgroundORMSharedThread;
    // create tables or fields if missing
    aRestServer.CreateMissingTables;
    // serve aRestServer data over HTTP
    aHttpServer := TSQLHttpServer.Create(SERVER_PORT,[aRestServer],'+',useHttpApiRegisteringURI);
    try
      aHttpServer.AccessControlAllowOrigin := '*'; // allow cross-site AJAX queries
      writeln('Background server is running.'#10);
      write('Press [Enter] to close the server.');
      readln;
    finally
      aHttpServer.Free;
    end;
  finally
    aRestServer.Free;
  end;
finally
  aModel.Free;
end;
finally
  aProps.Free;
end;
end.

ошибка

{"Message":"Ошибка TODBCLib: [08001] Не удалось подключиться к серверу;\n Не удалось установить соединение, поскольку целевой компьютер активно отказал в этом.\ R \n [127.0.0.1:5433]

Как это очистить.

Answer 1

Я только что протестировал его с Delphi Seattle 10 и драйвером ODBC от http://ftp.postgresql.org/pub/odbc/versions/msi/psqlodbc_09_03_0400.zip - без проблем.

Убедитесь, что ваш сервер PostgreSQL определен для работы на том же порту, что и источник. Изменить 5433 значение в 5432 если вы использовали номер порта по умолчанию.

Будучи параноиком, я стараюсь всегда менять порт по умолчанию, что уменьшает атаки на сканирование сети (по крайней мере, от быстрого сканирования). Я никогда не использую порт 22 для ssh и 5432 для PostgreSQL. Приносим извинения за неудобства.