Hallo,

habe da ein kleines bis mittelgrosses Problem.

Ich schreibe einen Bot für ein Online Game. Die Ausganskomponente ist nicht das beste,
damit ich aber Funktionen nutzen kann muss ich sie in Threads auslagern
(Pro Befehl einen Thread). Da ich später evtl. das ganze in DLL's auslagern will um es
Modular zu gestalten, hab ich bereits angefangen es umzubauen.

Das Synchronize des Threads verweist auf eine Function innerhalb des Hauptprogrammes.

zusammenfalten · markieren

Delphi-Quellcode:

Function TCore_Form.HandleThreadMessages(IsCommand: Boolean; Msg: String): Boolean;
Begin
Msg := FormatOutgoing(Msg);
AOChat.SendGroup('Point of no Return', 'Test');

If Config.Parse AND (IsCommand OR Not IsCommand) Then
  Begin
  AOChat.PrivateGroupMessage(Config.Charname, Msg);

  Msg := ReplaceHTML(Msg);
  IRCSocket.Socket.SendText( Format(ReturnAOMsg, [Config.BotNick, Config.AONick, '', Msg]) );
  End;
End;

Die Configuration ist in einem Record hinterlegt.

zusammenfalten · markieren

Delphi-Quellcode:

Type
  TConfig = Record
    { AOChat }
    Username : String; // Benutzername
    Passwort : String; // Passwort
    Dimension : String; // Dimension
    Charname : String; // Charactername
    Organisation : String; //
    { IRC }
    IRCEnabled : Boolean; // IRC Komunikation aktiv
    IRCServer : String; // IRC Server Host
    IRCPort : Integer; // IRC Server Port
    IRCPass : String; // IRC Server Passwort
    BotChan : String; // Channel in dem der Bot sitzt
    BotChanPass : String; // Passwort zum Channel
    BotNick : String; // Nickname des Bots
    BotNickAlt : String; // Alternativname == Nickname + Prefix
    AONick : String; // Nick der in AO angezeigt wird
    IRCNick : String; // Nick der im IRC angezeigt wird
    Parse : Boolean; // Abfragen übergeben
    { Befehlsinterpreter }
    CMD : String; // Interpreter für die Befehle ! , . :
    {}
    BotOwner : String;
  End;

Er ist in einer Unit auf die alle Zugriff haben. Geladen wird die Konfiguration dann
Constant.GetConfiguration(Config); Function GetConfiguration(Var LConfig: TConfig): Boolean; So schauts in der Constant.pas aus.

Jedesmal wenn ich aus dem Thread die Function aufrufe kommt es zu einer Zugriffsverletzung.

markieren

Delphi-Quellcode:

procedure TChangeMemberstatus.Execute;
begin
  CreateDataModules;

  Synchronize(OutputMessage);

  FreeDataModules;
end;

Die eigentliche Übergabe ist:
Core_Form.HandleThreadMessages(True, Msg); Hab erstmal damit kämpfen müssen das der Record daten enthällt im Thread. Jedesmal wenn die Function aufgerufen wurde, waren im Record keine Werte. Das ist jedoch behoben aber die Zugriffsverletzung bleibt. Mache ich da was falsch oder geht das einfach nicht auf die Art?

Zitat:

(IsCommand OR Not IsCommand)

ergibt immer True.
Schon mal versucht die Konfiguration mitzuübergeben?
Schon mal im Debugger angesehen?

Das es immer True ergibt ist mir klar. Hat aber nichts mit dem eingetlichen Problem zu tun.
Konfiguration ist ja vorhanden habe ich auch getestet. Der Fehler selbst kommt von der AOChat
Komponente.

Zitat:

---------------------------
Debugger Exception Notification
---------------------------
Project NextGen.exe raised exception class EAccessViolation with message 'Access violation at address 004C6DF0 in module 'NextGen.exe'. Read of address 000002F8'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Das ist die genaue Fehlermeldung und ich muss zugeben ich habe keine Ahnung was die zu bedeuten hat.

AOChat.SendGroup('Point of no Return', 'Test'); // da tritt der Fehler schon auf Wie man hier im Test sieht, sind da keine Variablen übergeben, sondern nur feste Werte an eine Komponente.

Wann wird AOChat intantiiert? Diese Komponente sollte eigentlich für jeden Thread eine Instanz haben.

Bisher ist es so...

Ich habe die AOChat Komponente auf meiner Form. Im Create der Form wird die Konfiguration geladen und auch gleich das AOChat.Connect ausgefüht. Danach das AOChat.Login...

Wie man ja aus dem namen erkennen kann, ist es eine Chat Komponente. Da das Chatsystem von AO nicht das dollste ist, reagiere ich mit Threads auf die Ereignisse der Komponente.

zusammenfalten · markieren

Delphi-Quellcode:

{ ---------------------------------------------------------------------------- }
{ -   Thread zum registrieren der Memberstatus starten  (Online / Offline)   - }
{ ---------------------------------------------------------------------------- }
procedure TCore_Form.AOChatFriendStatusChange(Sender: TObject;
  Friend: TFriendInfo);
Var
  ChangeMemberstatus : TChangeMemberstatus;
begin
ChangeMemberstatus := TChangeMemberstatus.Create(True);
ChangeMemberstatus.FreeOnTerminate := True;
ChangeMemberstatus.Orgname := Organisation;
ChangeMemberstatus.AOChat := AOChat;
ChangeMemberstatus.Online := Friend.Online;
ChangeMemberstatus.Charname := Friend.Name;
ChangeMemberstatus.Resume;
end;

Bisher damit es lauffähig ist, habe ich die AOChat praktisch mit übergeben. Im Thread kann ich dann auf diese Zugreifen. Ich hätte halt gerne diese Komponente aus den Threads raus.
Also dachte ich mir in meiner Hauptform erstelle ich die schon angesprochene Function die dann die Daten direkt ausgibt. So das ich im Thread selber wirklich nur das wichtigste erledige.

markieren

Delphi-Quellcode:

  AOChat.SendGroup(Orgname, OutputStr);
  //Core_Form.HandleThreadMessages(True, Outputstr);

Sobald ich aber die Daten an meine Core_Form übergebe kommt die Zugriffsverletzung.
Wenn ich dagegen im Thread die Komponente mit übergebe klappt es.

markieren

Delphi-Quellcode:

Function TCore_Form.HandleThreadMessages(IsCommand: Boolean; Msg: String): Boolean;
Begin
Msg := FormatOutgoing(Msg);
AOChat.SendGroup('Point of no Return', 'Test');
End;

Ich berücksichtige hier nichtmal Variablen. Es wird einfach nur was Statisch ausgegeben aber das klappt einfach nicht. Geht das aus den Threads heraus nicht?