[gelöst]Indy, "Identifier not found" error

[Dragon]

Ich sehe zurzeit den Wald vor Lauter Bäumen nicht mehr ich kriege immer ein "Identifier not found" error bei allen befehlen also username,nickname,... . Weiß jemand zufällig wo der fehlerliegt. Indy ist unter den abhängigkeiten vorhanden also kanns daran eig nicht liegen

Code: Alles auswählen

program Project1;
 
{$mode objfpc}{$H+}
 
uses {$IFDEF UNIX} {$IFDEF UseCThreads}
  cthreads, {$ENDIF} {$ENDIF}
  Classes,
  SysUtils,
  IdIRC;
 
{ you can add units after this }
var
  a: string;
begin
  ReadLn(a);
  if a = 'Connect' then
  begin
    begin
      IdIRC.username := 'Bot';           
      IdIRC.nickname := 'Bot';           
      IdIRC.Host := '127.0.0.1';            
      IdIRC.Port := 6667;                     
      try                                  
        IdIRC.Connect();                     
        IdIRC.Join('#test');
      except                                
        ShowMessage('Fehler beim Verbinden!');
      end;
    end;
  end;
end.

[theo]

Du verwendest den Unit Namen, als wäre er eine Instanz einer Klasse.
Denk nochmal nach, da fehlt irgendwo etwas wie MyIdIRC=TIdIRC.Create...
(obwohl ich diese Unit nicht kenne).

[Dragon]

Die Unit "idirc" ist teil des Packages indy, welches ich in den Abhängigkeiten hinzugefügt habe unter den benötigten packages.

trotzdem schonmal danke.

[compmgmt]

Die Unit "idirc" ist teil des Packages indy, welches ich in den Abhängigkeiten hinzugefügt habe unter den benötigten packages.

trotzdem schonmal danke.

Es geht darum, dass IdIRC eine Unit und kein Objekt ist. Ich habe IdIRC zwar noch nie benutzt, aber das müsste ungefähr so aussehen:

Code: Alles auswählen

program Project1;
 
{$mode objfpc}{$H+}
 
uses {$IFDEF UNIX} {$IFDEF UseCThreads}
  cthreads, {$ENDIF} {$ENDIF}
  Classes,
  SysUtils,
  IdIRC;
 
{ you can add units after this }
var
  a: string;
  MyIdIRC: TIdIRC; // Vllt. heißt es auch anders, musst du mal schauen
begin
  ReadLn(a);
  if a = 'Connect' then
  begin
    begin
      MyIdIRC := TIdIRC.Create // Kann sein dass da noch ein Parameter hin muss, aber du musst erst das Objekt konstruieren
      MyIdIRC.username := 'Bot';           
      MyIdIRC.nickname := 'Bot';           
      MyIdIRC.Host := '127.0.0.1';            
      MyIdIRC.Port := 6667;                     
      try                                  
        MyIdIRC.Connect();                     
        MyIdIRC.Join('#test');
      except                                
        ShowMessage('Fehler beim Verbinden!');
      end;
      FreeAndNil(MyIdIRC); // Objekt wieder freigeben
    end;
  end;
end.

[Dragon]

compmgmt danke so läuft der Compiler schonmal durch nur showmassage macht jetzt noch Probleme.

[compmgmt]

compmgmt danke so läuft der Compiler schonmal durch nur showmassage macht jetzt noch Probleme.

Das liegt am Debugger. Probiere es mal direkt aus dem Ordner zu starten, dann müsste es gehen

[Dragon]

Der Error kommt schon beim compilieren nicht erst beim debuggen

[compmgmt]

Der Error kommt schon beim compilieren nicht erst beim debuggen

Richtig. Der Debugger ignoriert das "except"

Kompileiere das Programm, gehe in den Ordner in dem das Programm gespeichert ist und starte es per Doppelklick. Dann funktioniert es.

[Dragon]

DA gibs je eben nichts zum ausführen weil bei "ShowMessage" der kompiler mosert

ich kommentiere es mal es und teste es dann

[compmgmt]

DA gibs je eben nichts zum ausführen weil bei "ShowMessage" der kompiler mosert

ich kommentiere es mal es und teste es dann

Was ist denn die Fehlermeldung. "Access Violation" oder "Blabla.exe hat eine Exception vom Typ..."?
Du darfst das Programm nicht mit der F9-Taste starten, sondern musst es wie der Endbenutzer über den Explorer bzw. Dateimanager ausführen. Sonst meckert natürlich der Debugger.

[Dragon]

ok wenn ich es auskommentiere geht es
muss nurnoch die fehlerausgabe anpassen damit sie aufm CLI ausgegben wird, danke.

PS: Er hatte auch einen "Identifier not found" ausgeworfen

Aber show message macht sowiso keinen sinn in ner CLI anwendung werde ich noch ändern

[compmgmt]

ok wenn ich es auskommentiere geht es
muss nurnoch die fehlerausgabe anpassen damit sie aufm CLI ausgegben wird, danke.

ACHSO! Du bist in einem Konsolenprogramm. Da musst du die "MessageBox"-Funktion benutzen

[Dragon]

so hab das show mesage mal geg ein writeln getauscht.
Er kompiliert es auch anstandslos, aber wenn ich dann provoziere das er die Meldung ausgeben müsste, gibt er die Meldung nicht aus,
sondern beendet das programm direkt ohne die meldung vorher auszugeben.

[compmgmt]

Da weiß ich jetzt grade nicht, woran es liegt. Aber du solltest noch den gesamten Zugriff in ein try-finally packen. Also ungefähr so:

Code: Alles auswählen

...
try
      MyIdIRC := TIdIRC.Create // Kann sein dass da noch ein Parameter hin muss, aber du musst erst das Objekt konstruieren
      MyIdIRC.username := 'Bot';           
      MyIdIRC.nickname := 'Bot';           
      MyIdIRC.Host := '127.0.0.1';            
      MyIdIRC.Port := 6667;                     
      try                                  
        MyIdIRC.Connect();                     
        MyIdIRC.Join('#test');
      except                                
        WriteLn('Fehler beim Verbinden!');
      end;
finally
      FreeAndNil(MyIdIRC);
end;
...
 

[Dragon]

Hab deine änderungen noch mit eingefügt, danke für deine hilfe.

bloß writeln macht immernoch probleme wird nicht angezeigt.