Programm friert bei Download ein?

[Die Muhkuh]

Haste auch brav "type" davor geschrieben?

[buster55]

ich bin die bravigkeit in person

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  cDownloadStatusCallback = class(TObject,IUnknown,IBindStatusCallback)

bitte nicht schimpfen wenns falsch is

[dominikkv]

Zitat von buster55:

ich bin die bravigkeit in person

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  cDownloadStatusCallback = class(TObject,IUnknown,IBindStatusCallback)

bitte nicht schimpfen wenns falsch is

FALSCH! SCHIMPF!

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
  // ...
  public
  // ...
  end;

  cDownloadStatusCallback = class(TObject,IUnknown,IBindStatusCallback)
  // bla
  end;

[buster55]

gemacht, danke aber jetzt kommt leider das :
[Error] Unit1.pas(74): Undeclared identifier: 'OnStartBinding'
[Error] Unit1.pas(74): Undeclared identifier: 'GetPriority'
[Error] Unit1.pas(74): Undeclared identifier: 'OnLowResource'
[Error] Unit1.pas(74): Undeclared identifier: 'OnProgress'
[Error] Unit1.pas(74): Undeclared identifier: 'OnStopBinding'
[Error] Unit1.pas(74): Undeclared identifier: 'GetBindInfo'
[Error] Unit1.pas(74): Undeclared identifier: 'OnDataAvailable'
[Error] Unit1.pas(74): Undeclared identifier: 'OnObjectAvailable'
[Error] Unit1.pas(74): Undeclared identifier: 'QueryInterface'
[Error] Unit1.pas(74): Undeclared identifier: '_AddRef'
[Error] Unit1.pas(74): Undeclared identifier: '_Release'
[Error] Unit1.pas(92): Undeclared identifier: '_AddRef'
...
...
... geht noch lang weiter ;-(


und das alles beim code:

Delphi-Quellcode:

  private
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
    function OnStartBinding(dwReserved: DWORD; pib: IBinding): HResult; stdcall;
    function GetPriority(out nPriority): HResult; stdcall;
    function OnLowResource(reserved: DWORD): HResult; stdcall;
    function OnProgress(ulProgress, ulProgressMax, ulStatusCode: ULONG; szStatusText: LPCWSTR): HResult; stdcall;
    function OnStopBinding(hresult: HResult; szError: LPCWSTR): HResult; stdcall;
    function GetBindInfo(out grfBINDF: DWORD; var bindinfo: TBindInfo): HResult; stdcall;
    stdcall;
    function OnObjectAvailable(const iid: TGUID; punk: IUnknown): HResult; stdcall;


  public

   end;
   cDownloadStatusCallback = class(TObject,IUnknown,IBindStatusCallback)
  end;

[Die Muhkuh]

Schau mal genau, wie Dominik es gezeigt hat.

Desweiteren nicht vergessen, die benötigten Units einzubinden.

[buster55]

könnt iht mir nicht einfach zeigen was ich da falsch mache den meiner ansicht nach ist es genau so wie dominikkv
erst private dann public dann ein end; dann die klassendeklaration und nochmal ein end;

[dominikkv]

Mit Type legst du einen neuen Typ fest, zB eine Klasse. Eine Klasse besteht grob gesagt aus dem:

Delphi-Quellcode:

type  // Schlüsselwort
  TMeineKlasse = class(Vorfahr)
  // Felder, Methoden und Eigenschaften
  end;

Bei dir gibt es schon eine von der IDE angelegte Klasse namens TForm1.
Jetzt willst du eine neue Klasse unten drunter setzen.

Delphi-Quellcode:

type  // Schlüsselwort
  TMeineKlasse = class(Vorfahr)
  // Felder, Methoden und Eigenschaften
  end;

  TMeineNeueKlasse = class(Vorfahr)
  // Felder, Methoden und Eigenschaften
  end;

Nicht vergessen das eine Klasse mit end; abgeschlossen wird

[SaFu]

Und sowas kommt in die Code-Library, wo von vornherein der Code nicht stimmt. Traurig

[buster55]

danke mein guter ich liebe dich
ne im ernst hast mir gut geholfen, das kommt davon wenn man ~1/3 jahr nicht aktiv programmiert

[dominikkv]

Zitat von fuknersascha:

Und sowas kommt in die Code-Library, wo von vornherein der Code nicht stimmt. Traurig

öhh... der stimmt doch -.-