pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +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

32
source/uCEFServer.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 uCEFServer;
{$IFDEF FPC}
{$MODE OBJFPC}{$H+}
{$ENDIF}
{$IFNDEF CPUX64}
{$ALIGN ON}
{$MINENUMSIZE 4}
@ -89,32 +93,32 @@ end;
function TCEFServerRef.GetTaskRunner : ICefTaskRunner;
begin
Result := TCefTaskRunnerRef.UnWrap(PCefServer(FData).get_task_runner(PCefServer(FData)));
Result := TCefTaskRunnerRef.UnWrap(PCefServer(FData)^.get_task_runner(PCefServer(FData)));
end;
procedure TCEFServerRef.Shutdown;
begin
PCefServer(FData).shutdown(PCefServer(FData));
PCefServer(FData)^.shutdown(PCefServer(FData));
end;
function TCEFServerRef.IsRunning : boolean;
begin
Result := PCefServer(FData).is_running(PCefServer(FData)) <> 0;
Result := PCefServer(FData)^.is_running(PCefServer(FData)) <> 0;
end;
function TCEFServerRef.GetAddress : ustring;
begin
Result := CefStringFreeAndGet(PCefServer(FData).get_address(PCefServer(FData)));
Result := CefStringFreeAndGet(PCefServer(FData)^.get_address(PCefServer(FData)));
end;
function TCEFServerRef.HasConnection : boolean;
begin
Result := PCefServer(FData).has_connection(PCefServer(FData)) <> 0;
Result := PCefServer(FData)^.has_connection(PCefServer(FData)) <> 0;
end;
function TCEFServerRef.IsValidConnection(connection_id: Integer) : boolean;
begin
Result := PCefServer(FData).is_valid_connection(PCefServer(FData), connection_id) <> 0;
Result := PCefServer(FData)^.is_valid_connection(PCefServer(FData), connection_id) <> 0;
end;
procedure TCEFServerRef.SendHttp200response(connection_id: Integer; const content_type: ustring; const data: Pointer; data_size: NativeUInt);
@ -122,12 +126,12 @@ var
TempContentType : TCefString;
begin
TempContentType := CefString(content_type);
PCefServer(FData).send_http200response(PCefServer(FData), connection_id, @TempContentType, data, data_size);
PCefServer(FData)^.send_http200response(PCefServer(FData), connection_id, @TempContentType, data, data_size);
end;
procedure TCEFServerRef.SendHttp404response(connection_id: Integer);
begin
PCefServer(FData).send_http404response(PCefServer(FData), connection_id);
PCefServer(FData)^.send_http404response(PCefServer(FData), connection_id);
end;
procedure TCEFServerRef.SendHttp500response(connection_id: Integer; const error_message: ustring);
@ -135,7 +139,7 @@ var
TempError : TCefString;
begin
TempError := CefString(error_message);
PCefServer(FData).send_http500response(PCefServer(FData), connection_id, @TempError);
PCefServer(FData)^.send_http500response(PCefServer(FData), connection_id, @TempError);
end;
procedure TCEFServerRef.SendHttpResponse(connection_id, response_code: Integer; const content_type: ustring; content_length: int64; const extra_headers: ICefStringMultimap);
@ -143,22 +147,22 @@ var
TempContentType : TCefString;
begin
TempContentType := CefString(content_type);
PCefServer(FData).send_http_response(PCefServer(FData), connection_id, response_code, @TempContentType, content_length, extra_headers.Handle);
PCefServer(FData)^.send_http_response(PCefServer(FData), connection_id, response_code, @TempContentType, content_length, extra_headers.Handle);
end;
procedure TCEFServerRef.SendRawData(connection_id: Integer; const data: Pointer; data_size: NativeUInt);
begin
PCefServer(FData).send_raw_data(PCefServer(FData), connection_id, data, data_size);
PCefServer(FData)^.send_raw_data(PCefServer(FData), connection_id, data, data_size);
end;
procedure TCEFServerRef.CloseConnection(connection_id: Integer);
begin
PCefServer(FData).close_connection(PCefServer(FData), connection_id);
PCefServer(FData)^.close_connection(PCefServer(FData), connection_id);
end;
procedure TCEFServerRef.SendWebSocketMessage(connection_id: Integer; const data: Pointer; data_size: NativeUInt);
begin
PCefServer(FData).send_web_socket_message(PCefServer(FData), connection_id, data, data_size);
PCefServer(FData)^.send_web_socket_message(PCefServer(FData), connection_id, data, data_size);
end;
end.