Via FTP Datei hochladen

[xXxKoGaxXx]

1. Ich bin nicht blind, nur im moment zu doof Hat private Hintergründe...
2. Delphi 7 Personal
3. Danke schonmal

[xXxKoGaxXx]

Direkt mal ne andere Frage:
Kann ich dort auch direkt eine Datei schreiben?
Also wo dann Edit1 und Edit2 reinschreiben kann?

[Luckie]

Bei D7 sind die Indies nicht dabei. Kannst du aber nachinstallieren, siehe mein Link.

Wie direkt schreiben? Du musst schon eine Datei hochladen.

[xXxKoGaxXx]

Kann ich dort nicht eine blablabla.txt erstellen?

[xXxKoGaxXx]

Ich bin zu doof das zu installieren -.-

[xXxKoGaxXx]

Kann mir wer helfen das Indy zu installieren? ^^

[Luckie]

Würdest du bitte nicht andauernd neue Postings verfassen, sondern vorangegangene, wenn noch keiner geantwortet, hat editieren?

[xXxKoGaxXx]

Zitat von Luckie:

Würdest du bitte nicht andauernd neue Postings verfassen, sondern vorangegangene, wenn noch keiner geantwortet, hat editieren?

Sorry

Hoff trotzdem noch auf deine Hilfe ...

[dutyfree]

Wieso so kompliziert?

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;

Aufruf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
putfile(ftpadresse, loginname, loginpw, 'C:\deinedatei.txt', 'deinedatei.txt')
end;

[Luckie]

Nun ja, die API-Funktionen sind für einen Anfänger wohl etwas schwerer. Und wenn die Indies installiert wäre, hätten wir das Problem schon längst gelöst.