SHOW:
|
|
- or go back to the newest paste.
| 1 | procedure TForm1.Chromium1BeforeResourceLoad(Sender: TObject; | |
| 2 | const browser: ICefBrowser; const request: ICefRequest; | |
| 3 | var redirectUrl: ustring; var resourceStream: ICefStreamReader; | |
| 4 | const response: ICefResponse; loadFlags: Integer; out Result: Boolean); | |
| 5 | var | |
| 6 | - | MemoryStream:TMemoryStream; |
| 6 | + | MemoryStream: TMemoryStream; |
| 7 | begin | |
| 8 | - | MemoryStream:=TMemoryStream.Create; |
| 8 | + | MemoryStream := TMemoryStream.Create; |
| 9 | - | HTTP.Get(request.Url,MemoryStream); |
| 9 | + | try |
| 10 | - | resourceStream := TCefStreamReaderRef.CreateForStream(MemoryStream); |
| 10 | + | HTTP.Get(request.Url, MemoryStream); |
| 11 | - | Result:=True; |
| 11 | + | resourceStream := TCefStreamReaderRef.CreateForStream(MemoryStream); |
| 12 | - | |
| 12 | + | Result := True; |
| 13 | - | MemoryStream.Free; |
| 13 | + | finally |
| 14 | MemoryStream.Free; | |
| 15 | end; | |
| 16 | end; |
