POST Upload klappt nicht?

[mk-soft]

@Dark

Um eine sichere identifizierung zu erstellen, eine gültige GUID anlegen. Kannst vielleicht mit einbauen.

Code: Alles auswählen

Procedure.s CreateUuid()
  
  Protected Uuid.iid, result.s, i
  
  UuidCreate_(Uuid.iid)
  result = RSet(Hex(Uuid\Data1, #PB_Long), 8, "0")
  result + RSet(Hex(Uuid\Data2, #PB_Word), 4, "0")
  result + RSet(Hex(Uuid\Data3, #PB_Word), 4, "0")
  result + RSet(Hex(Uuid\Data4[0], #PB_Byte), 2, "0")
  For i = 1 To 7
    result + RSet(Hex(Uuid\Data4[i], #PB_Byte), 2, "0")
  Next
  ProcedureReturn result
  
EndProcedure

Debug CreateUuid()

P.S Bugfix... Byte 0 und 1

[Sunny]

Hmm... Naja schade, ich dachte ich kann den Code einfach übernehmen und dann nur ein paar Kleinigkeiten auf meine Bedürfnisse abändern... Aber um da jetzt noch was umzubauen fehlt mir das nötige Wissen. Ich steig da noch nich so ganz durch.
Dann werd ich mich wohl noch ein bischen hinterklemmen müssen...

Trotzdem danke für die Info...