besked over NT

ZIRON >> Fejlen er ikke din men Borlands hele NET API er ikke protet til Delphi .... Så det er su nød til selv at gøre. skal du bruge NetMessageBufferSend() skal du således skeive det følgende :


function NetMessageBufferSend(servername, msgname, fromname : LPTSTR; buf : PBYTE;  buflen : DWORD) : DWORD; stdcall; external NETAPI;
//The NetMessageBufferSend function sends a buffer of information to a registered message alias.


Jens B

okay, nu har jeg siddet og leget lidt med det og jeg får denne fejl:

[Error] Unit1.pas(32): Undeclared identifier: \'NETAPI\'

hvad kan grunden være???

/ZIRON

undskyld min fejl :

  const
    NETAPI                    = \'netapi32.dll\';


Jens B

Borrisholt du skulle vel ikke lige have et eks. dom jeg måtte kigge på, jeg kan nemmelig ikke rigtig få det til at virke???

/ZIRON

ziron  >> Ikke lige på den funktion  men andre NetAPI eksempkler .. held mig en mail ... Jens@Borrisholt.com

Jens B

jeg vil da godt se de andre???

ziron@wanadoo.dk

/ZIRON

tak skal du have... jeg vil lige kigge på det...

under Netmessagebuffersend skal man definere \"LPBYTE buf og  DWORD buflen\" hvad kunne man skrive i dem????

lidt død...

/ZIRON

ZIRON >> C++ er ikke lige din stærke side ? :-(

Citat fra MSDN :

Parameters

servername
  [in] Pointer to a constant Unicode string specifying the name of the remote server on which the function is to execute. The string must begin with \\\\. If this parameter is NULL, the local computer is used.

msgname
  [in] Pointer to a constant Unicode string specifying the message alias to which the message buffer should be sent.
fromname

  [in] Pointer to a constant Unicode string specifying who the message is from. If this parameter is NULL, the message is sent from the local computer name.

buf
  [in] Pointer to a buffer that contains the message text.

buflen
  [in] Specifies a DWORD value that contains the length, in bytes, of the message text pointed to by the buf parameter

Jens B

ja det har jeg fundet frem til, men jeg tænkte på i \"DWORD buflen\" om man ikke skal gå ud og finde ud af hvor meget den text man sender fylder????

/ZIRON

Jo ... Brug Length() :-) Den retunerer dig længden af end streng og det er det stopper du ind i sidst argument.

Jens B

hvad så med LPBYTE buf???

en pchar

ja men hvad kan der stå i den???

HEST vil være et godt bud ..

Hvad skal der stå i en  ShowMessage ?

Jens B

en string vile være godt...

ikke helt med, hvis det er du har tid så kunne du jo kigge her:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function NetMessageBufferSend(servername, msgname, fromname : LPTSTR; buf : PBYTE;  buflen : DWORD) : DWORD; stdcall; const NETAPI = \'netapi32.dll\';
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
NetMessageBufferSend(pchar(edit1.text), pchar(edit2.text), pchar(edit3.text), nil, Length(edit2.text));
end;

end.

/ZIRON

okay det kunne du vist ikke helt lide :-)

Ziron >> Jeg har ikke kigget på det .... Arbejde du ved ...

nej bare rolig jeg hygger mig med en fysik rapport...

/ZIRON

ååja those where the days ......

Nyd din frihed mens du har den ...

Jens B

tak skal du have...

/ZIRON

borrisholt >> du skulle vel ikke have fundet ud af noget??? jeg står nemmelig og godt kunne bruge det nu...

/ZIRON

hvor har du endelig fundet frem til at det er delhpi\'s NETAPI der ikke virker, og hvor har du fundet ud af hvad man så skal gøre???

/ZIRON

ZIRON >> prøv den her pus og tør så øjenene :

  NetMessageBufferSend(pchar(edit1.text), pchar(edit2.text), pchar(edit3.text), PByte(Pchar(\'Hest\')), Length(edit2.text));


Jens B

tak men det virker stadig ikke...

det skal bare ind i stedet for:

procedure TForm1.Button1Click(Sender: TObject);
begin
NetMessageBufferSend(pchar(edit1.text), pchar(edit2.text), pchar(edit3.text), nil, Length(edit2.text));
end;

???

/ZIRON

yep !

skal jeg tilføje netapi32.dll???

/ZIRON

nej nej ...

Du skal bare mappe funktionen :

function NetMessageBufferSend(servername, msgname, fromname : LPTSTR; buf : PBYTE;  buflen : DWORD) : DWORD; stdcall; const NETAPI = \'netapi32.dll\';


Ellers kan du jo blot inkludere den pas fil som fulgte med den der NT user list ting jeg sendte dig ....

Jens B

det vil ikke men vil lige prøve med din fil...

/ZIRON

jeg kan heller få din fil til at virke.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, netapi32;

type
  TForm1 = class(TForm)
    edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);
begin
NetMessageBufferSend(pchar(edit1.text), pchar(edit2.text), pchar(edit3.text), PByte(Pchar(\'Hest\')), Length(edit2.text));

end;

end.

burde den ikke se sådan ud med din fil og så virke???

/ZIRON

NEJ !!!ALT hvad du ska bruge fra NET APi skal du selv mappe :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, netapi32;

type
  TForm1 = class(TForm)
    edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


function NetMessageBufferSend(servername, msgname, fromname : LPTSTR; buf : PBYTE;  buflen : DWORD) : DWORD; stdcall; const NETAPI = \'netapi32.dll\';

implementation

{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);
begin
NetMessageBufferSend(pchar(edit1.text), pchar(edit2.text), pchar(edit3.text), PByte(Pchar(\'Hest\')), Length(edit2.text));

end;

end.

SÅDAN her !

Jens B

jeg får denne fejl:

[Error] Unit1.pas(29): Unsatisfied forward or external declaration: \'NetMessageBufferSend\'

skal \"function NetMessageBufferSend\" stå foran \"implementation {$R *.DFM}\" og ikke efter???

Har du selv prøvet den??? for jeg kan bare ikke få det til at køre...

/ZIRON

sådan her helt efter bogen ...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, netapi32;

type
  TForm1 = class(TForm)
    edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
    NETAPI                    = \'netapi32.dll\';

function NetMessageBufferSend(servername, msgname, fromname : LPTSTR; buf : PBYTE;  buflen : DWORD) : DWORD; stdcall; external NETAPI;
//The NetMessageBufferSend function sends a buffer of information to a registered message alias.


implementation

{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);
begin
  NetMessageBufferSend(pchar(edit1.text), pchar(edit2.text), pchar(edit3.text), PByte(Pchar(\'Hest\')), Length(edit2.text));

end;

end.

SLUT her fra.

Jens B

jeg må være total dum... det vil bare ikke...

en sidste ting, du har vel lige skrevet det ind i delphi så kunne jeg ikke få dig til at sende det så kunne jeg selv kigge på projektet???

ziron@wanadoo.dk

ellers så skal du have tak for hjælpen, det var jo lidt af et svar.

/ZIRON

tak for det... den natapi32.dll er jeg skal tilføje er bare den jeg fik fra dig ik\'???

/ZIRON

natapi32.dll er en standard del af din windows så du skal bare skrive kode præcis som det tilsendte ....

Jens B

så laver den en felj i uses når den kommer til \"NETAPI32\"???

/ZIRON

borrisholt er det okay at jeg lukker da dette ikke kunne hjælpe mig og jeg har jo fået det til???

/ZIRON

ZIRON >> Det lille komponent jeg sendte dig, burde vel etenlig også besvare dette spørgsmål ?

Jens B

JAAA det er da rigtig nok, meeen så lad gå :-)

/ZIRON