AV bei setlength

[Gruber_Hans_12345]

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)

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.

[Shaman]

Hoi

Lass mal die @ weg.

Gruss
Shaman

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

[Gruber_Hans_12345]

Zitat:

Zitat von Shaman

Hoi

Lass mal die @ weg.

Gruss
Shaman

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

[Dax]

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

[Gruber_Hans_12345]

Zitat:

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...

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.

[sakura]

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?

...:cat:...

[Gruber_Hans_12345]

Ja, die ersten 4 Bytes sind die Länge, habs mir mal mit

Delphi-Quellcode:

    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 ...

[Gruber_Hans_12345]

Arghhhh :wall: 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) !