Hey leute,

Ich have folgendes problem:
Ich hab das hier, was bis jetzt immer in einem timer stand:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
 DCanvas: TCanvas;
 DHandle: HDC;
begin
 DHandle:=GetDC(0);
 if DHandle<>0 then
 begin
   try
     DCanvas:=TCanvas.Create;
     try
     DCanvas.Handle:=DHandle;
     if DCanvas.Pixels[293, 335] = RGB(239, 239, 239 )
       then
       begin
       Timer1.Enabled := false;
       Timer2.Enabled := false;

       Label4.Caption := inicurrent;
       Label4.Visible := true;
       Label5.Visible := true;


       Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'LastPin_CorrectPin.txt');
       Ini.WriteString('rCracker', 'Correct Pin', inicurrent);

       if Checkbox1.Checked = true then
       PlaySound(PChar('logged.wav'),0,SND_ASYNC or SND_LOOP);
       
       ShowMessage ('yupp');
       PlaySound(nil,0,0);
        end
     finally
       DCanvas.Free;
     end;
    finally
      if ReleaseDc(0, DHandle)<>1 then
        RaiseLastOSError;
    end;
 end
 else
   RaiseLastOSError;
end;

Doch ich will das jetzt anders machen und zwar so:
Den timer löschen und ne eigene procedure draus machen, also:

zusammenfalten · markieren

Delphi-Quellcode:

procedure logcheck();
var
 DCanvas: TCanvas;
 DHandle: HDC;
begin
 DHandle:=GetDC(0);
 if DHandle<>0 then
 begin
   try
     DCanvas:=TCanvas.Create;
     try
     DCanvas.Handle:=DHandle;
     if DCanvas.Pixels[293, 335] = RGB(239, 239, 239 )
       then
       begin
       Timer2.Enabled := false;

       Label4.Caption := inicurrent;
       Label4.Visible := true;
       Label5.Visible := true;


       Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'LastPin_CorrectPin.txt');
       Ini.WriteString('rCracker', 'Correct Pin', inicurrent);

       if Checkbox1.Checked = true then
       PlaySound(PChar('logged.wav'),0,SND_ASYNC or SND_LOOP);
       
       ShowMessage ('Eingeloggt, Pin ist: '+inicurrent);
       PlaySound(nil,0,0);
        end
     finally
       DCanvas.Free;
     end;
    finally
      if ReleaseDc(0, DHandle)<>1 then
        RaiseLastOSError;
    end;
 end
 else
   RaiseLastOSError;
end;

Also damit ich das dann per button einfach mit LogCheck() durchführen kann. Doch aufeinamal sagt delphi:

markieren

Code:

[Error] Main.pas(138): Undeclared identifier: 'Timer2'

Obwohl diese timer immernoch da ist, woran kann das liegen?

[edit=SirThornberry]code-Tags durch delphi-Tags ersetzt - Mfg, SirThornberry[/edit]

Deine Prozedur ist keine Methode deiner Form-Klasse. Die Timer Variable, und auch die anderen Komponenten Variablen, sind ist deshalb unbekannt.

Ok Danke für die schnelle antwort.
Wie sollte ich es dann machen?

procedure TForm1.logcheck(); Und im private-Abschnitt von Form1 procedure logcheck(); deklarieren.

Zitat von DeddyH:

procedure TForm1.logcheck(); Und im private-Abschnitt von Form1 procedure logcheck(); deklarieren.

oder:

in der logcheck-procedure auf den Timer so zugreifen:

Form1.Timer2... Wobei die erstgenannte Möglichkeit aber die bessere ist.

Zitat von Neutral General:

Zitat von DeddyH:

procedure TForm1.logcheck(); Und im private-Abschnitt von Form1 procedure logcheck(); deklarieren.

oder:

in der logcheck-procedure auf den Timer so zugreifen:

Form1.Timer2...

Bloß nicht! Er arbeitet mit Klassen/Objecten (TForm1) und soll plötzlich mit globalen arbeiten?! Wenn man mit globalen arbeiten will kann man auch gleich die Klassen weg lassen. Aber ein mix aus beiden muss nun wirklich nicht sein.

Das sehe ich genauso. Man muss ja nicht Mist machen, nur weil es möglich ist

Zitat von Neutral General:

Wobei die erstgenannte Möglichkeit aber die bessere ist.

Ich wollte eben sagen das es auch anders möglich ist. Denn das Prinzip bzw. die Logik dahinter sollte man trotzdem verstehen finde ich.

Zitat von Neutral General:

Zitat von Neutral General:

Wobei die erstgenannte Möglichkeit aber die bessere ist.

Ich wollte eben sagen das es auch anders möglich ist. Denn das Prinzip bzw. die Logik dahinter sollte man trotzdem verstehen finde ich.

Ok, unter beachtung dessen ist es vertretbar. Ansonsten vetrete ich die Meinung das man dinge die falsch sind lieber vorenthalten sollte.

Ich bekomme schon regelmäßig die Kriese wenn ich Beispiele mit globalen lese wo drauf verwiesen wird das es im Buch "Programmieren für Kids" so gezeigt wird. Da wird doch nicht wirklich Anfängern gezeigt wie man es falsch macht