Startseite ¦  was ist neu ¦  programmier tips ¦  indy artikel ¦  intraweb artikel ¦  informationen ¦  links ¦  interviews ¦  sonstiges
kylix ¦  tutorials ¦  online shop ¦  fotos ¦  Add&Win Gewinnspiel


Willkommen Gast. Bitte einloggen oder registrieren.
04.02.2012, 09:23:46
Übersicht Hilfe Suche Einloggen Registrieren

+  SwissDelphiCenter Forum
|-+  German Forums
| |-+  Internet / LAN Forum
| | |-+  Html Dateien fortlaufend unter neuem Name Speichern
« vorheriges nächstes »
Seiten: [1] Drucken
Autor Thema: Html Dateien fortlaufend unter neuem Name Speichern  (Gelesen 1645 mal)
Natcree
Newbie
*
Offline Offline

Beiträge: 5


« am: 05.08.2009, 20:02:38 »

Hallo ich habe vor eine Webseite auszulesen und als *.Html auf die Festplatte zu speichern. Was auch kein Problem ist. Dies soll alle 30 minuten passieren und jedesmal soll eine neue Datei geschrieben werden.
z. b: um 20:00 Uhr lädt das Programm eine Webseite und speichert diese auf die Festplatte unter Daten1.html um 20:30 Uhr soll das programm die gleiche seite aufrufen und wieder speichern aber diesmal unter den Namen Daten2.html.

Einen TTimer setzten ist ja nicht das Problem. Ich hoffe jemand kann mir weiter helfen. SItze schon tage lang und bin am verzweifeln. :(
Gespeichert
grenzgaenger
Global Moderator
Full Member
*****
Offline Offline

Beiträge: 232


« Antworten #1 am: 06.08.2009, 07:26:23 »

Guten Morgen,

wo liegt denn dein Problem? Namensbenennung? So würde ich eine Erweiterung des ISO Datums vorschlagen, YYYYMMTT-HHMM vor oder hinter den Dateinamen, dann bekommst Du die Dateien auch immer fein sortiert und man sieht auf den ersten Blick welcher Stand es ist.

<HTH> GG
Gespeichert
Natcree
Newbie
*
Offline Offline

Beiträge: 5


« Antworten #2 am: 06.08.2009, 11:45:30 »

Wie setzt ich denn die erweiterung um. Habe keinen blassen wie es geht.
Hier ist mal der Code:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch;
  var URL: OleVariant);
  var fs: TFileStream;
begin
       createdir ('c:\users\erven\desktop\Spion\');
       fs := TFileStream.Create('c:\users\erven\desktop\Test\filename.html', fmCreate or fmShareDenyWrite);
try
  IdHTTP1.Get('http://www.google.de', fs);
finally
  fs.Free;
end;
  end;
    end.

Was muss ich hier eintragen ?
Gespeichert
grenzgaenger
Global Moderator
Full Member
*****
Offline Offline

Beiträge: 232


« Antworten #3 am: 06.08.2009, 12:16:59 »

Indem Du z.B. deinen Filenamen so aufbaust:
fs := TFileStream.Create('c:\users\erven\desktop\Test\' + FormatDateTime('yyyymmddhhnn', now) + ' - filename.html', fmCreate or fmShareDenyWrite);

damit hast du einen entsprechenden TimeStamp im Dateinamen.

Oder liegt das Problem doch an einer anderen Stelle?

btw: wäre es vielleicht nicht schlecht, den Stream dann auch noch zu speichern
Gespeichert
Natcree
Newbie
*
Offline Offline

Beiträge: 5


« Antworten #4 am: 06.08.2009, 23:32:10 »

Super danke Funktioniert einwandfrei. ;) Danke Danke Danke

Gibt es denn noch eine Möglichkeit die Datei unter anderem Namen zu speichern wie Datei 1, dann Datei 2 dann datei 3..... . Wer schön wenn mir jemand dieses Format geben könnte oder den Code dazu.
« Letzte Änderung: 31.08.2009, 15:11:51 von Natcree » Gespeichert
Seiten: [1] Drucken 
« vorheriges nächstes »
Gehe zu:  


Einloggen mit Benutzername, Passwort und Sitzungslänge

Powered by MySQL Powered by PHP Powered by SMF 1.1.11 | SMF © 2006, Simple Machines LLC Prüfe XHTML 1.0 Prüfe CSS