Convertir un code builder C++ en Delphi

Version imprimable

18/09/2007, 17h44
ramanov

Convertir un code builder C++ en Delphi
salut
pourriez vous m'aider a traduire ce petit bout de code builder c++ vers delphi :
je déclare la structure suivante:
Code:

1 2 3 4 LVITEM lvi, *_lvi; char item[512]; char *_item ;
et le code est le suivant :
Code:

1 2 3 4 5 _lvi=(LVITEM*)VirtualAllocEx(process, NULL, sizeof(LVITEM), MEM_COMMIT, PAGE_READWRITE); _item=(char*)VirtualAllocEx(process, NULL, 512, MEM_COMMIT, PAGE_READWRITE);
je souhaite avoire l'equivalent de ce code en syntax delphi
c'est surtout le traduction d'utilisation des poiteurs qui me pose probléme
et merci.
18/09/2007, 18h31
ShaiLeTroll

VirtualAllocEx c'est dans Windows.pas
LVItem dans CommCtrl.pas

Je ne vois pas déclaration de structure (il manque typedef struct { ... } ...), je vois une déclaration d'une variable d'un type structuré

Code:

PLVITEM = ^TLVITEM;

et pour l'appel

Code:

_lvi := PLVITEM(VirtualAllocEx(process, NULL, sizeof(TLVITEM), MEM_COMMIT, PAGE_READWRITE));

bonjour

j'ai essayé mais ça na pas marcher,et je sais pas ou est le probléme
donc je vous donne le code complet;
ce code permet d'extraire les items d'une listview situé dans une application externe et les métre dans listbox de mon application

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
 
listview = lt ;// je met le handle de listview dan listview
 
int count=(int)SendMessage(listview, LVM_GETITEMCOUNT, 0, 0);
int i;
 
 
LVITEM lvi, *_lvi;
char item[512];
char *_item ;
unsigned long pid;
HANDLE process;
 
GetWindowThreadProcessId(listview, &pid);
process=OpenProcess(PROCESS_VM_OPERATION|PROCESS_VM_READ|
PROCESS_VM_WRITE|PROCESS_QUERY_INFORMATION, FALSE, pid);
 
_lvi=(LVITEM*)VirtualAllocEx(process, NULL, sizeof(LVITEM),
MEM_COMMIT, PAGE_READWRITE);
_item=(char*)VirtualAllocEx(process, NULL, 512, MEM_COMMIT,
PAGE_READWRITE);
 
lvi.cchTextMax=512;
 
for(i=0; i<count; i++) {
lvi.iSubItem=0;
lvi.pszText=_item;
WriteProcessMemory(process, _lvi, &lvi, sizeof(LVITEM), NULL);
SendMessage(listview, LVM_GETITEMTEXT, (WPARAM)i, (LPARAM)_lvi);
 
ReadProcessMemory(process, _item, item, 512, NULL);
 
 
listBox1->Items->Add(item); //*********** ici j'ajoute les items dans listBox1
}
VirtualFreeEx(process, _lvi, 0, MEM_RELEASE);
VirtualFreeEx(process, _item, 0, MEM_RELEASE);

je vous serai tres reconnaisant si vous me traduiser ce code en delphi;
et merci beaucoup.

met les uses que j'ai indiqué

J'ai quelques notions de C, mais pas de C++ (je ne comprends pas les déclarations de ton code par exemple), mais par contre, j'ai l'habitude des API Windows, donc ça peut fonctionner, je modifie le code à la volée, donc à toi de voir les erreurs de compile

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
39
var
  count: Integer;
  i: Integer;
  hlistview: HWND;
  lvi: TLVITEM; 
  _lvi: PLVITEM; // CommCtrl 
  Item: array[0..511] of char;
  _Item: PChar;
  pid: Cardinal;
  process: THANDLE;
begin
 
  hlistview := lt ;// je met le handle de listview dan listview
 
  count := SendMessage(hlistview, LVM_GETITEMCOUNT, 0, 0);
 
  GetWindowThreadProcessId(listview, @pid);
 
  process = OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE or PROCESS_QUERY_INFORMATION, FALSE, pid);
 
  _lvi := PLVITEM(VirtualAllocEx(process, NULL, sizeof(LVITEM), MEM_COMMIT, PAGE_READWRITE));
  _item := PCharVirtualAllocEx(process, NULL, 512, MEM_COMMIT, PAGE_READWRITE));
 
  lvi.cchTextMax := 512;
 
  for i := 0 to count - 1 do
  begin
    lvi.iSubItem := 0;
    lvi.pszText := _item;
    WriteProcessMemory(process, _lvi, @lvi, sizeof(LVITEM), NULL);
    SendMessage(listview, LVM_GETITEMTEXT, WPARAM(i), LPARAM(_lvi));
    ReadProcessMemory(process, _item, @item, 512, NULL);
 
 
    listBox1.Items.Add(item); // ici j'ajoute les items dans listBox1
  end;
  VirtualFreeEx(process, _lvi, 0, MEM_RELEASE);
  VirtualFreeEx(process, _item, 0, MEM_RELEASE);
end;

20/09/2007, 17h44
ramanov

merci

avec quelques petites modif ça marche trés bien,
merci beaucoup pour votre aide
21/09/2007, 14h47
ShaiLeTroll

Pour ma culture, quelles sont les corrections ?

Citation:

Pour ma culture, quelles sont les corrections ?

Arf !
Citation:
Rajoute " nbw, nbr: DWORD; " dans ta déclaration des variables, puis
Code:

1 2 3 WriteProcessMemory(process, _lvi, @lvi, 512{sizeof(LVI)}, nbw); //nbre de bytes written SendMessage(hlistview, LVM_GETITEMTEXT, WPARAM(i), LPARAM(_lvi)); ReadProcessMemory(process, _item, @item, 512, nbr); // nbre de bytes read
--
jp

21/09/2007, 18h02
ShaiLeTroll

Lol, c'est tout, ... Merci Jipé, Toujours fidèle au poste !

comme j'ai pondu le code sur le forum, je n'ai eu aucune vérif sur le var ...