Datei Runterladen und verschieben....

[bob_aus_der_flasche]

hey leute

hab mal wieder ein prob hier^^

mein programm soll folgendes leisten:
1. Per Knopfdruck eine datei von einem FTP runterladen (wahrscheinlich eine .ini datei)
2. die datei soll dann in einen von mir vorgegebenen ordner verschoben werden (ggf. kann der ordner auch manuell ausgewählt werden)

ich hoffe mal, dass einer von euch ne lösung parat hat^^

greetz bob
:hello: :corky:

[Klaus01]

Hallo Bob,

schon mal die Suche bemüht?
Einige Threads unter dem Deinem findest Du schon einen Ansatz.

Was hast Du denn bereits selber geschafft?

Grüße
Klaus

[Fussball-Robby]

Zum runterladen hab ich hier eine Funktion, die ich irgendwann mal nach Stunden der Suche hier im Forum gefunden hab:

Delphi-Quellcode:

//uses WinInet;

function getfile(server, username, password, localfile, remotefile: string; port: word = 21): boolean;
var
  hopen, hconnect: HINTERNET;
begin
  hopen := InternetOpen('myagent', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  hconnect := InternetConnect(hopen, pchar(server), port, pchar(username), pchar(password), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
  Result := FtpGetFile(hconnect, pchar(localfile), pchar(remotefile), false, 0, FTP_TRANSFER_TYPE_UNKNOWN, 0);
  InternetCloseHandle(hconnect);
end;

//Aufruf:

if getfile('URL.DE', 'NAME123', 'Banane', '/Datei/test.ini', 'C:\test.ini') then beep;

Damit lädst du vom Server 'URL.DE' mit dem Benutzernamen 'NAME123' mit dem Passwort 'Banane' aus dem Ordner 'Datei' die Datei 'test.ini' runter und speicherst sie unter 'C:\test.ini'.

So, das wär dann mal ein Ansatz, den Rest schaffst du aber denke ich selber :wink:

Mfg

[SirThornberry]

welchen sinn macht es Dateix an OrtY runter zu laden um diese dann zu verschieben nach OrtZ? Warum lädst du sie nicht gleich nach OrtZ runter?

[bob_aus_der_flasche]

also das mit dem runterladen funzt

nur leider nur mit .ini dateien

ich brauch aber ne funktion die auch mit .dds bilder funktioniert

habt ihr sowas vielleicht?^^

danke schonmal im voraus

Greetz

[SirThornberry]

es spielt keine rolle was es für eine Datei ist. Der Inhalt und der Name ist irrelevant für die Funktionsfähigkeit.

[DP-Maintenance]

Dieses Thema wurde von "SirThornberry" von "Object-Pascal / Delphi-Language" nach "Internet / LAN / ASP.NET" verschoben.

[bob_aus_der_flasche]

also mit der funktion, die "Fussball-Robby" bereitgestellt hat, funktioniert der DL nicht mit .dds dateien

ich glaube außerdem nicht, dass ich was falsch mache

greetz

[Die Muhkuh]

Wie rufst Du die Funktion auf?

[bob_aus_der_flasche]

ich rufe sie so auf:

getfile('URL.DE', 'USERNAME', 'PASSWORT', '/unterverzeichnis/bilddatei.dds', 'C:/bilddatei.dds'));