SQLITE und PACK Problem

[RAaBe]

Hallo zusammen.

Ich habe ein Problem, wenn ich Text mit PB packe und dann in SQLITE Datenbank in ein BLOB Feld speicher, wird beim
Auslesen des Textes nur der Anfang verstümmelt:

Orginal: Es werden alle....

Nach dem Auslesen: Ä ùþùn alle....

der Text wird auch 2 Byte grösser!

Code: Alles auswählen

  size = DatabaseColumnSize(0, 171)
  If size > 0
    *mem = AllocateMemory(size)
    If *mem
      If GetDatabaseBlob(0, 171, *mem, size)
        If CreateFile(1, "LOGTEMP.PACK")
          WriteData(1, *mem, size)
          CloseFile(1)
          FreeMemory(*mem)
          
     OpenPack("LOGTEMP.PACK")
  *mem = NextPackFile()
  size = PackFileSize()
  ClosePack()
  CreateFile(1, "LOGTEMP"+Str(daten)+".DAT")
  WriteData(1, *mem, size)
  CloseFile(1)

Eigentlich kann man da nicht viel falsch machen!

Vielleicht hat ja jemand einen Tipp für mich.

Reinhard

[dysti]

Hallo RAaBe, würde gerne helfen, aber keine Lust erst anfangen zu proggen.
Wenn ein Beispiel, dann eins, was auch lauffähig ist.