Datei (herauf)laden bei nem FTP

[toredo]

hallo,

kann mir hier jemand sagen wie man mit delphi dateien von einem ftp laden kann oder auch heraufladen kann?

mfG toredo

[ErazerZ]

der nonVCL weg wäre

Delphi-Quellcode:

uses WinInet;

http://www.cryer.co.uk/brian/delphi/wininet.htm
Auf der seite findest Dokumentierte hilfen zu WinInet, also kannst leicht nen FTP Client machen :). Was du lediglich für Upload / Download brauchst ist:

Delphi-Quellcode:

InternetOpen
InternetConnect
FtpPutFile
FtpGetFile
InternetCloseHandle

und ja natürlich gibts einfachere wege mittels VCL Komponente, von Indy oder was auch immer.

[toredo]

Zitat:

Zitat von ErazerZ

Was du lediglich für Upload / Download brauchst ist:

Delphi-Quellcode:

InternetOpen
InternetConnect
FtpPutFile
FtpGetFile
InternetCloseHandle

und ja natürlich gibts einfachere wege mittels VCL Komponente, von Indy oder was auch immer.

das genügt mir schon, danke:-)



mfG toredo

-edit-

kann mir bitte noch mal shcnell jemand helfen:
hat jemand ein bsp für InternetConnect wil da versteh ich bei einigen parametern nicht was man da reinschreiben muss.


mfG toredo

[Luckie]

Wie wäre es mit den Indy FTP Komponenten?

[DP-Maintenance]

Dieses Thema wurde von "Christian Seehase" von "Object-Pascal / Delphi-Language" nach "Internet / LAN / ASP.NET" verschoben.
Falsche Sparte

[toredo]

hm, mal schauen, eigentlich sollte es ja nur klein gehalten werden und darum möchte ich nicht indy installieren, und auch wiel ich nicht mehr allzuviel spoeicher habe, wenn es aber einfacher ist, dann werd ich es vielleicht mal machen.

ich will ja nur machen, dass eine datei heraufgeladen wird, und von einer anderen exe wird sie heruntergeladen...


mfG toredo

[SirThornberry]

wenn du tatsächlich, wie im Profil angegeben, Delphi7 Enterprice hast ist Indy bereits installiert.

[toredo]

ok, das klingt schonmal gut :-D ,
aber gibts irgendwo ein tut oder so zu dieser FTP-komponente, ich hab da nämlich kp wie ich anfangen soll.



mfG toredo

[ErazerZ]

Delphi-Quellcode:

function putfile(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 := FtpPutFile(hconnect, pchar(localfile), pchar(remotefile), FTP_TRANSFER_TYPE_UNKNOWN, 0);
  InternetCloseHandle(hconnect);
end;

[capo]

hi

was bedeutet?

Delphi-Quellcode:

InternetOpen('myagent', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);

gruss, capo

[toredo]

hay,

hier ist ein fehler drin aber wo?

Delphi-Quellcode:

putfile('85.10.200.141', 'tjo', 'lol', 'D:\Bally.exe', '\html\Bally.exe')

mfG toredo

[Luckie]

Zitat:

Zitat von toredo

hay,

hier ist ein fehler drin aber wo?

Delphi-Quellcode:

putfile('85.10.200.141', 'tjo', 'lol', 'D:\Bally.exe', '\html\Bally.exe')

Woher weißt du, dass da ein Fehler drinne ist?

[toredo]

ich hab einfach mal ein project gemacht und dann nen button gemacht bei dem habe ich dann diese zeile eingefügt und halt noch die function oben.
dann hab ich auch auf den knopf gedrückt und irgendwas war am laden für etwa zwei sekunden und dann hab ich auf dem ftp nachgeschaut ob was passiert ist, aber die datei war nicht oben...



mfG toredo

[ErazerZ]

Zitat:

Zitat von capo

hi

was bedeutet?

Delphi-Quellcode:

InternetOpen('myagent', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);

gruss, capo

Zitat:

InternetOpen

Initialises the WinInet API.

function InternetOpen(
lpszAgent: PChar;
dwAccessType: DWORD;
lpszProxy: PChar;
lpszProxyBypass: PChar;
dwFlags: DWORD): HINTERNET;

Parameters:

lpszAgent
Name of the calling application (for example 'PChar(Application.Title)'). This is used as the user agent for HTTP protocol.

dwAccessType
Access type required, use one of:

INTERNET_OPEN_TYPE_DIRECT
Resolve all host names locally.

INTERNET_OPEN_TYPE_PRECONFIG
Retrieve proxy or direct configuration from the registry.

INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY
Retrieves proxy or direct configuration from the registry and prevents the use of any start-up script.

INTERNET_OPEN_TYPE_PROXY
Requests passed on to the proxy. If a proxy bypass list is supplied and the name is on that list then INTERNET_OPEN_TYPE_DIRECT is used instead.

lpszProxy
If dwAccessType is set to INTERNET_OPEN_TYPE_PROXY then this should be the name of the proxy server(s) to use. WinInet API functions recognise only CERN type proxies (HTTP only) and TIS FTP gateway (FTP only). If Internet Explorer is installed then SOCKS proxy are also supported. For all other values of dwAccessType this should be set to nil.

lpszProxyBypass
String containing an optional list of host names or IP addresses, which should not be routed through the proxy. If dwAccessType is not INTERNET_OPEN_TYPE_PROXY then this parameter is ignored and should be set to nil.

dwFlags
Various configuration options. Use one or more of:

INTERNET_FLAG_ASYNC
Makes only asynchronous requests.

INTERNET_FLAG_FROM_CACHE
All entries are returned from the local cache. Requests will fail if the item is not in the local cache.

INTERNET_FLAG_OFFLINE
Same as INTERNET_FLAG_FROM_CACHE

Returns: Handle for use with the other WinInet API functions or nil if the function fails in which case details of the specific error can be found by calling GetLastError().

Note:

* InternetOpen should be the first WinInet API function called by the application.
* When the application finishes using the WinInet API it should call InternetCloseHandle to free the handle and any associated resources.
* Applications may make more than one call to InternetOpen (although only one is required).

und toredo ich glaub vielleicht ist dein login falsch? oder der ordner existiert nicht oder pfad ist ungültig?

[toredo]

[quote="ErazerZ"]

Zitat:

Zitat von capo

und toredo ich glaub vielleicht ist dein login falsch? oder der ordner existiert nicht oder pfad ist ungültig?

sollte eigentlich alles stimmen:

Delphi-Quellcode:

putfile('85.10.200.141', 'tjo', 'lol', 'D:\Bally.exe', '\html\Bally.exe')

die ip stimmt 100%ig, benutzername und pw hab ich auch, ich kann mich mit diesem zeug auch mit jedem ftp-clienten einloggen. und die datei D:\Bally.exe exestiert natürlich auch.
und auf dem ftp sind halt so verschiedene ordner: backup, atd, files, html...
und wenn ich dateien rauflade muss ich die ja in den html-ordner reinmachen aber hier klappts irgendwie nicht, weil die datei will einfach nicht da rein...




mfG toredo

[Klaus01]

ist der Server vielleicht eine Linux/Unix Box?

Dann kannst Du mal '/html/Bally.exe' probieren.

Grüße
Klaus

[toredo]

thx, jetzt klappt es :-D
gibt es auch ne getfile-function die etwa gleich aufgebaut ist?


mfG toredo

[ErazerZ]

ja, FtpPutFile mit FtpGetFile verändern ..

Delphi-Quellcode:

function FtpGetFile(
    hConnect: HINTERNET;
    lpszRemoteFile: PChar;
    lpszNewFile: PChar;
    fFailIfExists: BOOL;
    dwFlagsAndAttributes: DWORD;
    dwFlags: DWORD;
    dwContext: DWORD): BOOL

[toredo]

war eigentlich ne dumme frage...

danke für die hilfe :-D


mfG toredo

[capo]

@ErazerZ

danke für deine erklärungen

capo

[wurst_hunter]

Wie lautet den der Rest zu der Funktion "FtpGetFile"??? Das funktioniert net so einfach mit dem "umbenennen" der Funktion... Sind ja auch ganz andere Parameter dabei. Wie sieht die Funktion aus?

[wurst_hunter]

fFailIfExists: BOOL;
dwFlagsAndAttributes: DWORD;

Was soll ich da reinschreiben? Was will Delphi da von mir? :wall:

[Daniel G]

Zitat:

Zitat von wurst_hunter

fFailIfExists: BOOL;

Denk mal nach, was steht denn da? :roll:

Zitat:

Zitat von wurst_hunter

dwFlagsAndAttributes: DWORD;

File attributes to specify for the new downloaded file.

Sprich: Schlag in der MSDN mal nach, welche Dateiattribute das gibt... :wink:

Und im zweifelsfalle kannst du sie auch einfach auf "0" setzen. In diesem Falle geht das...

[wurst_hunter]

ok alles klar... funktioniert... danke! :roll:

[Sphinx0592]

hallo
Leider funkioniert dieses Programm bei mir nicht kann jemand mir vieleicht den Kompletten Queltext von Delphi posten?