Ich logge in meinem Programm vieles.
Nun gibts es bei an einer Bestimmten Stelle ein Problem damit.
Stelle:

zusammenfalten · markieren

Delphi-Quellcode:

procedure Tt4rCore.ReceiveAppMessage(var Msg: TWMCopyData);
var
  sText: array[0..999999] of Char;
  SenderAndAction,Action,Sender: String;
begin
  SenderAndAction := '0000'+IntToStr(Msg.CopyDataStruct.dwData);
  Log(SenderAndAction,T4R_LOGLEVEL_INFOS);
  Action := Copy(SenderAndAction,Length(SenderAndAction)-3,2);
  Sender := Copy(SenderAndAction,0,Length(SenderAndAction)-3);
  StrLCopy(sText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData);
  ReceiveAppMessageCallback(Sender,Action, sText);
end;

Der Debugger zeigt eine AV bei dem hier an:

markieren

Delphi-Quellcode:

if (Loglevel<=FErrorLogLevel) then
  ErrorLogWrite(LogFlag, Msg);

FErrorLogLevel wird am Anfang gleich festgelegt und sollte verfügbar sein. Beim weiteren Nachforschen habe ich festgestellt, dass der Debugger bei FErrorLogLevel WErt nicht verfügbar anzeigt.

Hi!

Kann es sein, dass die Stelle, wo du sagst, dass da ne AV kommt, nicht in dem Code-Abschnitt ist, den du obendrüber zeigst?


Grüße, Frederic

Ich würde mal behaupten, ohne den kompletten Quellcode zu kennen, dass du einfach vergessen hast, das entsprechende Objekt (das Objekt welches FErrorLogLevel beinhaltet) zu erzeugen, bevor du drauf zu greifst.

FErrorLogLevel gehört zu Tt4rCore.

Und der Rest zu dem Codeausschnitt:

zusammenfalten · markieren

Delphi-Quellcode:

procedure Tt4rCore.Log(Msg: String; Loglevel: Integer);
var LogFlag: String;
begin
  LogFlag := T4R_FLAG_ERROR;
  case Loglevel of
    T4R_LOGLEVEL_ERRORS: LogFlag := T4R_FLAG_ERROR;
    T4R_LOGLEVEL_INFOS: LogFlag := T4R_FLAG_INFO;
  end;
  if (Loglevel<=FErrorLogLevel) then
  ErrorLogWrite(LogFlag, Msg);
end;

Zitat von Ruio:

markieren

Delphi-Quellcode:

procedure Tt4rCore.ReceiveAppMessage(var Msg: TWMCopyData);
var
  sText: array[0..999999] of Char; // <= !!!

Willst du wirklich annähernd 1 MB vom Stack verwenden?
(das kann zu Stackoverflow führen)
Du solltest sText besser dynamisch reservieren.

Also wenn die Zugriffsverletzung wirklich an dieser Stelle auftrit, dann kann das Objekt einfach nicht richtig erzeugt worden sein. Da es sich ja bei FErrorLogLevel um nen Integer handelt und man bei nem Zugriff darauf sonst keine Zugriffsverletzung bekommt.

Zeig mal die Erzeugung des Objektes

Die Log-Funktion geht sonst aber, die AV wird nämlich geloggt.

zusammenfalten · markieren

Delphi-Quellcode:

constructor Tt4rCore.Create(AppName : String);
begin
  inherited Create;
//...
  //Errorlog
  ForceDirectories(Ft4rAppDataPath+T4R_LOGFOLDER_NAME+'\');
  FErrorLogFile := Ft4rAppDataPath+T4R_LOGFOLDER_NAME+'\'+FAppName+'.txt';
  FErrorLogLevel := GetIniValue(T4R_INI_SECTION_MAIN, T4R_INI_SETTING_LOGLEVEL, T4R_INI_SETTING_LOGLEVEL_DEFAULT);
  FErrorLogActive := true;
  Application.OnException := AppException;
end;

procedure Tt4rCore.AppException(Sender: TObject; E: Exception);
begin
  try
    if FErrorLogActive then
      ErrorLogWrite(T4R_FLAG_ERROR, '('+E.ClassName+') '+E.Message + ' (Error caused by ' + Sender.ClassName + ')');
  finally
    Application.ShowException(E);
  end;
end;

Problem gelöst, ich hatte alles im OnCreate, aber da kam scheinbar eine Message zu früh an und deshalb gabs die AV.

Der Fehler ist wohl doch nicht da:

zusammenfalten · markieren

Delphi-Quellcode:

procedure Tt4rCore.ReceiveAppMessage(var Msg: TWMCopyData);
var
  sText: array[0..999999] of Char;
  SenderAndAction,Action,Sender: String;
begin
  SenderAndAction := '0000'+IntToStr(Msg.CopyDataStruct.dwData);
  //Log(SenderAndAction,T4R_LOGLEVEL_INFOS);
  Action := Copy(SenderAndAction,Length(SenderAndAction)-3,2);
  Sender := Copy(SenderAndAction,0,Length(SenderAndAction)-3);
  StrLCopy(sText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData);
  ReceiveAppMessageCallback(Sender,Action, sText); //Hier wird die AV jetzt angezeigt
end;

Und zu array[0..999999] of Char;
Ein Dynamisches Array ging da nicht und weil ich nocht weiß wie viel da mal versendet wird ist das erstmal 999999 groß.