unit1.cpp

net send for builder 5

//---------------------------------------------------------------------------

#include <vcl.h>
#include <stdio.h>
#include <lm.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{

AnsiString complMes=(Memo1->Text).Trim();
AnsiString  serv = (Edit1->Text).Trim();
AnsiString servFrom=(Edit2->Text).Trim();

wchar_t *awcToServ=new wchar_t[serv.WideCharBufSize()];
wchar_t *ss=new wchar_t[complMes.WideCharBufSize()];
wchar_t *ss2=new wchar_t[servFrom.WideCharBufSize()];

complMes.WideChar(ss, complMes.WideCharBufSize());
serv.WideChar(awcToServ, serv.WideCharBufSize());
servFrom.WideChar(ss2,servFrom.WideCharBufSize());

DWORD dwRet = NetMessageNameAdd(NULL, ss2);

dwRet = NetMessageBufferSend
(NULL,
awcToServ,
ss2,
((LPBYTE)ss),
complMes.WideCharBufSize()*2);

dwRet = NetMessageNameDel(NULL,ss2);

if(dwRet==ERROR_ACCESS_DENIED) ShowMessage("ERROR_ACCESS_DENIED");
if (dwRet==ERROR_INVALID_PARAMETER) ShowMessage("ERROR_INVALID_PARAMETER");
if  (dwRet==ERROR_NOT_SUPPORTED) ShowMessage("ERROR_NOT_SUPPORTED");
if (dwRet==NERR_NameNotFound) ShowMessage("NERR_NameNotFound");
if  (dwRet==NERR_NetworkError) ShowMessage("NERR_NetworkError");

delete awcToServ,ss,ss2;
awcToServ,ss,ss2 = NULL;
}
//---------------------------------------------------------------------------