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.
men da jeg ikke har kunne få det til at virke endnu spørger jeg lige igen er der nogen der kan hjælpe mig???
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
The NetMessageBufferSend function sends a buffer of information to a registered message alias.
Security Requirements
No special group membership is required to execute NetMessageBufferSend on a LAN Manager or Windows NT system. Admin, Accounts, Print, or Server operator group membership is required to successfully execute NetMessageBufferSend on a remote server.
Pointer to a Unicode string containing the name of the remote server on which the function is to execute. A NULL pointer or string specifies the local computer.
msgname
Pointer to a Unicode string containing the message name to which the message buffer should be sent.
fromname
Pointer to a Unicode string containing the message name sending the information. The fromname parameter is new for Windows networking. This parameter is needed for sending interrupting messages from the computer name rather than the logged on user. If NULL is specified, the message is sent from the logged-on user as with LAN Manager 2.x.
buf
Pointer to a buffer of message text.
buflen
The length, in bytes, of the message text in buf.
Men hvad er MsgName ?? ellers ser det jo \"nemt\" ud, har du prøvet GetLastErr
Nej, det er BUF der er indholdet af din besked, og du behøver ikke convertere noget hvis du har delphi5, så vit jeg kan se, jeg tror det er MSGName parameteren du skal havde rigtig.
Hej Igen nu har jeg forsket lidt, og kunne ikke få det til at virke lige umiddelbart, men jeg fandt dette i hjælpen :
The messenger service must be running on the receiving computer, which will display a popup message when the message is received. In addition, the Workstation service must be running on the local computer. Netbios is the transport mechanism used between the sender and receiver.
og det læser jeg som om at du ihvertfald skal havde NETBIOS kørende plus \"messenger service\"
Mit problem er at jeg KUN har TCP/IP, så det sker absolut igen ting hos mig, men jeg tror nu stadig at det er noget med at msgName skal være \"kendt\" at NT på en eller andet måde, for hvad skal man ellers bruge NetMessageNameInfo, NetMessageNameAdd til, måske det er lige som en alm. message, den kan man jo sende til en Window-Handle eller til \"WM_BROADCAST\", og jeg tror sku det er noget i den retning. Har du huske at converte dine strenge til UNICODE, delphi bruger jo ANSI som std.
Hvis du skrivet til Jens@Borrisholt.com så skal jeg sende dig et lille eksempel på hvordan man gør. Jeh har pakket skittet ind i et lille komponent Således bliver det kode du skal skrive kun hvem der er fra og hvem det er til samt udfylde en TMemo med din besked ....
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
