Filetrans (Datentausch) Release v. 2.0

[Kiffi]

au weia

Code: Alles auswählen

DeleteDirectory("C:\Empf", "*.*", 0)
DeleteFile(Windir.s+"txt.txt")
DeleteFile(Windir.s+"dd.txt")

Cl = CreateFile(#PB_Any, Windir.s+"Open_Folder.png") 
If Cl 
  WriteData(Cl, ?eins, ?einsEnde - ?einsAnfang) 
  CloseFile(Cl) 
EndIf

Cl = CreateFile(#PB_Any, Windir.s+"Network_Drive_Connected.png") 
If Cl 
  WriteData(Cl, ?zwei, ?zweiEnde - ?zweiAnfang) 
  CloseFile(Cl) 
EndIf

Cl = CreateFile(#PB_Any, Windir.s+"Recycle_Bin_Full.png") 
If Cl 
  WriteData(Cl, ?drei, ?dreiEnde - ?dreiAnfang) 
  CloseFile(Cl) 
EndIf

Wieso willst Du ungefragt Dateien auf meiner Platte löschen?
Wieso willst Du ungefragt Dateien in meinen Windows-Ordner kopieren?
Was willst Du in meinem "C:\Split"-Ordner?

Für sowas gibt es Temp-Ordner, in dem Du dann schalten und walten kannst (GetTemporaryDirectory())

Weiter schau ich mir den Code jetzt nicht an. Bin auch schon so bedient...

[ts-soft]

> Bin auch schon so bedient...


+1

[Joel]

> Bin auch schon so bedient...


+1

Ok, bedient bin ich zwar nicht, aber ich versuche mal das bereinigen der Temp Ordner am Anfang des Programmes zu ändern in einen Temp Ordner. Drap and Dop wäre auch möglich!

[Joel]

OK, neue Version ist on!

Habe einiges verbessert.

Download: http://wissenmachtah.q-soft.ch/Filetrans.zip

Freue mich auf Feedback

[ts-soft]

Hab mir nur mal den Source angesehen. Sieht ein wenig schluderig aus
Einrückungen ohne System, mal 1 space, mal 4, mal ohne

egal, du includierst 4 Bilder und eine Textdatei, die brauchste doch nicht
in den Tempordner zu schmieren, die Bilder kannste mit CatchImage laden
und den Text mit Peeks.
Dann brauchste nur noch in dem temporären Empfangsordner schmieren.

Man solllte sowieso keine fixen Dateinamen im Tempordner nutzen, sondern
mit GetTempFileName_() erstellen oder besser einen Unterordner mit
einmaligem Namen z.B. (GUID) erstellen:

Code: Alles auswählen

Procedure.s MakeGUID()
  Protected guid.GUID, lpsz.s{76}
  If CoCreateGuid_(@guid) = #S_OK
    ProcedureReturn PeekS(@lpsz, StringFromGUID2_(guid, @lpsz, 76), #PB_Unicode)
  EndIf
EndProcedure

mytempdir.s = GetTemporaryDirectory()
mytempdir + MakeGUID()
mytempdir + "\"
Debug mytempdir
;am programmende nur:
DeleteDirectory(mytempdir, "*.*")

Gruß
Thomas

[Joel]

Hab mir nur mal den Source angesehen. Sieht ein wenig schluderig aus
Einrückungen ohne System, mal 1 space, mal 4, mal ohne

egal, du includierst 4 Bilder und eine Textdatei, die brauchste doch nicht
in den Tempordner zu schmieren, die Bilder kannste mit CatchImage laden
und den Text mit Peeks.
Dann brauchste nur noch in dem temporären Empfangsordner schmieren.

Man solllte sowieso keine fixen Dateinamen im Tempordner nutzen, sondern
mit GetTempFileName_() erstellen oder besser einen Unterordner mit
einmaligem Namen z.B. (GUID) erstellen:

Code: Alles auswählen

Procedure.s MakeGUID()
  Protected guid.GUID, lpsz.s{76}
  If CoCreateGuid_(@guid) = #S_OK
    ProcedureReturn PeekS(@lpsz, StringFromGUID2_(guid, @lpsz, 76), #PB_Unicode)
  EndIf
EndProcedure

mytempdir.s = GetTemporaryDirectory()
mytempdir + MakeGUID()
mytempdir + ""
Debug mytempdir
;am programmende nur:
DeleteDirectory(mytempdir, "*.*")

Gruß
Thomas

Ok, habs Optimiert

[ts-soft]

Code: Alles auswählen

  For x = 1 To 999999
    If URLDownloadToFile_(0, "http://"+Connect\Domain.s+"/"+Ordner\FTPOrdner.s+"/"+Ordner$+"/"+Str(x)+".joel", Tempdir$+"1.html" ,0,0) <> 0
      Break 1
    EndIf
  Next

Äh, hmm ?
1. URLDownloadToFile_() ruft die meisten Virenwächter auf, besser
ReceiveHTTPFile() oder was besseres. Desweiteren lädt
URLDownloadToFile_() nicht, wenn die gleichnamige Datei im Cache liegt.
2. Die For Next schleife ist wohl die schlechteste Wahl an dieser Stelle

Gruß
Thomas

[Joel]

OK, neue Version ist on!

Download: http://wissenmachtah.q-soft.ch/Filetrans.zip

Freue mich auf Feedback

[Joel]

-----Filetrans Release Version 1.0 Build #1----





So, nun endlich die Release Version 1.0 von Filetrans!

Änderungen:
- Das Passwortfeld wurde entfernt
- Das Feld für Benutzername wurde entfernt
- Der Packstatus wird jetzt in der "Vorbereiten" Progressbar mit berücksichtigt.
- Die Sende und Download Procedure wurde Optimiert.
- Bei Downloaden wird jetzt auch der Fortschritt angezeigt.
- Das Downloaden und Packen ist schneller


Download: Hier
Bitte PB 4.30 benutzen!
Getestete OS: Windows 2000, XP und Vista

[Joel]

Edit: Sry, habe vergessen die Funktion für den Fortschrittbalken freizuschalten! Jetzt klappt aber alles!