Problème avec DIM et ADR

hello Klaus
i'm not a pascal /delphi coder but will this work ?

function DoItWithString(var s1: pchar): integer; stdcall; export;

ret% = DLL_CALL1("DoItWithString",adr(txt$))

now s1 should point directly to the first char of string txt$

is it right ?

DJ

Hello DJ !

example C:

Code:: #include "dll.h"
#include <windows.h>
#include <stdio.h>
#include <stdlib.h>

DLLIMPORT int __stdcall NardoReadStr (char **toto,int length)
{
char Message[128];
sprintf(Message,"1st char is: %c\n",**toto);
MessageBox(NULL,Message,"Param",MB_ICONINFORMATION);
strncpy(Message,*toto,length);
MessageBox(NULL,Message,"String",MB_ICONINFORMATION);
return 0;
}

Panoramic call :

Code:: dim i%,txt$
txt$="essai de passage de chaine"
dll_on "ReadnByte.dll"
i%=dll_call2("NardoReadStr",adr(txt$),len(txt$))
dll_off

@d.j.peters: YES, this is exact - your code works as suggested. Thanks for the fine tip !

Admin Nombre de messages : 2394 Date d'inscription : 28/05/2007

Je n'ai pas pu reproduire l'exemple donné par Nardo26.
J'obtiens les mêmes valeurs, quel que soit l'ordre de déclaration des 2 variables, et heureusement.

Et pourtant... sur mon PC et apparemment sur celui de Klaus le pb demeure...

Problème avec DIM et ADR - Page 2 Dim_ad10

Dans le doute (print) j'ai viré les parenthèses les $ et les points virgules....

Code:: dim txt1$,pAdr1%
dim pAdr%,txt$

txt$="Chaine 1":txt1$="Chaine 2"

pAdr%=adr(txt$)
pAdr1%=adr(txt1$)

print "pAdr = "+str$(pAdr%)
print "adr txt = "+str$(adr(txt$))
print "pAdr1 = "+str$(pAdr1%)
print "adr txt1 = "+str$(adr(txt1$))

idem, pAdr1% est différent de adr(txt1$)

Je confirme. Je n'ai bien sûr pas les mêmes chiffres, mais la même différence. C'est vraiment bizarre...

» Problème avec select case Probleme réglé merci
» problème avec edit ou bien avec combo?
» Y-a-t'il un problème avec END?
» Problème avec GenerateMaskFragments.
» Problème avec 'dim'.