From 219a57d90501a86a137ddbc4b5cfe577c1b90a23 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= Date: Fri, 13 Jan 2023 22:49:40 +0100 Subject: [PATCH] * PChar -> PAnsichar --- packages/gstreamer/example/playmp3.pp | 4 ++-- packages/gstreamer/src/gst.pp | 4 ++-- packages/gstreamer/src/gstcaps.inc | 16 ++++++++-------- packages/gstreamer/src/gstelement.inc | 4 ++-- packages/gstreamer/src/gstregistry.inc | 4 ++-- packages/gstreamer/src/gststructure.inc | 18 +++++++++--------- packages/gstreamer/src/gsttypefind.inc | 4 ++-- 7 files changed, 27 insertions(+), 27 deletions(-) diff --git a/packages/gstreamer/example/playmp3.pp b/packages/gstreamer/example/playmp3.pp index da0c3dcfe3..14fa5007d3 100644 --- a/packages/gstreamer/example/playmp3.pp +++ b/packages/gstreamer/example/playmp3.pp @@ -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); diff --git a/packages/gstreamer/src/gst.pp b/packages/gstreamer/src/gst.pp index 5e994a7707..c36724c5f4 100644 --- a/packages/gstreamer/src/gst.pp +++ b/packages/gstreamer/src/gst.pp @@ -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'; diff --git a/packages/gstreamer/src/gstcaps.inc b/packages/gstreamer/src/gstcaps.inc index 9a15b3cc32..7b72c73e3c 100644 --- a/packages/gstreamer/src/gstcaps.inc +++ b/packages/gstreamer/src/gstcaps.inc @@ -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'; diff --git a/packages/gstreamer/src/gstelement.inc b/packages/gstreamer/src/gstelement.inc index 27cf9d58c2..54fab4ee33 100644 --- a/packages/gstreamer/src/gstelement.inc +++ b/packages/gstreamer/src/gstelement.inc @@ -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'; diff --git a/packages/gstreamer/src/gstregistry.inc b/packages/gstreamer/src/gstregistry.inc index 96022b4414..e9a2678752 100644 --- a/packages/gstreamer/src/gstregistry.inc +++ b/packages/gstreamer/src/gstregistry.inc @@ -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'; diff --git a/packages/gstreamer/src/gststructure.inc b/packages/gstreamer/src/gststructure.inc index f71568e442..9037dff2bf 100644 --- a/packages/gstreamer/src/gststructure.inc +++ b/packages/gstreamer/src/gststructure.inc @@ -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'; diff --git a/packages/gstreamer/src/gsttypefind.inc b/packages/gstreamer/src/gsttypefind.inc index 03494e36ea..cfcc853ba5 100644 --- a/packages/gstreamer/src/gsttypefind.inc +++ b/packages/gstreamer/src/gsttypefind.inc @@ -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';