paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:29:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* PChar -> PAnsichar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-13 22:49:40 +01:00
parent 239224f99e
commit 219a57d905
7 changed files with 27 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/gstreamer/example/playmp3.pp
View File

@ -11,7 +11,7 @@ Var
bus : PGstBus = Nil;
msgError : PGError = Nil;
error : PGError = Nil;
dbg : PChar;
dbg : PAnsiChar;
FN : String;
@ -33,7 +33,7 @@ begin
filesrc := gst_bin_get_by_name (GST_BIN (pipeline), 'my_filesrc');
FN:=ParamStr(1);
g_object_set (filesrc, 'location', PChar(FN), NULL);
g_object_set (filesrc, 'location', PAnsiChar(FN), NULL);
g_object_unref (filesrc);
gst_element_set_state (pipeline, GST_STATE_PLAYING);

4
packages/gstreamer/src/gst.pp
View File

@ -171,8 +171,8 @@ Type
{$i gsttypefindfactory.inc}
procedure gst_init(argc:Plongint; argv:PPPchar);cdecl;external gstreamerlib name 'gst_init';
function gst_init_check(argc:Plongint; argv:PPPchar; err:PPGError):Tgboolean;cdecl;external gstreamerlib name 'gst_init_check';
procedure gst_init(argc:Plongint; argv:PPPAnsiChar);cdecl;external gstreamerlib name 'gst_init';
function gst_init_check(argc:Plongint; argv:PPPAnsiChar; err:PPGError):Tgboolean;cdecl;external gstreamerlib name 'gst_init_check';
function gst_is_initialized:Tgboolean;cdecl;external gstreamerlib name 'gst_is_initialized';
function gst_init_get_option_group:PGOptionGroup;cdecl;external gstreamerlib name 'gst_init_get_option_group';
procedure gst_deinit;cdecl;external gstreamerlib name 'gst_deinit';

16
packages/gstreamer/src/gstcaps.inc
View File

@ -42,7 +42,7 @@
(* Const before type ignored *)
T_GstStaticCaps = record
caps : PGstCaps;
_string : Pchar;
_string : PAnsiChar;
_gst_reserved : array[0..3] of Tgpointer;
end;
TGstStaticCaps = T_GstStaticCaps;
@ -107,13 +107,13 @@
function gst_caps_new_any:PGstCaps;cdecl;external gstreamerlib name 'gst_caps_new_any';
(* Const before type ignored *)
function gst_caps_new_empty_simple(media_type:Pchar):PGstCaps;cdecl;external gstreamerlib name 'gst_caps_new_empty_simple';
function gst_caps_new_empty_simple(media_type:PAnsiChar):PGstCaps;cdecl;external gstreamerlib name 'gst_caps_new_empty_simple';
(* Const before type ignored *)
(* Const before type ignored *)
function gst_caps_new_simple(media_type:Pchar; fieldname:Pchar; args:array of const):PGstCaps;cdecl;external gstreamerlib name 'gst_caps_new_simple';
function gst_caps_new_simple(media_type:PAnsiChar; fieldname:PAnsiChar; args:array of const):PGstCaps;cdecl;external gstreamerlib name 'gst_caps_new_simple';
function gst_caps_new_simple(media_type:Pchar; fieldname:Pchar):PGstCaps;cdecl;external gstreamerlib name 'gst_caps_new_simple';
function gst_caps_new_simple(media_type:PAnsiChar; fieldname:PAnsiChar):PGstCaps;cdecl;external gstreamerlib name 'gst_caps_new_simple';
function gst_caps_new_full(struct1:PGstStructure; args:array of const):PGstCaps;cdecl;external gstreamerlib name 'gst_caps_new_full';
@ -163,15 +163,15 @@
(* Const before type ignored *)
(* Const before type ignored *)
procedure gst_caps_set_value(caps:PGstCaps; field:Pchar; value:PGValue);cdecl;external gstreamerlib name 'gst_caps_set_value';
procedure gst_caps_set_value(caps:PGstCaps; field:PAnsiChar; value:PGValue);cdecl;external gstreamerlib name 'gst_caps_set_value';
(* Const before type ignored *)
procedure gst_caps_set_simple(caps:PGstCaps; field:Pchar; args:array of const);cdecl;external gstreamerlib name 'gst_caps_set_simple';
procedure gst_caps_set_simple(caps:PGstCaps; field:PAnsiChar; args:array of const);cdecl;external gstreamerlib name 'gst_caps_set_simple';
procedure gst_caps_set_simple(caps:PGstCaps; field:Pchar);cdecl;external gstreamerlib name 'gst_caps_set_simple';
procedure gst_caps_set_simple(caps:PGstCaps; field:PAnsiChar);cdecl;external gstreamerlib name 'gst_caps_set_simple';
(* Const before type ignored *)
procedure gst_caps_set_simple_valist(caps:PGstCaps; field:Pchar; varargs:Tva_list);cdecl;external gstreamerlib name 'gst_caps_set_simple_valist';
procedure gst_caps_set_simple_valist(caps:PGstCaps; field:PAnsiChar; varargs:Tva_list);cdecl;external gstreamerlib name 'gst_caps_set_simple_valist';
(* Const before type ignored *)
function gst_caps_foreach(caps:PGstCaps; func:TGstCapsForeachFunc; user_data:Tgpointer):Tgboolean;cdecl;external gstreamerlib name 'gst_caps_foreach';

4
packages/gstreamer/src/gstelement.inc
View File

@ -71,8 +71,8 @@ Type
TGstElement_queueautoptr = PGQueue;
function gst_make_element_message_details(name:Pchar; args:array of const):PGstStructure;cdecl;external gstreamerlib name 'gst_make_element_message_details';
function gst_make_element_message_details(name:Pchar):PGstStructure;cdecl;external gstreamerlib name 'gst_make_element_message_details';
function gst_make_element_message_details(name:PAnsiChar; args:array of const):PGstStructure;cdecl;external gstreamerlib name 'gst_make_element_message_details';
function gst_make_element_message_details(name:PAnsiChar):PGstStructure;cdecl;external gstreamerlib name 'gst_make_element_message_details';
procedure gst_element_class_add_pad_template(klass:PGstElementClass; templ:PGstPadTemplate);cdecl;external gstreamerlib name 'gst_element_class_add_pad_template';

4
packages/gstreamer/src/gstregistry.inc
View File

@ -93,10 +93,10 @@
function gst_registry_find_feature(registry:PGstRegistry; name:Pgchar; _type:TGType):PGstPluginFeature;cdecl;external gstreamerlib name 'gst_registry_find_feature';
(* Const before type ignored *)
function gst_registry_lookup(registry:PGstRegistry; filename:Pchar):PGstPlugin;cdecl;external gstreamerlib name 'gst_registry_lookup';
function gst_registry_lookup(registry:PGstRegistry; filename:PAnsiChar):PGstPlugin;cdecl;external gstreamerlib name 'gst_registry_lookup';
(* Const before type ignored *)
function gst_registry_lookup_feature(registry:PGstRegistry; name:Pchar):PGstPluginFeature;cdecl;external gstreamerlib name 'gst_registry_lookup_feature';
function gst_registry_lookup_feature(registry:PGstRegistry; name:PAnsiChar):PGstPluginFeature;cdecl;external gstreamerlib name 'gst_registry_lookup_feature';
(* Const before type ignored *)
function gst_registry_check_feature_version(registry:PGstRegistry; feature_name:Pgchar; min_major:Tguint; min_minor:Tguint; min_micro:Tguint):Tgboolean;cdecl;external gstreamerlib name 'gst_registry_check_feature_version';

18
packages/gstreamer/src/gststructure.inc
View File

@ -147,13 +147,13 @@
(* Const before type ignored *)
(* Const before type ignored *)
function gst_structure_get_valist(structure:PGstStructure; first_fieldname:Pchar; args:Tva_list):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_get_valist';
function gst_structure_get_valist(structure:PGstStructure; first_fieldname:PAnsiChar; args:Tva_list):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_get_valist';
(* Const before type ignored *)
(* Const before type ignored *)
function gst_structure_get(structure:PGstStructure; first_fieldname:Pchar; args:array of const):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_get';
function gst_structure_get(structure:PGstStructure; first_fieldname:PAnsiChar; args:array of const):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_get';
function gst_structure_get(structure:PGstStructure; first_fieldname:Pchar):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_get';
function gst_structure_get(structure:PGstStructure; first_fieldname:PAnsiChar):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_get';
(* Const before type ignored *)
function gst_structure_id_get_valist(structure:PGstStructure; first_field_id:TGQuark; args:Tva_list):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_id_get_valist';
@ -283,25 +283,25 @@
function gst_structure_from_string(_string:Pgchar; end_:PPgchar):PGstStructure;cdecl;external gstreamerlib name 'gst_structure_from_string';
(* Const before type ignored *)
function gst_structure_fixate_field_nearest_int(structure:PGstStructure; field_name:Pchar; target:longint):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_nearest_int';
function gst_structure_fixate_field_nearest_int(structure:PGstStructure; field_name:PAnsiChar; target:longint):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_nearest_int';
(* Const before type ignored *)
function gst_structure_fixate_field_nearest_double(structure:PGstStructure; field_name:Pchar; target:double):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_nearest_double';
function gst_structure_fixate_field_nearest_double(structure:PGstStructure; field_name:PAnsiChar; target:double):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_nearest_double';
(* Const before type ignored *)
function gst_structure_fixate_field_boolean(structure:PGstStructure; field_name:Pchar; target:Tgboolean):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_boolean';
function gst_structure_fixate_field_boolean(structure:PGstStructure; field_name:PAnsiChar; target:Tgboolean):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_boolean';
(* Const before type ignored *)
(* Const before type ignored *)
function gst_structure_fixate_field_string(structure:PGstStructure; field_name:Pchar; target:Pgchar):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_string';
function gst_structure_fixate_field_string(structure:PGstStructure; field_name:PAnsiChar; target:Pgchar):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_string';
(* Const before type ignored *)
(* Const before type ignored *)
(* Const before type ignored *)
function gst_structure_fixate_field_nearest_fraction(structure:PGstStructure; field_name:Pchar; target_numerator:Tgint; target_denominator:Tgint):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_nearest_fraction';
function gst_structure_fixate_field_nearest_fraction(structure:PGstStructure; field_name:PAnsiChar; target_numerator:Tgint; target_denominator:Tgint):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field_nearest_fraction';
(* Const before type ignored *)
function gst_structure_fixate_field(structure:PGstStructure; field_name:Pchar):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field';
function gst_structure_fixate_field(structure:PGstStructure; field_name:PAnsiChar):Tgboolean;cdecl;external gstreamerlib name 'gst_structure_fixate_field';
procedure gst_structure_fixate(structure:PGstStructure);cdecl;external gstreamerlib name 'gst_structure_fixate';

4
packages/gstreamer/src/gsttypefind.inc
View File

@ -57,9 +57,9 @@
(* Const before type ignored *)
(* Const before type ignored *)
procedure gst_type_find_suggest_simple(find:PGstTypeFind; probability:Tguint; media_type:Pchar; fieldname:Pchar; args:array of const);cdecl;external gstreamerlib name 'gst_type_find_suggest_simple';
procedure gst_type_find_suggest_simple(find:PGstTypeFind; probability:Tguint; media_type:PAnsiChar; fieldname:PAnsiChar; args:array of const);cdecl;external gstreamerlib name 'gst_type_find_suggest_simple';
procedure gst_type_find_suggest_simple(find:PGstTypeFind; probability:Tguint; media_type:Pchar; fieldname:Pchar);cdecl;external gstreamerlib name 'gst_type_find_suggest_simple';
procedure gst_type_find_suggest_simple(find:PGstTypeFind; probability:Tguint; media_type:PAnsiChar; fieldname:PAnsiChar);cdecl;external gstreamerlib name 'gst_type_find_suggest_simple';
function gst_type_find_get_length(find:PGstTypeFind):Tguint64;cdecl;external gstreamerlib name 'gst_type_find_get_length';