AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Up und Download von Dateien
Thema durchsuchen
Ansicht
Themen-Optionen

Up und Download von Dateien

Ein Thema von msickel · begonnen am 28. Nov 2009 · letzter Beitrag vom 28. Nov 2009
Antwort Antwort
msickel

Registriert seit: 14. Mai 2005
108 Beiträge
 
Delphi 2005 Professional
 
#1

Up und Download von Dateien

  Alt 28. Nov 2009, 17:02
Hallo liebe Delphianer,

Ich bräuchte mal Eure Hilfe.

Mit diesem Code den ich eventuell sogar hier gefunden habe, lade ich eine normale Textdatei aus dem Internet

Delphi-Quellcode:
function DownloadFile(const url: string;const destinationFileName: string): boolean;
var
  hInet: HINTERNET;
  hFile: HINTERNET;
  localFile: File;
  buffer: array[1..1024] of byte;
  bytesRead: DWORD;
begin
  result := False;
  hInet := InternetOpen(PChar(application.title),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0);
  hFile := InternetOpenURL(hInet,PChar(url),nil,0,0,0);
  if Assigned(hFile) then
  begin
    AssignFile(localFile,destinationFileName);
    Rewrite(localFile,1);
    repeat
      InternetReadFile(hFile,@buffer,SizeOf(buffer),bytesRead);
      BlockWrite(localFile,buffer,bytesRead);
      FlashWindow(Application.Handle,True)
    until bytesRead = 0;
    CloseFile(localFile);
    result := true;
    InternetCloseHandle(hFile);
  end;
  InternetCloseHandle(hInet);

end;
Mit einem anderen Stück Code Uploade ich genau die gleiche Textdatei. In der Datei steht nur eine Zahl von 1-3
Nun zu dem Problem, der Upload geht ohne Probleme kann ich mit dem IE kontrollieren.

Mein Programm mit obiger Download Routine läuft immer im Hintergrund und lädt alle 60 Sekunden die Datei, liest den Inhalt der Datei und sollte eigentlich eine Message auf den Bildschirm bringen wenn sich der Inhalt geändert hat.

Der Download geht ohne Probleme, jedoch ist in der geladenen Datei immer der gleiche Wert, obwohl sich der Wert zwischenzeitlich geändert hat. (Datei mit neuem Wert hochgeladen) Irgendwie wird der erste Download gecached, starte ich das Programm welches den Download mach neu, enthält die geladene Datei den neuen Wert. Was mache ich falsch das es nicht via Timer geht?

Liebe Grüsse
Martin
ich weiss, das ich nichts weiss!
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#2

Re: Up und Download von Dateien

  Alt 28. Nov 2009, 17:05
Wahrscheinlich wird die Datei nicht physikalisch neu heruntergeladen, sondern aus dem Browsercache geholt. Ist es so besser?hFile := InternetOpenURL(hInet,PChar(url),nil,0,INTERNET_FLAG_RELOAD,0);
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
msickel

Registriert seit: 14. Mai 2005
108 Beiträge
 
Delphi 2005 Professional
 
#3

Re: Up und Download von Dateien

  Alt 28. Nov 2009, 17:10
Super,

das wars

Vielen Dank!
ich weiss, das ich nichts weiss!
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#4

Re: Up und Download von Dateien

  Alt 28. Nov 2009, 17:12
Keine Ursache
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:26 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz