`at ReturnAddress` có nghĩa là gì trong Delphi?

Question

Trong khi duyệt System.Zip (Delphi XE2) để xem làm thế nào nó hoạt động, tôi thấy chức năng này:

procedure VerifyWrite(Stream: TStream; var Buffer; Count: Integer); 
begin 
    if Stream.Write(Buffer, Count) <> Count then 
    raise EZipException.CreateRes(@SZipErrorWrite) at ReturnAddress; 
end; 

Đó là một phần at ReturnAddress rằng loại câu đố tôi.

Tôi không biết rằng at là từ khóa hợp lệ (công cụ đánh dấu cú pháp dường như không nhận ra được).

Theo IDE, nó được khai báo là System.ReturnAddress, nhưng tôi chỉ có thể tìm thấy nó được khai báo dưới dạng nhãn ở đâu đó trong mã (asm) của procedure _HandleAnyException;. Đơn vị hệ thống có đầy đủ các tham chiếu đến nó.

Vì vậy, những gì tôi muốn biết đây là:

1. ReturnAddress là gì?
2. Chính xác thì Raise Exception.Create ... at ReturnAddress làm gì?

Điểm thưởng nếu bạn có thể đưa ra ví dụ thực tế về nơi đây sẽ là cấu trúc hữu ích hoặc nếu bạn có thể khuyên bạn không nên sử dụng nó.

Answer 1

ReturnAddress là địa chỉ mà VerifyWrite sẽ trả lại khi hoàn tất.

Raise Exception.Create... at ReturnAddress có nghĩa là khi hộp thoại ngoại lệ được hiển thị, nó sẽ cho biết địa chỉ của ngoại lệ là tại ReturnAddress. Nói cách khác, thông báo ngoại lệ sẽ đọc Exception <whatever> raised at <ReturnAddress>: <Exception Message>.

Đây là một trích đoạn từ tệp trợ giúp cho Delphi 7. Nó gần giống như the online version.

Để tăng đối tượng ngoại lệ, hãy sử dụng trường hợp ngoại lệ lớp học với tuyên bố tăng. Ví dụ,

raise EMathError.Create; 

Nói chung, hình thức một tuyên bố tăng lương là

raise object at address 

nơi đối tượng và tại địa chỉ đều không bắt buộc; xem Cải thiện ngoại lệ. Khi một địa chỉ được chỉ định, nó có thể là bất kỳ biểu thức nào đánh giá thành một kiểu con trỏ , nhưng thường là một con trỏ đến một thủ tục hoặc hàm. Ví dụ:

raise Exception.Create('Missing parameter') at @MyFunction; 

Sử dụng tùy chọn này để nâng cao ngoại lệ từ một điểm trước đó trong ngăn xếp so với cái nơi mà các lỗi thực sự xảy ra.

Lưu ý câu cuối cùng nói riêng. Nó khá cụ thể về việc sử dụng at <address>.

Answer 2

ReturnAddr không phải là một câu đố với các phiên bản Delphi trước đó.Hãy xem xét thử nghiệm tiếp theo (Delphi XE):

procedure RaiseTest1; 

    procedure RaiseException(ReturnAddr: Pointer); 
    begin 
    raise Exception.Create('OOPS!') at ReturnAddr; 
    end; 

asm 
     POP EAX 
     JMP RaiseException 
end; 

procedure RaiseTest2; 
begin 
    raise Exception.Create('OOPS!'); 
end; 


procedure TForm1.Button3Click(Sender: TObject); 
begin 
    RaiseTest1; 
end; 

procedure TForm1.Button4Click(Sender: TObject); 
begin 
    RaiseTest2; 
end; 

nếu bạn bấm Button3 dưới debugger và nhấn 'Break' trong ngoại lệ MessageBox, debugger dừng lại ở

procedure TForm1.Button3Click(Sender: TObject); 
begin 
    RaiseTest1; // <-- here 
end; 

nếu bạn bấm Button4, debugger dừng lại ở

procedure RaiseTest2; 
begin 
    raise Exception.Create('OOPS!'); // <-- here 
end; 

Như bạn có thể thấy RaiseTest1 sửa đổi khung ngăn xếp ngoại lệ mặc định và thực hiện gỡ lỗi đơn giản hơn vì mục đích duy nhất của quy trình RaiseTest1 (2) là tăng eption.

Tôi đoán điều gì đó đã thay đổi trong XE2 để cú pháp ReturnAddr được đơn giản hóa.