1. September 2016 06:44
ncItemMedium_L.CALCFIELDS(BLOB);
ncItemMedium_L.BLOB.EXPORT(tempDateiPfad + tempDateiName);
datei.OPEN(tempDateiPfad + tempDateiName);
Dateilaenge := datei.LEN;
datei.CREATEINSTREAM(IStream);
IF Dateilaenge <= 2252 THEN BEGIN
i := 1;
WHILE NOT IStream.EOS DO BEGIN
IStream.READ(Character);
zaehler_L += 1;
CharacterText_L := FORMAT(Character);
ParmSpaltenwert[i] += CharacterText_L;
IF zaehler_L = 1000 THEN BEGIN
i += 1;
zaehler_L := 0;
END;
END;
END ELSE BEGIN
ParmSpaltenwert[1] := '!!!Text länger als 2252 Zeichen!!!';
ZuLangerText := TRUE;
END;
1. September 2016 09:29
1. September 2016 10:00
1. September 2016 12:30
1. September 2016 12:45
Ich habe spontan nicht mehr als das, was du in der Onlinehilfe findest.germmare hat geschrieben:Hast du vielleicht ein Beispielcode für mich?
1. September 2016 21:01
1. September 2016 22:20