Discussion :

[free07]

Bonjour à tous,

J'ai un problème de conversion de NSString en string :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
type
  TDM_AccesBase = class(TDataModule)
  procedure DataModuleCreate(Sender: TObject);
  private
    {$IFDEF FPC}
      pAB_sFileName : NSString;
    {$ENDIF}
...
procedure TDM_AccesBase.DataModuleCreate(Sender: TObject);
begin
{$IFDEF FPC}
  pAB_sFileName := MyDirectory.stringByAppendingPathComponent(NSSTR(PChar('/MyDB.sqlite')));
{$ENDIF}
end;
 
{$IFDEF FPC}
function TDM_AccesBase.MyDirectory : NSString;
var
  paths : NSArray;
  fileName : NSString;
 
begin
  paths := NSSearchPathForDirectoriesInDomains(NSDocumentDirectory, NSUserDomainMask, true);
  fileName := paths.objectAtIndex(0);
  Result := fileName;
end;
{$ENDIF}
 
...
 
var NomFichier : string;
 
begin
{$IFDEF FPC}
	try
 NomFichier := pAB_sFileName.UTF8string;  <---- ça plante la
....

Pourquoi cela plante à l'affectation de la variable NomFichier, pourtant UTF8string fait la conversion, non ?

[Paul TOTH]

Bonjour à tous,

J'ai un problème de conversion de NSString en string :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
type
  TDM_AccesBase = class(TDataModule)
  procedure DataModuleCreate(Sender: TObject);
  private
    {$IFDEF FPC}
      pAB_sFileName : NSString;
    {$ENDIF}
...
procedure TDM_AccesBase.DataModuleCreate(Sender: TObject);
begin
{$IFDEF FPC}
  pAB_sFileName := MyDirectory.stringByAppendingPathComponent(NSSTR(PChar('/MyDB.sqlite')));
{$ENDIF}
end;
 
{$IFDEF FPC}
function TDM_AccesBase.MyDirectory : NSString;
var
  paths : NSArray;
  fileName : NSString;
 
begin
  paths := NSSearchPathForDirectoriesInDomains(NSDocumentDirectory, NSUserDomainMask, true);
  fileName := paths.objectAtIndex(0);
  Result := fileName;
end;
{$ENDIF}
 
...
 
var NomFichier : string;
 
begin
{$IFDEF FPC}
	try
 NomFichier := pAB_sFileName.UTF8string;  <---- ça plante la
....

Pourquoi cela plante à l'affectation de la variable NomFichier, pourtant UTF8string fait la conversion, non ?

perso j'utilise getCharacters_range()

[free07]

Bonjour Paul,

Merci pour ta suggestion mais je n'arrive pas à trouver de la doc qui parle de getCharacters_range ( même dans la doc library d'apple )
Après des heures de recherche, j'ai rien trouvé dans la doc d'apple et sur google seulement un ou deux exemples mais il sont en objective c et parle de getCharacters:range

Apparemment c'est getCharacters_range(buffer, range) ??

Buffer est un pointeur sur la chaine de caractère convertit et range le nombre de caractères à convertir ??

Mais comment on l'utilises réellement, aurais tu un exemple à me donner ou mieux comment l'utiliserais tu dans mon code ?

Merci d'avance

[Paul TOTH]

je l'utilise sous Delphi XE2 (string = UnicodeString) via objc_msgSend()...donc je ne connais pas la syntaxe FreePascal, mais le principe est là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
function NSStringToStr(NS: NSString): string;
var
  R: NSRange;
begin
  R.location := 0;
  R.length := NS.Length;
  SetLength(Result, R.length);
  NS.getCharacters(@Result[1], R);
end;

mais je serais surpris que FreePascal ne propose pas une fonction toute faite pour cela...

[free07]

je l'utilise sous Delphi XE2 (string = UnicodeString) via objc_msgSend()...donc je ne connais pas la syntaxe FreePascal, mais le principe est là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
function NSStringToStr(NS: NSString): string;
var
  R: NSRange;
begin
  R.location := 0;
  R.length := NS.Length;
  SetLength(Result, R.length);
  NS.getCharacters(@Result[1], R);
end;

Ok, en fait c'est getCharacters, je comprend mieux ( j'ai cherché avec getCharacters_rang )

j
mais je serais surpris que FreePascal ne propose pas une fonction toute faite pour cela...

Et bien j'ai cherché et j'ai pas trouvé mais en même temps, je n'ai pas de doc exhaustive sur free pascal.
Merci pour ton aide.