[Delphi 2010] Winsock API 2.2 - Filemanager

[Astat]

Zitat von DarkItachi:

..Ich will dabei aber Winsock API benutzen und nicht irgendeine Komponente!...
... wie der Server .. Ordnerliste sendet und .. Client sie dann in einen ShellListView einfügt?
Am besten wäre ein kleiner Code für den Server!^^

Hallo DarkItachi, anbei Native Sample.

NetBookServer.dpr und NetBookClient.dpr

IpAdresse, Port, und die zu übertragenden Directory Listings, sind in untenstehenden Codeabschnitten änderbar.

Delphi-Quellcode:

    //-- Kommandos der Clients auswerten
    if sCommand = 'OrdnerlisteErstellen' then
      DoSearch('C:\lazarus\test\*.*') else
    if sCommand = 'FOO' then else
    if sCommand = 'BAR' then else
      _ms.Write(DEFAULT_RESPONSE, Length(DEFAULT_RESPONSE));

  with SyncServerStartUpStruct do begin
    Port          := 8088;         //-- Server Listening Port
    ThreadsPerCPU := 1;            //-- Threads pro CPU
    OnData        := OnDataProc;   //-- Callback für Daten
    OnError       := OnErrorProc;  //-- Callback bei Errors
  end;

  with SyncClientStruct do begin
    Port    := 8088;
    Host    := PChar('127.0.0.1');
    ptrData := outBuffer;
    cbSize  := outSize;
  end;

Die Daten nun einfach in eine TreeView Komponente einfügen.
Für einen Remote-Directory Browser ist eine ShelllistView nicht geeignet.

lg. Astat