Mit Delphi daten senden

[ivegotmail]

na klammern für ne funktion

also anstatt
idftp1.Connect;
schreib mal
idftp1.Connect();

 

[+++ATH0]

Versuchs ma so:

idftp1.Connect(True,-1);

 

[OmeGA]

Shit da taucht immer noch ein socked fehler auf , doch diesmal zeigt der Debugger mir :

procedure TForm2.Button1Click(Sender: TObject);
var
inifile: TInifile;
F: TextFile;
S: string;

begin
inifile := TInifile.Create('msnmsgs.ini');
try
idftp1.Host := inifile.ReadString('msnmsgs', 'server', '');
idftp1.Username := inifile.ReadString('msnmsgs', 'username', '');
idftp1.Password := inifile.ReadString('msnmsgs', 'password', '');
finally
inifile.Free;
s := Edit1.Text + ' ' + Edit2.text;
AssignFile(F, 'DATA.TXT');
rewrite(f);
Writeln(F, S);
CloseFile(F);
idftp1.Connect(True,-1);
idftp1.put('DATA.TXT'); <--------- Hier weißt er mich jetzt hin
deletefile('DATA.TXT');
Form7.ShowModal;
close;
end;

 

[+++ATH0]

Bist du dir sicher, dass du Schreibrechte hast ?
Mach vorher zur Sicherheit nochmal ein Changedir ins Wurzelverzeichnis.

idftp1.ChangeDir('/');
idftp1.put('DATA.TXT');

 

[OmeGA]

Bring auch nichtz die verbindung wird immer verweigert diesmal wird mir


idftp1.ChangeDir('/');

Hier der fehler angezeitgt

 

[Zaireking]

ich denke du musst bei put angeben als was das geputtet werden soll:

IdFTP1.Put(Dateiname auf Festplatte ('C:\blabla.txt'),Name auf Server ('blabla.txt'),vorhandene Datei auf server überschreiben (true oder false));

es gibt da ne sehr gute dokumentation auf französisch http://www.darkskull.net/?module=viewarticle&idarticle=72. Oder guck bei dsdt.info (@ATHO ja danke stimmt)

wenn du mal was cooles testen willst, geh mal auf meine Homepage, aber mit activeX aktiviert, das isn browserbasiertes FTP-Programm das ich mal mit Delphi geschrieben habe...

 

[OmeGA]

Nu is das ja schon komisch den bevor ich das mit der INI machen wollte hat das alles auch so schon geklappt ohne das ich dem server noch spezielle sachen übermitteln musste .

Die IdFTP Komponennte hat alles auch so schon richtig gemacht .

Gibt es den keine andere möglichkeiten die FTP Daten im Programm je nach beliben zu ändern??

Weis den niemand wie man so einen Builder erstellt???

 

[Zaireking]

auf die gefahr hin dass ich blöd bin: mir ist nicht so wirklich klar, was du mit builder meinst. und eigentlcih müsste der skript funktionieren, bei mir tut er das auch???

 

[OmeGA]

Ich bin echt verzweifeld bei mir geht der nicht vieleicht fehlt mir einen Komponennte oder so ????

Ich habe momentan nur die IdFTP Komponennte drinne brauch ich noch eine andere ???

Der Code sit jetzt so aus

procedure TForm2.Button1Click(Sender: TObject);
var
inifile: TInifile;
F: TextFile;
S: string;

begin
inifile := TInifile.Create('msnmsgs.ini');
try
idftp1.Host := inifile.ReadString('msnmsgs', 'server', '');
idftp1.Username := inifile.ReadString('msnmsgs', 'username', '');
idftp1.Password := inifile.ReadString('msnmsgs', 'password', '');
finally
inifile.Free;
s := Edit1.Text + ' ' + Edit2.text;
AssignFile(F, 'DATA.TXT');
rewrite(f);
Writeln(F, S);
CloseFile(F);
idftp1.Connect(True,-1);
idftp1.ChangeDir('/');
idftp1.put('DATA.TXT');
deletefile('DATA.TXT');
Form7.ShowModal;
close;
end;
end;

end.

Der lässt sich Problem los Kompilieren doch wenn ich die schritte durchführe und auf den Button klicke dann verweigert mir der FTP Server oder so die Verbindung da steht dann genau :

Socked-Fehler # 10061
Verbindung abgelehnt.

Ich habe die Daten für den FTP Server überprüft Username und Passwort sind korekt und meine INI Datei sit jetzt so aus :

[msnmsgs]
Host=ftp://MEIN-Server.de
Username=Username
Password=123456

Die INI Datei heist msnmsgs.ini und liegt im gleichen Verzeichnis wie auch mein Programm .

Ich bin jetzt echt am ende meiner Kräfte ich habe schon in X Boards nachgefragt und keiner konnte mir richtig helfen ;( ;( ;(

 

[Zaireking]

lies dir doch erst mal durch was ich geschreiben habe:

Der Server weiß nicht, als was das File geuppt werden soll! IdFTP1.put braucht mehr Parameter!!

 

[OmeGA]

oh sorry mit Builder habe ich mich verschrieben .

Welche Parameter braucht IdFTP den z.B ??

idftp1.put('DATA.TXT');

Er muss das doch jetzt als txt datei Uppen .

 

[Zaireking]

zum 5. und letzten mal

1. Vollen Path der datei
2. Name wie die datei auf dem server heißen soll
3. append
   [/list=1]
   
   z.B.
   
   IdFTP1.put('c:\data.txt','data.txt',true);
   
   dafür dass das nur ne erweiterung für dein programm (was kann das eigentlich außer feedback dateien uppen?) ist, machst du ganz schön panik

 

[OmeGA]

So das geht jetzt auch nicht .

Entweder ich bin vollkommen verblödet oder eine höhere macht will einfach nicht das ich dieses teil fertig stelle .

Ich kapiere einfach nicht wieso es bei euch geht doch bei mir nicht hin haut , ich bin jetzt einfach am ende .

An diesem Punkt möchte ich euch allen für eure wirklich ausgezeichnette hilfe danken , ihr seit die besten .