Deutsches Lazarusforum

Hallo, vielecht hat ja jemand eine idee, warum folgender Code nicht geht...

Ich möchte gerne global evtl. Fehler in einem Logbuch schreiben

...
private
procedure OnError(Sender: TObject; E: Exception);
...

procedure TForm1.OnError(Sender: TObject; E: Exception);
begin
form1.logbuch(E.Message ...

So kann die Mac Adresse ausgelesen werden:

uses
jwanb30;

function MacAdresse():string; //Mac Adresse auslesen
function GetAdapterInfo(Lana: UChar): String;

implementation

function GetAdapterInfo(Lana: UChar): String;
var
Adapter: TAdapterStatus;
NCB: TNCB;
begin
FillChar(NCB, SizeOf(NCB ...

Ich habe noch weiter im Internet gesucht, finde aber nichts in dieser Richtung...

Ich habe mir die WMI and SMART Component von Magsys die Datei magwmi50.zip heruntergeladen.

Alles für Lazarus umgewandelt und dann kommen die Fehlermeldungen in der Datei WbemScripting_TLB.pas

Ich bin wie folgt ...

// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type ...

Bei diesem Code meldet er:

procedure TSWbemNamedValueSet.InitServerData;
const
CServerData: TServerData = (
ClassID: '{9AED384E-CE8B-11D1-8B05-00600806D9B6}';
IntfIID: '{CF2376EA-CE8C-11D1-8B05-00600806D9B6}';
EventIID: '';
LicenseKey: nil;
Version: 500);
begin
ServerData := @CServerData ...

Folgendes Meldet der Compiler:
Unit1.pas(20,46) Hint: Parameter "CloseAction" not used
C:\Delphi\Lazarus\InternetCafe.ag\GemeinsameUnits\WbemScripting_TLB.pas(49,2) Warning: Illegal compiler directive "$VARPROPSETTER"
C:\Delphi\Lazarus\InternetCafe.ag\GemeinsameUnits\WbemScripting_TLB.pas(1,1) Fatal ...

Nur laufen die Komponenten nicht

Habe die Web.._TBL versucht zu verwenden. Aber da kommen nur Fehlermeldungen...

Hallo,

ich bin gerade dabei ein Delphi Projekte in Lazarus umzuwandeln. Nun stellen sich zwei Probleme:

1. Wie kann ich Hardware Infos über die WMI auslesen

2. Wie erhalte ich die Mac Adresse der Netzwerkkarte

Vieleicht kann ja jemand helfen...