Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Wert aus Klasse nicht verfügbar

    Delphi
    by Ruio, 24. Dez 2009
  Dann kommen ja die Messages nicht durch bzw. create ichh meine Klasse ja nochmal.
  Ich werds ein bisschen umschreiben und nochmal testen.
  
  
  
  Edit: Es geht jetzt!
  :thumb:
• Forum: Sonstige Fragen zu Delphi

  Re: Wert aus Klasse nicht verfügbar

    Delphi
    by Ruio, 24. Dez 2009
  Ich hängs mal an, vielleicht findet jemand den Fehler.
• Forum: Sonstige Fragen zu Delphi

  Re: Wert aus Klasse nicht verfügbar

    Delphi
    by Ruio, 23. Dez 2009
  Danke!
  Das kommt davon, wenn man noch nicht weiß, was der Code überhaupt macht.
  
  Nur leider bleibt die AV:
• Forum: Sonstige Fragen zu Delphi

  Re: Wert aus Klasse nicht verfügbar

    Delphi
    by Ruio, 23. Dez 2009
  Der Fehler ist wohl doch nicht da:
  
  procedure Tt4rCore.ReceiveAppMessage(var Msg: TWMCopyData);
  var
  sText: array 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);
• Forum: Sonstige Fragen zu Delphi

  Re: Wert aus Klasse nicht verfügbar

    Delphi
    by Ruio, 23. Dez 2009
  Problem gelöst, ich hatte alles im OnCreate, aber da kam scheinbar eine Message zu früh an und deshalb gabs die AV.
• Forum: Sonstige Fragen zu Delphi

  Re: Wert aus Klasse nicht verfügbar

    Delphi
    by Ruio, 22. Dez 2009
  Die Log-Funktion geht sonst aber, die AV wird nämlich geloggt.
  
  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,...
• Forum: Sonstige Fragen zu Delphi

  Re: Wert aus Klasse nicht verfügbar

    Delphi
    by Ruio, 22. Dez 2009
  FErrorLogLevel gehört zu Tt4rCore.
  
  Und der Rest zu dem Codeausschnitt:
  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;
• Forum: Sonstige Fragen zu Delphi

  Wert aus Klasse nicht verfügbar

    Delphi
    by Ruio, 22. Dez 2009
  Ich logge in meinem Programm vieles.
  Nun gibts es bei an einer Bestimmten Stelle ein Problem damit.
  Stelle:
  procedure Tt4rCore.ReceiveAppMessage(var Msg: TWMCopyData);
  var
  sText: array of Char;
  SenderAndAction,Action,Sender: String;
  begin
  SenderAndAction := '0000'+IntToStr(Msg.CopyDataStruct.dwData);
  Log(SenderAndAction,T4R_LOGLEVEL_INFOS);