Wake on LAN Problem :-(

[paritycheck]

Das liegt daran dass es kein eigenständiges programm sondern eine unit ist. Speicher das ganze mal als hostalive.pas im projektverzeichnis ab und binde es dann per uses im Projekt ein.

Hab dir mal ne kleine Demo angehängt.

[rollstuhlfahrer]

Für Delphi7 musst du entweder die Unit SysUtils in die Unit hostalive einbinden oder folgende Funktion unterhalb von implementation einfügen:

Delphi-Quellcode:

{ Memory management routines }  // kommt aus SysUtils

function AllocMem(Size: Cardinal): Pointer;
begin
  GetMem(Result, Size);
  FillChar(Result^, Size, 0);
end;

Bernhard

EDIT: Ich machs mal genauer:

Zwischen
"function IcmpSendEcho(IcmpHandle: Cardinal; DestinationAddress: Cardinal; RequestData: Pointer; RequestSize: Word; RequestOptions: PIP_OPTION_INFORMATION; ReplyBuffer: Pointer; ReplySize: Cardinal; Timeout: Cardinal): Cardinal; stdcall; external 'Iphlpapi.dll' name 'IcmpSendEcho';"

und (also hier; etwa Zeile 40)

"function IsHostAlive(Hostname: String; pTripTime: PCardinal = nil; Timeout: Integer = 1000; TTL: Integer = 255): Boolean; "

[TimmA]

danke euch, meine signatur ist halt nicht ganz unberechtigt ;-)

wenn ich die demo runterlade und das projekt öffne und starten will kommt

Zitat:

[Warnung] hostalive.pas(19): Unsicherer Typ 'PChar'
[Warnung] hostalive.pas(29): Unsicherer Typ 'Pointer'
[Warnung] hostalive.pas(36): Unsicherer Typ 'Pointer'
[Warnung] hostalive.pas(36): Unsicherer Typ 'Pointer'
[Warnung] hostalive.pas(60): Unsicherer Typ 'PChar'
[Warnung] hostalive.pas(62): Unsicherer Typ 'PChar'
[Warnung] hostalive.pas(64): Unsicherer Typ 'Pointer'
[Fehler] hostalive.pas(82): Undefinierter Bezeichner: 'AllocMem'
[Warnung] hostalive.pas(83): Unsicherer Code '@ operator'
[Warnung] hostalive.pas(83): Unsicherer Code '@ operator'
[Warnung] hostalive.pas(90): Unsicherer Code 'FreeMem'
[Fataler Fehler] frmDemo.pas(7): Verwendete Unit 'hostalive.pas' kann nicht compiliert werden

unsicherer typ? :-(


sorry für meine späte antwort :oops:

[rollstuhlfahrer]

AllocMem oder SysUtils sind noch nicht hinzugefügt. Bei mir kommen die "unsichere Typ"-Meldungen nicht, da sie abschaltbar sind. Was an einem Pointer unsicher sein soll, weiß ich nicht. Desweiteren kannst du alle Warnungen ignorieren. Fehler mussen aber behoben werden.

Bernhard

[Apollonius]

Zitat:

Bei mir kommen die "unsichere Typ"-Meldungen nicht, da sie abschaltbar sind

Wohl eher, da du keine Delphi-.NET-Anwendung verwendest.

[paritycheck]

Versuchs mal mit folgender Datei, damit sollte das ganze auch unter delphi 7 kompilieren.

[TimmA]

das geht, danke euch :-D

[PeterPanino]

Zitat:

Zitat von paritycheck (Beitrag 798078)

Hi,

Wenn es nur darum geht zu überprüfen ob ein Rechner im Netzwerk eingeschaltet ist oder nicht nehme ich meistens diese Funktion. Indys gehen auch aber z.B bei Konsolenanwendungen wird mir dann die Exe zu groß :stupid:

Delphi-Quellcode:

unit hostalive;

...

Bei Domains gibt IsHostalive('delphipraxis.net', @RTT) immer False zurück, auch wenn die Domain de facto normal erreichbar ist. WARUM?

Bei IP-Adressen gibt IsHostalive('88.198.53.15', @RTT) immer True zurück, auch wenn das Kabel vom DSL-Router abgezogen ist. WARUM?