Discussion :

[T-B]

Bonjour,

j'aimerais integrer une fonction dans une dll pour être utilisé avec inno

dont voici le code. Laquelle de ces versions est la meilleure

V1.0

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
function IsChaineNombre(P: Pchar): Boolean; stdcall;
begin
  Result := False;
  while P^ <> #0 do
  begin
    if not (P^ in ['0'..'9']) then Exit;
    Inc(P);
  end;
  Result := True;
end;

V2.0

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function IsChaineNombre(const S: string): Boolean; stdcall;
var
  P: PChar;
begin
  P      := Pchar(S);
  Result := False;
  while P^ <> #0 do
  begin
    if not (P^ in ['0'..'9']) then Exit;
    Inc(P);
  end;
  Result := True;
end;

doit ton passer en paramètre un string ou un pchar dans une dll?

merci

[ouiouioui]

si ta que cette fonction dans ta dll et bien tu met ta fonction dans la partie code de IS sa sera plus simple.

[DAB.cz]

doit ton passer en paramètre un string ou un pchar dans une dll?

Vois l'exemple ...\InnoSetup5\Examples:

Code :

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

1
2
3
//importing a custom DLL function
procedure MyDllFunc(hWnd: Integer; lpText, lpCaption: String; uType: Cardinal);
external 'MyDllFunc@files:MyDll.dll stdcall';

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
library MyDll;
 
uses
  Windows;
 
procedure MyDllFunc(hWnd: Integer; lpText, lpCaption: PChar; uType: Cardinal); stdcall;
begin
  MessageBox(hWnd, lpText, lpCaption, uType);
end;
 
exports MyDllFunc;
 
begin
end.

[T-B]

Merci, mais ce n'est pas pour la fonction en elle même mais pour une histroire de syntaxe dans une dll entre string et pchar.

quel est la bonne syntaxe pour qu'une dll soit compatible


Merci

[DAB.cz]

Merci, mais ce n'est pas pour la fonction en elle même mais pour une histroire de syntaxe dans une dll entre string et pchar.

quel est la bonne syntaxe pour qu'une dll soit compatible


Merci

????
Tout est dans l'exemple - la variable lpCaption!