Hi,
I just commited the first release here:
http://code.google.com/p/delphichromiumembedded
Tested on Delphi 2010, Delphi 6, FreePascal 2.4.
I hope my binding will attract more developers.
Thanks to the CEF developper(s).
Henri
procedure TNotesBrowser.doBeforeResourceLoad(Sender: TCustomChromium;
const browser: ICefBrowser; const request: ICefRequest;
var redirectUrl: ustring; var resourceStream: ICefStreamReader;
var mimeType: ustring; loadFlags: Integer; out Result: TCefRetval);
var
resName : string;
resStream : TResourceStream;
begin
if StartsText('res://myapp.exe/', request.Url) then
begin
resName := copy(request.Url, 19, Length(request.Url) - 18);
// load resource
resourceStream := TCefStreamReaderOwn.Create(
TResourceStream.Create(hInstance, resName, RT_HTML),
true
);
end;
end;
Users browsing this forum: No registered users and 43 guests