pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases Activity

Added support for Lazarus/FPC (windows 32bit)

Browse Source
This commit is contained in:
Salvador Díaz Fau
2018-05-12 14:50:54 +02:00
parent 294a245250
commit dd5f7f42c4
220 changed files with 6385 additions and 4281 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
source/uCEFStreamWriter.pas
View File

@@ -10,7 +10,7 @@
// For more information about CEF4Delphi visit :
// https://www.briskbard.com/index.php?lang=en&pageid=cef
//
// Copyright � 2018 Salvador D�az Fau. All rights reserved.
// Copyright � 2018 Salvador Diaz Fau. All rights reserved.
//
// ************************************************************************
// ************ vvvv Original license and comments below vvvv *************
@@ -37,6 +37,10 @@
unit uCEFStreamWriter;
{$IFDEF FPC}
{$MODE OBJFPC}{$H+}
{$ENDIF}
{$IFNDEF CPUX64}
{$ALIGN ON}
{$MINENUMSIZE 4}
@@ -71,10 +75,10 @@ uses
class function TCefStreamWriterRef.CreateForFile(const fileName: ustring): ICefStreamWriter;
var
s: TCefString;
TempFileName : TCefString;
begin
s := CefString(fileName);
Result := UnWrap(cef_stream_writer_create_for_file(@s));
TempFileName := CefString(fileName);
Result := UnWrap(cef_stream_writer_create_for_file(@TempFileName));
end;
class function TCefStreamWriterRef.CreateForHandler(const handler: ICefWriteHandler): ICefStreamWriter;
@@ -84,34 +88,35 @@ end;
function TCefStreamWriterRef.Flush: Integer;
begin
Result := PCefStreamWriter(FData).flush(FData);
Result := PCefStreamWriter(FData)^.flush(PCefStreamWriter(FData));
end;
function TCefStreamWriterRef.MayBlock: Boolean;
begin
Result := PCefStreamWriter(FData).may_block(FData) <> 0;
Result := PCefStreamWriter(FData)^.may_block(PCefStreamWriter(FData)) <> 0;
end;
function TCefStreamWriterRef.Seek(offset: Int64; whence: Integer): Integer;
begin
Result := PCefStreamWriter(FData).seek(FData, offset, whence);
Result := PCefStreamWriter(FData)^.seek(PCefStreamWriter(FData), offset, whence);
end;
function TCefStreamWriterRef.Tell: Int64;
begin
Result := PCefStreamWriter(FData).tell(FData);
Result := PCefStreamWriter(FData)^.tell(PCefStreamWriter(FData));
end;
class function TCefStreamWriterRef.UnWrap(data: Pointer): ICefStreamWriter;
begin
if data <> nil then
Result := Create(data) as ICefStreamWriter else
Result := Create(data) as ICefStreamWriter
else
Result := nil;
end;
function TCefStreamWriterRef.write(const ptr: Pointer; size, n: NativeUInt): NativeUInt;
begin
Result := PCefStreamWriter(FData).write(FData, ptr, size, n);
Result := PCefStreamWriter(FData)^.write(PCefStreamWriter(FData), ptr, size, n);
end;
end.