simplen FTP-Server programmieren

[tequila beat]

Ich möchte einen simplen FTPServer programmieren
zur verfügung hab ich Die FPiette Combo oder die Indy9 combo. (D7)
Weiss jedoch absolut nicht wo ich anfangen soll.
Der Server soll anonymes Login oder 1 festgelegten Useraccount haben,
is aber erstmal nicht so wichtig.
wichtiger ist das man ein vorher festgelegtes verzeichnis listen und beliebige dateien daraus downloaden kann.
wäre für ein einfaches Template echt dankbar.

gruß Tequilabeat

[Horst M.Fußhöller]

Bei Indy ist doch ein sehr gutes Beispiel dabei, hast du das noch nicht gesehen?
oder
http://www.tutorials.delphi-source.de/indy/file004.shtml<br>
ein einfacher Download:<PRE>
procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
MyListing: TStringList;
begin
if TransferringData then Form1.idFTP1.Abort;
if Form1.IdFTP1.Connected then Form1.IdFTP1.Disconnect;
try
with IdFTP1 do begin
Connect;
if Connected then begin
ChangeDir('/test/leer/');
MyListing := TStringList.Create;
List(MyListing, '*.txt', True);

for i := 0 to DirectoryListing.Count - 1 do
with DirectoryListing[i] do begin

Application.ProcessMessages;
ProgressBar1.Max := Size;
Label1.Caption := 'Downloading ' + FileName + ' (' + IntToStr(Size) + ' bytes)';
if FileExists(Filename) then
Continue;
Get(FileName, DestinationFolder + '\' + FileName, True, True);
end;
Disconnect;
ProgressBar1.Max := 0;
Label1.Caption := '';
end; end;
except;
end;
end;</PRE&gt

[Tobias Hoffmann]

Hallo Horst,

er will n FTP-Server coden nicht einen FTP-Client! ;-