Entwickler-Ecke

Internet / Netzwerk - ftp ordner anlegen und überprüfen


crossit - Mo 14.12.09 18:16
Titel: ftp ordner anlegen und überprüfen
tach alle zusammen
habe folgendes problem ich möchte ein oder mehrere verzeichnis erstellen und daraufhin überprüfen ob sie existieren aber eher nur gucken das sie existrieren und dannach reinchangen und eine datei reinhochzuladen jedoch funzt das net so wie ich will...
zb
ch erstelle eine datei die später hochgeladen werden soll.
zuerst connecte ich zum ftp server und schaue nach ob der ordner ' blubb' existiert. wenn er nicht existiert lege ich ihn an. dannach change ich darein und schaue wieder ob es den ordner 'blubb2' gibt. wenn nicht anlegen und dann wieder reinchangen und dort soll dann ein die erstellte datei hochgeladen werden.
ordner erstellen , changen und hochladen ist klar jedoch nicht mit welchen funktionen ich das alles uberprüfe


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
procedure tform1.putten_uploaden;
var
MyIdFTP: TIdFTP;

begin
myidftp := tidftp.Create;
myidftp.Host:= 'ftp.g.g.ohost.de';
  myidftp.Username:='g';
  myidftp.Password:='k';
  myidftp.Connect;
  if myidftp.Connected then
  try
  myidftp.MakeDir('Sebst');
  except
  myidftp.ChangeDir('Sebst');
  try
  myidftp.MakeDir('putten');
  myidftp.Put('putten' + datum.Text+ '.txt');
  except
  myidftp.ChangeDir('putten');
  myidftp.Put('C:\putten' + datum.Text+ '.txt');
  end;


Xentar - Mo 14.12.09 21:10

und "was" funktioniert daran nicht? In welcher Zeile bleibt er hängen?
Außerdem solltest dir mal anschauen, wofür der Except Block gedacht ist.. sicher nicht für sowas ;) Man kann bestimmt auch einfach abfragen, ob es ein Verzeichnis gibt oder nicht.


crossit - Mo 14.12.09 22:10

also was daran nicht funktioniert ist , dass es die ordner nicht erstellt und die datei überhauptnicht hochläd-.-
was soll ich den anstatt except nehmen? bin nicht gerade der delphi experte


Xentar - Di 15.12.09 23:18

Wir sind hier übrigens schon etwas weiter..
http://forum.delphi-treff.de/showthread.php?t=28025