🚀 go-pugleaf

Thanks friend, it working now.  I tried it on a single machine, I still need
to test it on networked machines though.  Theoratically there shouldn't be
any problems there either.

Regards,
Muhammad Momin Rashid.

"Jarkko Juntunen" <dzeidzei@suolakaivos.com> wrote in message
news:Xns937B37F94604dzeidzei@207.105.83.65...
> "Muhammad Momin Rashid" <momin@hotmail.com> wrote in
> news:3ec1568a@newsgroups.borland.com:
>
> > Following is the code which executes on a button click
> >
> > void __fastcall TForm1::Button1Click(TObject *Sender)
> > {
> >   AnsiString asTemp = "";
> >   unsigned long lBufferSize = 0;
> >
> >   StatusBar1->SimpleText = "Sending Message";
> >
> >   asTemp = EditSendTo->Text;
> >   lBufferSize = asTemp.WideCharBufSize() + 1;
> >   wchar_t *wcSendTo = new wchar_t[lBufferSize];
> >   wcSendTo = asTemp.WideChar(wcSendTo, lBufferSize);
> >
> >   asTemp = EditMessageFrom->Text;
> >   lBufferSize = asTemp.WideCharBufSize() + 1;
> >   wchar_t *wcFromName = new wchar_t[lBufferSize];
> >   wcFromName = asTemp.WideChar(wcFromName, lBufferSize);
> >
> >   lBufferSize = MemoMessage->GetTextLen() + 1;
> >   char *cBuffer = new char[lBufferSize];
> >   MemoMessage->GetTextBuf(cBuffer, lBufferSize);
> >
> >   int iReturn = NetMessageBufferSend(wcSendTo, wcSendTo, wcFromName,
> > cBuffer, lBufferSize);
> >
> >  // additional code here for error checking and cleanup
> >
> >   delete [] wcSendTo;
> >   delete [] wcFromName;
> >   delete [] cBuffer;
> > }
> >
>
> You should cast buffer to LPBYTE, and "calculate" buffer length to
> correct value.
> Some time ago I just fight with this same thing and I think f following
> chunk of code will do the trick.
>
> AnsiString asRecipient = EditSendTo->Text;
> AnsiString asFrom = EditMessageFrom->Text;
> AnsiString asMessage = "";
>
> for(int i=0; i<MemoMsg->Lines->Count; i++)
>   {
>     asMessage += MemoMessage->Lines->Strings[i];
>   }
>
> wchar_t * MyBuffer = new wchar_t[asMessage.WideCharBufSize()];
> wchar_t * MyUser = new wchar_t[asRecipient.WideCharBufSize()];
> wchar_t * MySelf = new wchar_t[asFrom.WideCharBufSize()];
>
> asMessage.WideChar(MyBuffer, asMessage.WideCharBufSize());
> asRecipient.WideChar(MyUser, asRecipient.WideCharBufSize());
> asFrom.WideChar(MySelf, asFrom.WideCharBufSize());
>
> NET_API_STATUS MyStatus = NetMessageBufferSend(NULL,
>                     MyUser,
>                     MySelf,
>                     (LPBYTE)MyBuffer,
>                     wcslen(MyBuffer) * sizeof(WCHAR));
> delete [] MyBuffer;
> delete [] MyUser;
> delete [] MySelf;
>
> --
> -jii