Delphi 10.1 Berlin: SOAP Tóm tắt lỗi

Question

Tôi đã di chuyển một ISAPI DLL SOAP từ Delphi 10 Seattle sang Delphi 10.1 Cập nhật Berlin 2.

Sau khi di chuyển một thời gian chạy "Tóm tắt ngoại lệ" được nêu ra.

Tôi nhận thấy rằng lớp "TWebRequest" trong "Web.HTTPApp.pas" đòi hỏi

// 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; 

Nhưng "TISAPIRequest" trong "Web.Win.IsapiHTTP" không thực hiện chức năng đầu tiên.

Vì vậy, trong "Web.Win.IsapiHTTP", tôi đã sao chép 3 params ReadClient từ chức năng 2 param:

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; 

"Tóm tắt Lỗi" ngoại lệ biến mất nhưng "Suối đọc lỗi" được nâng lên.

Bạn đã tìm thấy sự cố tương tự chưa?

Có cách giải quyết nào không?

Answer 1

Đó là lỗi khác của Delphi.

Giải pháp có thể được tìm thấy tại this address

Chỉ cần thay thế 3 chức năng nghe trộm với những cái đúng.