Créer un array of AnsiChar d'un String

Version imprimable

Bonjour,

me voilà encore avec ma DLL pas bien documentée.

Alors, je dois envoyer à une fonction un string nul terminated, du moins un pointeur.

J'arrive vie un for à remplir mon array of AnsiChar, puis après cela j'essaie de mettre un pointeur vers cet array, mais là, je trouve que le résultat est un peu spécial.

La valaur du pointeur est égale au string...

j'explique, si mon array vaut '0807012012AE', et bien, la valeur de mon pointeur sera lui aussi de '0807012012AE'. mais je m'attendrais à trouver une adresse mémoire ? non ??

voici ma fonction
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 procedure TForm1.b_set_timeClick(Sender: TObject); var res3, i: integer; temp_time: String; t_now: TDateTime; pSetTime: PAnsiChar; SetTime: array[1..15] of AnsiChar; t_year, t_month, t_day, t_dayw, t_hour, t_min, t_sec: String; myYear, myMonth, myDay, myHour, myMin, mySec, myMilli: word; begin device_open(); t_now := now; DecodeDateTime(t_now, myYear, myMonth, myDay, myHour, myMin, mySec, myMilli); t_year := IntToHex(myYear-2000, 2); t_month := IntToHex(myMonth, 2); t_day := IntToHex(myDay, 2); t_dayw := IntToHex(DayOfTheWeek(t_now), 2); t_hour := IntToHex(myHour, 2); t_min := IntToHex(myMin, 2); t_sec := IntToHex(mySec, 2); temp_time := PAnsiChar(concat(t_year, t_month, t_day, t_dayw, t_hour, t_min, t_sec)); for i := 1 to 14 do begin SetTime[i] := temp_time[i]; end; SetTime[15] := #0; pSetTime := addr(SetTime[1]); res3 := WriteTime(dev_address, pSetTime); CloseCommPort(hCom); end;
Alors, est-ce que tout est correcte ?
Sinon, à la place de la déclaration du pointeur en tant que PAnsiChar, j'ai pensé à mettre une déclaration en Pointer ???

Est-ce mieux ?

ou plus simplement

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
 
procedure TForm1.b_set_timeClick(Sender: TObject);
var
  res3, i: integer;
  temp_time: String;
  t_now: TDateTime;
  SetTime: string;
  t_year, t_month, t_day, t_dayw, t_hour, t_min, t_sec: String;
  myYear, myMonth, myDay, myHour, myMin, mySec, myMilli: word;
begin
 
  device_open();
 
  t_now := now;
  DecodeDateTime(t_now, myYear, myMonth, myDay, myHour, myMin, mySec, myMilli);
 
  t_year := IntToHex(myYear-2000, 2);
  t_month := IntToHex(myMonth, 2);
  t_day := IntToHex(myDay, 2);
  t_dayw := IntToHex(DayOfTheWeek(t_now), 2);
  t_hour := IntToHex(myHour, 2);
  t_min := IntToHex(myMin, 2);
  t_sec := IntToHex(mySec, 2);
 
  SetTime := concat(t_year, t_month, t_day, t_dayw, t_hour, t_min, t_sec));
 
  res3 := WriteTime(dev_address, @SetTime[1]);
//  res3 := WriteTime(dev_address, PAnsiChar(SetTime));
  CloseCommPort(hCom);
 
end;

la chaine Delphi est conçu de sorte qu'on puisse passer le pointeur sur le premier caractère et la gérer comme une pchar car le zéro terminal est aussi inclu ! le transtypage en PChar fonctionne aussi très bien ...

sinon variante avec StrPLCopy (avec GetMem ou NewStr)

02/07/2008, 22h05
Nulenprogra

Ok, merci pour cette précisin.

Cela ne fonctionne pas pour ma fonction, mais cela doit être autre chose

pour ma question j'ai ma réponse, merci

Comment est déclaré WriteTime, est aussi lié à l'autre sujet, un pointeur c'est un pointeur, la seule particularité c'est qu'il voudrait modifier la valeur ... as-tu testé mon code pour dire qu'il ne fonctionne pas ?

'0807012012AE', ben c'est la valeur binaire, et Delphi, lorsqu'il voir un PChar ou un Array of Char, au déboggage, il affiche la chaine, c'est souvent ce que veux voir le développeur, la valeur du pointeur étant plus abstraite, même si parfois c'est utile de le savoir, ...
Code:

1 2 3 ShowMessage(pSetTime); // Delphi est malin, il va afficher la chaine ShowMessage(IntToStr(Integer(pSetTime))); // là c'est le pointeur
sinon autre variante, si tu pouvais aussi la tester ...
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 procedure TForm1.b_set_timeClick(Sender: TObject); var res3: integer; temp_time: String; SetTime: array[1..15] of AnsiChar; myYear, myMonth, myDay, myHour, myMin, mySec, myMilli: word; begin device_open(); DecodeDateTime(Now(), myYear, myMonth, myDay, myHour, myMin, mySec, myMilli); temp_time := IntToHex(myYear-2000, 2); + IntToHex(myMonth, 2); + IntToHex(myDay, 2); + IntToHex(DayOfTheWeek(t_now), 2); + IntToHex(myHour, 2); + IntToHex(myMin, 2); + IntToHex(mySec, 2); temp_time := concat(t_year, t_month, t_day, t_dayw, t_hour, t_min, t_sec); CopyMemory(@SetTime[1], @temp_time[1], 14); SetTime[15] := #0; res3 := WriteTime(dev_address, @SetTime[1]); CloseCommPort(hCom); end;

03/07/2008, 11h46
Nulenprogra

Oui, j'ai essayé ta solution avant de dire que cela ne va pas (je n'oserais jamais fâcher un troll...!!!!)

voici la déclaration de la fonction:

LONG PASCAL WriteTime(LPCSTR DevNo,LPCSTR pTime)

je vais essayer les autres solutions
03/07/2008, 11h58
Nulenprogra

Voilà,

j'ai essayé le code.

1) l'utilisation des + pour créer temp_time ne fonctionne pas

2) la fonction ne fonctionne toujours pas, mais je ne sais pas si le problème vient de ce que je passe, ou bien si la fonction à un autre problème.

le grand problème est que je n'ai pas d'aide sur la DLL, et la doc ne correspond pas toujours à la réalité
03/07/2008, 12h55
ShaiLeTroll

Citation:

Envoyé par Nulenprogra

Code:

LONG PASCAL WriteTime(LPCSTR DevNo,LPCSTR pTime)

et tu l'as déclaré comment en StdCall et string, comme dans l'autre sujet ? hum tu dois avoir des soucis

Et oui, un Troll en colère, ça casse tout sur son passage :aie:

ta doc n'a aucun problème, les prototypes sont simples, c'est juste que tu ne sais pas les traduire, ... peut-être reprendre par là !