procedure TForm3.Button1Click(Sender: TObject);
var host,user,maindir,chd,password,dir,ph,pp:
string;
var i:integer;
begin
//Titel ändern
form3.Caption:='
Upload - In Progress';
//Button sperren
button1.Enabled:=false;
//Settings
//ini
ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'
settings.ini');
user:=ini.ReadString('
Websettings','
username','
');
password:=ini.ReadString('
Websettings','
password','
');
host:=ini.ReadString('
Websettings','
host','
');
ph:=ini.ReadString('
Websettings','
proxyhost','
');
pp:=ini.ReadString('
Websettings','
proxyport','
');
if pp='
'
then pp:='
0';
maindir:=ini.ReadString('
Websettings','
dir','
');
//Upload
//FTP Zuweisungen und Einstellungen
IdFTP1.Host:=host;
IdFTP1.Username:=user;
IdFTP1.Password:=password;
IdFTP1.ProxySettings.Host:=ph;
IdFTP1.ProxySettings.Port:=StrToInt(pp);
//Verbinden
idftp1.Connect(true,500);
//In das Galerieverzeichnis wechseln
IdFTP1.ChangeDir(maindir);
//Im Galerieverzeichnis den Ordner erstellen
idftp1.MakeDir(dir);
//In den Ordner wechseln
chd:=dir;
label2.caption:=chd;
IdFTP1.ChangeDir(chd);
//Thumbnailordner erstellen
idftp1.MakeDir('
tn');
//Title Datei verschieben
idFTP1.Put(path+'
title.txt', '
title.txt',false);
listbox1.Items.Add('
title.txt');
//Normale Bilder verschieben
for i:=0
to filelistbox1.Count
do
begin
idFTP1.Put(path+filelistbox1.Items.Strings[i], filelistbox1.Items.Strings[i],false);
listbox1.Items.Add(filelistbox1.Items.Strings[i]);
end;
//Filelistbox auf Thumbnailverzeichnis stellen
filelistbox1.Directory:=path+'
\tn';
//Auf dem Server in Thumb Verzeichnis wechseln
idftp1.ChangeDir('
tn');
//Thumbs verschieben
for i:=0
to filelistbox1.Count
do
begin
idFTP1.Put(path+'
\tn\'+filelistbox1.Items.Strings[i], filelistbox1.Items.Strings[i],false);
listbox1.Items.Add(filelistbox1.Items.Strings[i]);
end;
//Ausgabe der Verschobenen Dateien
label1.Caption:=inttostr((2*filelistbox1.count)+1) + '
Files loaded to Server';
//Verbindung trennen
IdFTP1.Quit;
//Titel ändern
form3.Caption:='
Upload - Ready';
end;