Problème de conversion de NSString en string

Version imprimable

Bonjour à tous,

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

Code:

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 ?

Citation:

Envoyé par free07

Bonjour à tous,

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

Code:

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()

19/11/2012, 09h57
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 :D
19/11/2012, 11h58
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:

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...
19/11/2012, 14h25
free07
Citation:
Envoyé par 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:

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 )

Citation:

Envoyé par Paul TOTH

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.