memorystream access violation ich werd bekloppt

[laz847]

Sorry aber ich finde hier keinen Fehler, kann mir bitte jemand helfen???

Code: Alles auswählen

TCPx = class
   private
    FClient     : TLTcp;
    FRet        : String;
    FLog        : boolean;
    FError      : boolean;
    FCanSend    : boolean;
    FMStream    : TMemoryStream;  
................
function MT4_IPC_Init(const _dbg:Boolean=False):LongInt; stdcall;
begin
 TCPxHnd := TCPx.Create;
 TCPxHnd.FLog := _dbg;
 TCPxHnd.IpcLog('--1---------------------------------------------------------------------');
 TCPxHnd.FMStream.Create;
 TCPxHnd.IpcLog('--2---------------------------------------------------------------------');
 TCPxHnd.IpcLog('###>>> MT4_IPC_Init() > SizeOf(FMStream) '+IntToStr(SizeOf(TCPxHnd.FMStream)));
 TCPxHnd.IpcLog('###>>> MT4_IPC_Init() > Pos(FMStream) '+IntToStr(TCPxHnd.FMStream.Position));
 TCPxHnd.IpcLog('--3---------------------------------------------------------------------');   
 
Kommt nicht bis zur ---3--- vorher gibts eine AccessViolation???
--1---------------------------------------------------------------------
--2---------------------------------------------------------------------
###>>> MT4_IPC_Init() > SizeOf(FMStream) 4 

Sorry das ich hier soviele Fragen stelle aber ich weiß echt langsam nicht mehr weiter

[gocher]

TCPxHnd.FMStream.Create; => TCPxHnd.FMStream := TMemoryStream.Create;

[m.fuchs]

SizeOf? Das ist glaube ich nicht, was du möchtest. Nimm die Size-Eigenschaft vom Stream.

[laz847]

Ups ja sorry das komtm davon wenn man wild hin und her überlegt, da war vorher was anderes drin, diese Zeile hat aber nicht den fehler verursacht.

Egal, ich habe eine vollkommen andere und viel bessere Lösung gefunden, vielen lieben Dank für eure Hilfe!!!!

[laz847]

@gocher das wars

Code: Alles auswählen

--1---------------------------------------------------------------------
--2---------------------------------------------------------------------
###>>> MT4_IPC_Init() > SizeOf(FMStream) 0
###>>> MT4_IPC_Init() > Pos(FMStream) 0
--3---------------------------------------------------------------------
###>>> IpcInit() > call > TCPx.Create > TCPxHnd > 71025960
###>>> MT4_IPC_Init() > Assigned(FMStream) -1

Hat mir jetzt doch keine Ruhe gelassen, musste ich noch fix probieren auch wenn jetzt eh rausfliegt

Nochmals danke