Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Dateien-FtpServer-Email (https://www.delphipraxis.net/11586-dateien-ftpserver-email.html)

horst 10. Nov 2003 11:14


Dateien-FtpServer-Email
 
wie kann ich alle dateien eines ordners auf einem ftp-server per mail versenden und danach alle dateien auf dem server löschen?
(die dateien sollen aber nicht vorher auf die festpaltte kopiert werden,
ist das überhaupt möglich?)
hat jemand tips oder sowas schon mal gemacht?

sharkx 10. Nov 2003 11:18

Re: Dateien-FtpServer-Email
 
Meines wissens nach kannst du nicht per SMTP Protokoll auf einen FTP. Also müsstest du die Dateien erst per SMTP / POP empfangen - zwischenspeichern - und dann erst via FTP Protokoll auf den FTP uppen.

Aber SMTP / POP -> FTP funktioniert nicht.

horst 10. Nov 2003 11:22

Re: Dateien-FtpServer-Email
 
Zitat:

und dann erst via FTP Protokoll auf den FTP uppen.
nein, da habe ich mich wohl undeutlich ausgedrückt.
die dateien liegen schon auf einem ftp-server. (in einem ordner)
sie sollen von da aus per mail versendet werden.

sharkx 10. Nov 2003 11:24

Re: Dateien-FtpServer-Email
 
Dann musst du dies eben umgekehrt tun. Erst von dem FTP ziehen, diese Local speichern und dann als anhang mit einer SMTP komponente wegschicken.

horst 10. Nov 2003 11:27

Re: Dateien-FtpServer-Email
 
muss man also local zwischenspeichern....
schade.

horst 10. Nov 2003 11:30

Re: Dateien-FtpServer-Email
 
hast du ein beispiel wie ich alle dateien eines ftp-ordners downloade und anschließend lösche kann?

sharkx 10. Nov 2003 11:31

Re: Dateien-FtpServer-Email
 
Indi hat da tolle beispiele ...

horst 10. Nov 2003 11:35

Re: Dateien-FtpServer-Email
 
ich schau mal, danke erstmal
müßte aber auch ganz einfach mittels batch gehen oder?
das funktioniert so nur mit einer datei.

Code:
domain
user
passwot
cd /
GET start.html c:start.htm
quit

horst 10. Nov 2003 12:06

Re: Dateien-FtpServer-Email
 
sieht jemand den fehler?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
idftp1.Connect;
if idftp1.connected then
 begin
  idftp1.Get('*.*','c:\test\*.*',true);
  idftp1.Disconnect
 end;
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:07 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz