Delphi 10,1 Berlin: SOAP Аннотация Ошибка

Question

Я мигрировали в ISAPI DLL SOAP из Delphi 10 Сиэтл Delphi 10.1 Берлин Update 2.

После миграции со средой выполнения "Abstract Exception" приподнята.

Я заметил, что класс «TWebRequest» в «Web.HTTPApp.pas» требует

// Read count bytes from client 
function ReadClient(var Buffer: TBytes; Offset: Integer; Count: Integer): Integer; overload; virtual; abstract; 
function ReadClient(var Buffer; Count: Integer): Integer; overload; virtual; abstract; 

Но «TISAPIRequest» в «Web.Win.IsapiHTTP» не выполняет первую функцию.

Таким образом, в "Web.Win.IsapiHTTP", я скопировал 3 PARAMS ReadClient из функции 2 пар:

function TISAPIRequest.ReadClient(var Buffer: TBytes; Offset: Integer; Count: Integer): Integer; 
begin 
    Result := Count; 
    if not ECB.ReadClient(ECB.ConnID, @Buffer, DWORD(Result)) then 
    Result := -1; 
end; 

"Аннотация Ошибки" исключение исчезает, но "Поток ошибки чтение" поднят.

Вы нашли подобную проблему?

Есть ли обходной путь?

Answer 1

Это еще одна ошибка Delphi.

Решение можно найти на this address

Просто замените 3 прослушивают функции с правильными.