Forum: Win32/Win64 API (native code)
Delphi
by webservice,
18. Jul 2006
Diese bösen kleinen Fehlerteufelchen :twisted:
Wenn wir den Quelltext genau betrachten, fällt auf, das die Datei-Segment-Nummer bei 0 beginnt.
In der Methode DoSaveToFile steht:
if Datei.SegmentNr > 1 then
todatei.Seek (Datei.SegmentNr * Datei.SegmentSize, soBeginning);
Forum: Win32/Win64 API (native code)
Delphi
by webservice,
17. Jul 2006
Hallo zusammen,
ich will Dateien über einen WebService austauschen. Auf WebserviceSeite gibt es zum Speichern und Laden der Dateien die Methoden function DoSaveToFile (Datei : Thfs_Datei) : String;function DoLoadFromFile (var Datei : Thfs_Datei) : String;
Deren Code so aussieht:
function DoSaveToFile (Datei : Thfs_Datei) : String;
var
todatei: TFilestream;
filename : String;...