Přikazy za exe – Delphi – Fórum – Programujte.com

Zdravim všechny tady a prosím o pomoc.
Jsem začatečnik a rad bych nějaky FTP server.
Nejrychlejši zpusob pro mně je použit již vytvořene knihovny od Synapse.
Jelikož jsem ten začatečnik tak nezvladnu aby ten FTP server dovedl sdilet vice disku najednou a určitě to bude dost složite.
Proto mně napadlo zda by šlo k tomu FTP servru přiřazovat disky pomoci přikazu za exe.
Třeba takto Ftp server.exe /C

Pomužete, poradite

http://synapse.ararat.cz

Nejrychlejši zpusob pro mně je použit již vytvořene knihovny od Synapse.

Jelikož jsem ten začatečnik tak nezvladnu aby ten FTP server dovedl sdilet vice disku najednou a určitě to bude dost složite.

Proto mně napadlo zda by šlo k tomu FTP servru přiřazovat disky pomoci přikazu za exe.
Třeba takto Ftp server.exe /C

Když už máš server, tak si "nasdílíš" co a jak chceš. Tohle je to poslední, co by bylo složité.

http://synapse.ararat.cz/files/contrib/ftpserv.zip

Pokud by si chtěl, aby si disky aplikace ošahala sama, tak můžeš zkusit funkci GetDriveType (http://www.delphitricks.com/source-code/systeminfo/get_the_drive_type.html) a samozřejmě nesmíš čekat, že to za tebe někdo celé napíše, i když stát se může všechno :)

Proto jsem napsal "když už máš server". Pak snad víš, co a jak zpracováváš a můžeš to dělat, jak se ti zlíbí. V tom odkazovaném programu třeba takhle:
Přidáš funkci, pro výpis disků.

function TFtpServerThread.builddrivelist(): string;

var

  Drives: array[0..128] of char;

  pDrive: PChar;

  r: LongWord;

begin

  r := GetLogicalDriveStrings(SizeOf(Drives), Drives);

  if (r = 0) or (r > SizeOf(Drives)) then Exit;

  pDrive := Drives;

  while pDrive^ <> #0 do

  begin

    result := result + 'drwxrwxrwx   1 root     root         1   1 Jan 2000  drive' + pDrive^ + CRLF;

    inc(pDrive, 4);

  end;

end;

function TFtpServerThread.buildlist(value: string): string;

var

  SearchRec: TSearchRec;

  r: integer;

  s: string;

begin

  result := '';

  if value = '' then

    exit;

  if value = '\' then

  begin

    result := builddrivelist();

    exit;

  end;

  if value[length(value)] <> '\' then

...
A adekvátně upravíš funkci, která zjišťuje umístění na disku:
function TFtpServerThread.buildrealname(value: string): string;

begin

  value := replacestring(value, '..', '.');

  value := replacestring(value, '/', '\');

  if value = '\' then

    result := value

  else if (length(value) >= 7) and (leftstr(value, 6) = '\drive') and (value[7] in ['A'..'Z']) then

    result := value[7] + ':\' + copy(value, 8, length(value))

  else

    result := '.\data' + value;

end;

Takže ano, je to jednoduché a ano, pomůžu, pokud přijdeš s konkrétním problémem.