[FTP] Daten austausch Programm mit macken.

[IngoD7]

Neue Frage, neuer Thread.

Und verkneife dir bitte, nach nicht mal einer Stunde ein Thema zu pushen.

//Achja ... rar-Dateien kann ich nicht öffnen.

[J.P.]

OK, sry...
Ich habs hier nochmal als zip.
Ich hab das ausserdem extra wieder hier rein geschrieben, da das u.U. das gleiche Problem ist...

[IngoD7]

Zitat von J.P.:

Ich hab das ausserdem extra wieder hier rein geschrieben, da das u.U. das gleiche Problem ist...

Da du dich sehr schwer tust, überhaupt mal vernünftig zu beschreiben, was genau dein Problem ist, kann ich deine Vermutung nur verneinen.

Es mag jetzt hart klingen, aber ich habe keine Lust, dir wieder alles aus der Nase zu ziehen.

Beschreibe bitte klar und deutlich, was du an welcher Stelle im Programm erwartest und was genau stattdessen als Fehlverhalten auftritt.

[J.P.]

kein Problem. Ich hab grad oben selbst alles nochmal nachgelesen und gemerkt was für ein Hunbug das ist. Entschuldingung.

Das Programm soll eine Datei Hochladen, und diese mit den Initialien des Empfängers kennzeichnen (initialien + Dateiname). Das Heraufladen funktioniert auch wunderbar. Später, soll der andere Rechner automatisch diese Datei runterladen. Die mit seinen Initialien. Dafür liste ich mir alle Dateien des Servers auf und lasse mit hilfe einer Schleife die Dateien mit der Kennung in einer neuen Liste auflisten. Diese sollen dann nacheinander von idftp1 heruntergeladen werden. Und das funktioniert nicht. Um den Download einer neuen Datei nach dem ersten download zu starten, hab ich das in die Onworkend procedure von idftp1 geschrieben. Nur irgendwie wird nichts heruntergeladen.
Und manchmal kommt noch die Fehlermeldung 200, die ja eigentlich sagt, dass alles in ordnung ist. Die showmessage mit dem 'check' hab ich mir nur reingeschrieben, um zu gucken ob das bis dahin überhaupt läuft.
Dummerweise kann ich auf meinem Inet rechner nicht Delphi installieren, und hab an dem mit Delphi kein Internet. Also kann ich die ganzen fehler nicht richtig verfolgen.

Ich hoffe das war jetzt halbwegs verständlich. Nochmal entschuldigung.

[J.P.]

-=| Push |=-
Tut mir leid, dass ich nochmal Pusche, aber ich finde den fehler nicht und verzweifle Langsam.

[IngoD7]

Zitat von J.P.:

-=| Push |=-
Tut mir leid, dass ich nochmal Pusche, aber ich finde den fehler nicht und verzweifle Langsam.

Ich gucke am Wochenende nochmal, wenn ich Zeit habe.

[IngoD7]

Okay, ich habe mal geschaut. Aber so werde ich dir nicht helfen können. Ich sage dir mal warum und was du grundsätzlich meiner Meinung nach bedenken solltest.

1.) Folgende Units kenne ich nicht und musste sie aus Uses herausnehmen:
LMDDirDlg, StartMark, LMDCustomComponent, LMDContainerComponent, LMDBaseDialog

2.) Folgende Objekte kann ich somit nicht erzeugen und musste sie aus TForm1 herausnehmen:
LMDDirDlg1: TLMDDirDlg;
StartMark1: TStartMark;

==> Was danach übrig bleibt, läuft ganz einfach überhaupt nicht. Und somit sind erstmal die Karten hier gelegt.

3.) Die Behandlungsroutine für dein Upload besitzt überhaupt keine Serverdaten (Host, Username).
Entweder die werden irgendwo in den bei mir nicht vorhandenen Units definiert (siehe 1. + 2.), oder sie müssen im Objektinspektor eingetragen werden. Ich kann das nicht wissen.

4.) Welche Indys benutzt du?
In der Routine deines LOS-Buttons zum Downloaden erscheint idftp1.User:=edit2.Text.
TIdFTP.User kennt meine TidFTP-Komponente nicht. Die kennt TidFTP.Username.

5.) Vor jedem Connect machst du erstmal pauschal ein idftp1.Disconnect;
Was soll das?
Programmiere deine Anwendung so, dass sie (und du als Programmierer) jederzeit weiß, wann eine Verbindung besteht und wann nicht.
Implementiere die Ereignisse TidFTP.OnConnected und TidFTP.OnDisconnected, um jederzeit die Übersicht zu behalten, wann die Verbindung auf- und abgebaut wurde, anstatt überall "sicherheitshalber" ein Disconnect-Befehl einzubringen.

6.) Gebe deinen Buttons im Programm nicht nur aussagekräftige Beschriftungen, sondern auch Namen (ebenso den Edits). Man findet sich dann viel besser im Quelltext zurecht.

Grundsätzlich:
Vielleicht konntest du nicht ahnen, dass dir dein FTP soviel Schwierigkeiten bereiten würde und du fremde Hilfe benötigst, aber nun weißt du es. Ich würde dir daher vorschlagen, du baust dir ein Programm erstmal nur mit den FTP-Funktionalitäten.
Also: Gezielter Auf- und Abbau der Verbindung. Dazwischen Upload und/oder Download.
Das sind quasi 4 Buttons, eine idFTP-Komponente und wenn du willst ein Memo zur Anzeige von selbsterstellten Statusmeldungen. Natürlich kann auch der Dialog zur Dateiauswahl schon rein oder noch ein Button, um mit der Methode TidFTP.List den gerade aktuellen Inhalt vom Server zu holen, oder, oder ... Aber eben so schlank wie möglich - nur um die FTP-Funktionalitäten zu ergründen.
Ein Beispiel, was ich mit dem Memo meine. So sagt die Kiste dir beispielsweise, wenn die Verbindung wirklich steht:

Delphi-Quellcode:

procedure TForm1.IdFTP1Connected(Sender: TObject);
begin
   Memo1.Lines.Add('Verbindung steht.');
   ...
end;

So mache ich es immer. Damit erhält man ein Verständins für die idFTP-Komponente und ihre Auswirkungen.
Solltest du damit trotzdem nicht klarkommen, kannst du mit den kleinen, eindeutig zweckgebundenen Code-Schnipseln deines Programms Andere um Hilfe bitten (mich z.B. ).

Wenn dann irgendwann dein "FTP-4-Button-Programm" läuft, kannst du die Funktionen in dein eigentliches Projekt einbauen.

[himitsu]

Zitat von IngoD7:

1.) Folgende Units kenne ich nicht und musste sie aus Uses herausnehmen:
LMDDirDlg, StartMark, LMDCustomComponent, LMDContainerComponent, LMDBaseDialog

2.) Folgende Objekte kann ich somit nicht erzeugen und musste sie aus TForm1 herausnehmen:
LMDDirDlg1: TLMDDirDlg;
StartMark1: TStartMark;

OK, StartMark kenn ich jetzt auch nicht ... aber zum LMD findest du da was:
http://www.delphipraxis.net/dpX_mark...?shop=lmdtools


@J.P.: wenn du schon Zusatzkomponenten in einem hier hochgeladenem Code verwendest, dann wäre es besser dieses mit anzugeben ... eventuell auch mit Quelle (falls es eher unbekannt ist ... so wie z.. dieses TStartMark), denn so kann ja keiner etwas Testen

[add]
OK, bei TSartMark wird nur eine einzige Seite geliefert (is also wohl doch recht unbekannt)
Вопросы по...

[IngoD7]

Zitat von himitsu:

Zitat von IngoD7:

1.) Folgende Units kenne ich nicht und musste sie aus Uses herausnehmen:[...]

OK, StartMark kenn ich jetzt auch nicht ... aber zum LMD findest du da was:
http://www.delphipraxis.net/dpX_mark...?shop=lmdtools


@J.P.: wenn du schon Zusatzkomponenten in einem hier hochgeladenem Code verwendest, dann wäre es besser dieses mit anzugeben ... eventuell auch mit Quelle (falls es eher unbekannt ist ... so wie z.. dieses TStartMark), denn so kann ja keiner etwas Testen

Ähm ... nur noch mal eben zur Verdeutlichung:
Ich persönlich suche die LMD-Sachen nicht. Ich werde sie auch nicht zu Entstör- bzw. Testzwecken installieren.

Daher in meinem Vorposting der Vorschlag mit dem "nackten" FTP-Programm. Bis das läuft, bin ich gerne dabei.
Sollten danach - also beim endgültigen Programm - irgendwelche Funktionen mir unbekannter Komponenten ins Spiel kommen oder auch nur der Verdacht dessen bestehen (so wie im Moment), bin ich raus.

[J.P.]

OK, ich werds mal versuchen. Obwohl das für dieses Projekt jetzt rel. schade ist... Na gut. Kann aber was länger dauern, da ich immer zwischen den Rechnern (und 2 Stockwerken!) hin und her muss, wenn da was nicht läuft
EGAL, da muss ich jetzt wohl durch.
Danke für die Tipps. J.P.

PS: StartMark gibts bei Torry.net und stellt einfach nur einen kurzen Startbildschirm dar. (ich hab keine Lust für jedes Programm das neu zu schreiben) Hier ist der Link: http://www.torry.net/pages.php?id=99

PPS: In der exe (auch in der Zip-file) siehst du wie das aussehen sollte.

Edit: Link hinzugefügt