Fehler: Undefinierter Bezeichner! Wo liegt das Problem?

[AlexII]

Habe folgenden Code, der folgende Fehlermeldung erzeugt - "Undefinierter Bezeichner: StopRec"
Die procedure ist doch deklariert, wieso dann die Fehlermeldung? Wer kann mir weiter helfen? Danke!

Delphi-Quellcode:

  private
    { Private declarations }
    procedure StopRec;


procedure StatusProc(buffer: Pointer; len, user: DWORD); stdcall;
begin
  if (buffer <> nil) and (len = 0) then
    SendMessage(win, WM_INFO_UPDATE, 8, DWORD(PChar(buffer)));


  if (FileStream = nil) then
      StopRec; <-------
  if (buffer = nil) then
      FileStream.Free 
   else
      FileStream.Write(buffer^, len);
end;

[mkinzler]

Codeausschnitt sieht komisch aus. Poste mal den Rest.

[Muetze1]

Man kann natürlich auch soviel kürzen, dass man gar nichts mehr sieht.

Aber meine Glaskugel behauptet: Du hast eine Methode und versuchst nun in einer Procedure die Methode aufzurufen, was natürlich nicht klappt.

Falls dir die Lösung nicht weiterhilft, informiere dich bitte über Procedure und Methoden und was der Unterschied zwischen diesen ist. Dann weisst du auch die Lösung deines Problems...

[Desmulator]

[StopRec != StatusProc ?] Blödsinn.
Und poste mal bitte alles, sieht wirklich komisch aus.
Das private passt da nicht hin. Irgendwie, sieht so aus als wäre da kein Objekt.

[AlexII]

Zitat von mkinzler:

Codeausschnitt sieht komisch aus. Poate mal den Rest.

Es gibt keinen Rest, so sieht die ganze procedure aus.

[mkinzler]

Nein wass davor kommt. Scheint ein Teil einer Klasse zu sein. dann fehlt aber das end; und die freie Prozedur danach, welche nicht Teil der Klasse zu sein scheint und deshalb die Methode nicht so aufgerufen werden kann

[Luckie]

Die Routine StopRec scheint eine methode einer Klasse zu sein, wen ich die ersten zwei zeilen richtig deute. Die Prozedur StatusProc ist aber keine Methode der Klasse, in der auch StopRec defeniert ist.

Zitat von AlexII:

Es gibt keinen Rest, so sieht die ganze procedure aus.

Es muss einen Rest geben. Deine Codefetzen sind nicht annähernt kompilierbar.

[Neutral General]

StopRec ist eine Methode und kann nur durch eine Instanz der Klasse oder in einer Methode der Klasse aufgerufen werden.

[AlexII]

Habe diesen Code hier im Forum gefunden:

Delphi-Quellcode:

procedure StatusProc(buffer: Pointer; len, user: DWORD); stdcall;
begin
  if (buffer <> nil) and (len = 0) then
    Form1.Label5.Caption := PChar(buffer); // display connection status


  if (FileNeme = '') then
    exit; 
  if (FileStream = nil) then
      FileStream:= TFileStream.Create(FileNeme, fmCreate); // create the file
  if (buffer = nil) then 
      FileStream.Free // finished downloading
   else 
      FileStream.Write(buffer^, len);

end;

FileStream wollte ich in einer anderen procedure createn, deswegen anstatt " FileStream:= TFileStream.Create(FileNeme, fmCreate);" - StopRec

[mkinzler]

Dann übergib den Stream doch als weiterer Parameter oder mache aus der freien Prozedur eine Methode