Comment convertir ça en Delphi

Signaler
Messages postés
1
Date d'inscription
mardi 29 avril 2003
Statut
Membre
Dernière intervention
11 octobre 2009
-
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
-
Salut : comment convertir ça en Delphi :
UCHAR FoulString[] = "foul"; 

BOOL 
ScanBuffer ( 
__in_bcount(BufferSize) PUCHAR Buffer, 
__in ULONG BufferSize 
) 
/*++ 

Routine Description 

Scans the supplied buffer for an instance of FoulString. 

Note: Pattern matching algorithm used here is just for illustration purposes, 
there are many better algorithms available for real world filters 

Arguments 

Buffer - Pointer to buffer 
BufferSize - Size of passed in buffer 

Return Value 

TRUE - Found an occurrence of the appropriate FoulString 
FALSE - Buffer is ok 

--*/ 
{ 
PUCHAR p; 
ULONG searchStringLength = sizeof(FoulString) - sizeof(UCHAR); 

for (p = Buffer; 
p <= (Buffer + BufferSize - searchStringLength); 
p++) { 

if (RtlEqualMemory( p, FoulString, searchStringLength )) { 

printf( "Found a string\n" ); 

// 
// Once we find our search string, we're not interested in seeing 
// whether it appears again. 
// 

return TRUE; 
} 
} 

return FALSE; 
} 



Merçi

5 réponses

Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
14
Tu trouveras des tutoriaux sur :
http://turbo-pascal.developpez.com/tutoriel/convertion_pascal_c/
http://www.delphi-jedi.org/APICONVTEAMS

et un outil de convertion de Header C vers le Pascal sur :
http://www.freepascal.org/tools/h2pas.html

De rien
Messages postés
251
Date d'inscription
dimanche 7 décembre 2003
Statut
Membre
Dernière intervention
11 novembre 2016

Bonjour

en ce creusant un peut le neurone

A+
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
14
fbalien : réponse ironique inutile à souhait avec une faute de français de niveau primaire. Abstient toi la prochaine fois
Messages postés
991
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
29 août 2013
7
rectificatif julio : avec 2 fautes de niveau primaire
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
14
Au temps pour moi !