Remote Process List

[Zero1]

hi all

also wie ich die processe aufliste weis ich ja aber wie realisiere ich das per remote??

A:Client
B:Server

A verbindet sich zu B, A clickt auf button Refresh und bekommt die processe von B in einer listview aufgelistet! und wie stell ich das nun an??

für local wäre diese source

Delphi-Quellcode:

uses TLHelp32;

procedure Tmasta.btnRefreshProcessClick(Sender: TObject);
var
  i: Integer;
  bContinue: BOOL;
  NewItem: TListItem;
begin
  ListView2.Items.Clear;
  aSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  aProcessEntry32.dwSize := SizeOf(aProcessEntry32);
  bContinue := Process32First(aSnapshotHandle, aProcessEntry32);
  while Integer(bContinue) <> 0 do
  begin
    NewItem := ListView2.Items.Add;
    NewItem.Caption := ExtractFileName(aProcessEntry32.szExeFile);
    NewItem.subItems.Add(IntToHex(aProcessEntry32.th32ProcessID, 4));
    NewItem.subItems.Add(aProcessEntry32.szExeFile);
    bContinue := Process32Next(aSnapshotHandle, aProcessEntry32);
  end;
  CloseHandle(aSnapshotHandle);
end;

was müsst ich alles verändern damit das per Remote klappt?? danke schon im vorraus

Zero1

[Christian Seehase]

Moin Zero,

Du lässt auf dem Remote Rechner auf Anforderung eine lokale Liste erstellen und schickst diese an den Client zurück.

[Zero1]

hiho hase

sample bidde *g*
bekomme das nicht so hin

zero1

[Christian Seehase]

Moin Zero,

dafür hab' ich kein Beispiel zur Hand.

Beispiele für TidTCPClient/TidTCPServer müsstest Du hier reichlich finden, ausserdem werden bei den Indys auch Demos mitgeliefert.

Zudem musst Du Dir wohl auch erstmal ein Format einfallen lassen, in dem Du die Prozessdaten für die Übertragung speichern kannst.

Statt die Daten in einem ListView zu speichern, könntest Du sie auch alle in einem String mit Trennzeichen (z.B. |) speichern Den müsstest Du dann auf der anderen Seite nur wieder auseinander nehmen (z.B. mit StringReplace)

[Zero1]

listbox sollte auch gehen??
bei den anwendung funkt es auch per listbox!


naja bei den bsp is nix hilfreiches

zero1

[Christian Seehase]

Moin Zero,

Zitat von Zero1:

naja bei den bsp is nix hilfreiches

Komisch. Ich hab' gerade mal nach TidTCPClient gesucht, und dabei einen Thread gefunden, in dem ich selber ein Beispiel für das Verschicken eines Strings gepostet habe.

[Luckie]

Kuck dir hier mal PView2 an: http://www.assarbad.org/de/sources.shtml Dürfte mit Source sein.