Warum bekomme ich immer wieder mal ne AV an der besagetn Stelle ?

Ich verwende ICS ServerSocket, und im DataAvailable eines Client verwende ich unter anderem folgenden Code (der Code ist gleich am Anfang)

markieren

Delphi-Quellcode:

function ReadString(var Data : Pointer) : string;
var len : integer;
begin
    CopyMemory(@len, Data, 4);
    setlength(Result, len); <= hier bekomme ich die AV
    Data := Pointer(integer(Data)+4);

    CopyMemory(@Result[1], Data, len);
    Data := Pointer(integer(Data)+len);
end;

[Edit]
Der Fehler tritt nicht immer auf, ca. 1 mal von 6 Durchläufen.

Hoi

Lass mal die @ weg.

Gruss
Shaman

Edit: Sorry, war Blödsinn. Hab die Funktion verwechselt

Zitat von Shaman:

Hoi

Lass mal die @ weg.

Gruss
Shaman

Dann bekomm ich nen Compiler Fehler "Inkompatible Typen integer und Pointer"

Dann lass die ganze Copy-Zeile weg, die überschreibt sowieso nur deinen Data-Pointer.

Zitat von Dax:

Dann lass die ganze Copy-Zeile weg, die überschreibt sowieso nur deinen Data-Pointer.

hm, weiß nicht genua was du meinst, habs abe mal so probiert...

zusammenfalten · markieren

Delphi-Quellcode:

function ReadString(var Data : Pointer) : string;
var len : PInteger;
begin
    len := Data;
// CopyMemory(@len, Data, 4);
    setlength(Result, len^);
    Data := Pointer(integer(Data)+4);

    CopyMemory(@Result[1], Data, len^);
    Data := Pointer(integer(Data)+len^);
end;

keine Besserung nach wie vor die AV beim setlength.

Das Problem liegt u.U. nicht in der Prozedure sondern in einer derer, die Dir die Daten geben. Bist Du Dir ganz sicher, dass Du auch immer in den ersten 4 Bytes die Datenmenge vorfindest. Hast Du den Speicher mal betrachtet?

......

Ja, die ersten 4 Bytes sind die Länge, habs mir mal mit
    OutputDebugString(PChar('Stringlen is : '+IntToStr(len^))); ins Event Log geschrieben :

ODS: Stringlen is : 43 Process TestServer.exe ($A38)
ODS: Stringlen is : 7599 Process TestServer.exe ($A38)
First chance exception at $77E53887. Exception class EAccessViolation with message 'Access violation at address 00401D6C in module 'TestServer.exe'. Write of address 0000000E'. Process TestServer.exe ($A38)

[Edit]Habe auch im Hauptformular IsMultiThread auf TRUE gesetzt, da ja ICS einen eigenen Thread startet. Bin zwar nicht sicher, ob ich es brauche, aber sicher ist sicher ...

Arghhhh Ich haße es !!!!!

Natürlich habe ich 400 Zeilen weiter oben in einer ganz anderen procedure Speicher allokiert (so viel ich brauche) und dann den Speicher befüllt (immer auf 4 Bytes ausgerichtet) wenn dann wo 5 Bytes gebraucht wurden -> 5 Bytes allokieren 8 Bytes schreiben voila ! Irgendwann irgendwo später gibts dann eine AV ohne ersichtlichen Grund (zumindest in der procedure wo die AV auftritt) !