Click here to Skip to main content
16,008,010 members
Home / Discussions / C / C++ / MFC
   

C / C++ / MFC

 
QuestionHowto convert IXMLDOMNodePtr into IXMLDOMElementPtr (MSXML) ??? Pin
VLAD66631-Jan-03 3:50
VLAD66631-Jan-03 3:50 
GeneralMFC statically linked Pin
naradaji31-Jan-03 3:24
naradaji31-Jan-03 3:24 
GeneralRe: MFC statically linked Pin
naradaji31-Jan-03 3:36
naradaji31-Jan-03 3:36 
GeneralRe: MFC statically linked Pin
Abbas_Riazi1-Feb-03 3:32
professionalAbbas_Riazi1-Feb-03 3:32 
GeneralRe: MFC statically linked Pin
naradaji2-Feb-03 21:56
naradaji2-Feb-03 21:56 
GeneralINet detect[?] Pin
BlackSmith31-Jan-03 2:54
BlackSmith31-Jan-03 2:54 
GeneralRe: INet detect[?] Pin
HENDRIK R31-Jan-03 3:08
HENDRIK R31-Jan-03 3:08 
GeneralInterface fra pc til PLC Pin
Jesper Rahbek31-Jan-03 2:52
Jesper Rahbek31-Jan-03 2:52 
I have a program in VB and this ok but the program in C++ is not ok
Can anybody help me to find the error or translate the VB to C++.

Wink | ;)
Visual Basiv program and this is OK!
///////////////////////////////////////////////
Private Sub Command1_Click()
Dim fins_cmnd(17) As Byte

fins_cmnd(0) = &H80 'ICF
fins_cmnd(1) = &H0 'RSV
fins_cmnd(2) = &H2 'GCT
fins_cmnd(3) = &H1 'DNA netword
fins_cmnd(4) = &H66 'DA1 node 102
fins_cmnd(5) = &H0 'DA2
fins_cmnd(6) = &H1 'SNA network
fins_cmnd(7) = &H64 'SA1 node 100
fins_cmnd(8) = &H0 'SA2
fins_cmnd(9) = &H1 'SID
fins_cmnd(10) = &H1 'MRC
fins_cmnd(11) = &H1 'SRC
fins_cmnd(12) = &H82 'Datatype
fins_cmnd(13) = &H0 'Startadresse
fins_cmnd(14) = &H64
fins_cmnd(15) = &H0
fins_cmnd(16) = &H0 'Antal ord.
fins_cmnd(17) = &H96

Dim I As Integer
Dim sMsg As String

For I = 0 To 17
sMsg = sMsg & Chr$(fins_cmnd(I))
Next

Winsock1.SendData sMsg

End Sub

Private Sub Form_Load()
With Winsock1
.Protocol = sckUDPProtocol
.LocalPort = 9600
.RemotePort = 9600
.RemoteHost = "192.168.1.102"
End With

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sData As String
Dim I As Integer
Dim Counter As Integer

Dim sResp As String
Dim stmp As String

Winsock1.GetData sData, , 2010

For I = 1 To Len(sData) Step 1
stmp = Hex(Asc(Mid$(sData, I, 1)))
While Len(stmp) < 2
stmp = "0" & stmp
Wend
sResp = sResp & stmp
Next

List1.Clear
For I = Len(sResp) - 599 To Len(sResp) Step 4
List1.AddItem "DM" & 100 + Counter & " = " & Mid$(sResp, I, 4)
Counter = Counter + 1
Next I

End Sub

//////////////////////////////////////////////

Visual C++ program and this is not ok pleas help me!!
//Miscellaneous variables
INT status;
WSADATA wsaData;
WORD wVer = MAKEWORD(1,1);
SOCKADDR_IN ws_addr;
int nError;
char szError[80];
ULONG icmd;


//Begin: Init Winsock2
status = WSAStartup(wVer,&wsaData);
if (status != NO_ERROR)
{
WSACleanup();
return;
}

//Init socket
Sock = socket(AF_INET, SOCK_DGRAM,IPPROTO_UDP);
if(Sock < 0)
nError = WSAGetLastError();

// Fill out source socket's address information.
ws_addr.sin_family = AF_INET;
ws_addr.sin_port = htons (FINS_UDP_PORT);
ws_addr.sin_addr.s_addr = htonl (INADDR_ANY);

// Associate the source socket's address with the socket, Sock.
if (bind (Sock,
(struct sockaddr FAR *) &ws_addr,
sizeof (ws_addr)) == SOCKET_ERROR)
{
wsprintf (szError, TEXT("Binding socket failed! Error: %d"),
WSAGetLastError ());
MessageBox (szError, TEXT("Error"), MB_OK);
closesocket (Sock);
return;
}


//Disable non-blocking IO for purposes of this example.
icmd = 0;
status = ioctlsocket(Sock,FIONBIO,&icmd);

//GENERATE MEMORYAREA READ COMMAND
//(READ 150 WORDS FROM D00100.)
memset(fins_cmnd, 0, sizeof(fins_cmnd));
fins_cmnd[0]=0x80; /*ICF*/
fins_cmnd[1]=0x00; /*RSV*/
fins_cmnd[2]=0x02; /*GCT*/
fins_cmnd[3]=0x01; /*DNA*/ //network 1
fins_cmnd[4]=0x66; /*DA1*/ //node 102 /*Ethernet Unit FINS NODE NUMBER*/
fins_cmnd[5]=0x00; /*DA2*/ //unit 0
fins_cmnd[6]=0x01; /*SNA*/ //network 1
fins_cmnd[7]=0x64; /*SA1*/ //node 100 /*WS FINS NODE NUMBER*/
fins_cmnd[8]=0x00; /*SA2*/ //unit 0
fins_cmnd[9]=++sid; /*SID*/
fins_cmnd[10]=0x01; /*MRC*/ //command
fins_cmnd[11]=0x01; /*SRC*/
fins_cmnd[12]=0x82; /*VARIABLE TYPE: DM*/
fins_cmnd[13]=0x00; /*READ START ADDRESS: 100*/
fins_cmnd[14]=0x64;
fins_cmnd[15]=0x00;
fins_cmnd[16]=0x00; /*WORDS READ: 150*/
fins_cmnd[17]=0x96;


/*SEND FINS COMMAND*/
// Fill out source socket's address information.
memset(&cv_addr, 0, sizeof(cv_addr));
cv_addr.sin_family = AF_INET;
cv_addr.sin_port = htons (FINS_UDP_PORT);
cv_addr.sin_addr.s_addr = inet_addr (SERV_IP_ADDR);

sendlen = 18;
iRetVal = sendto(Sock, fins_cmnd, sendlen, 0,
(struct sockaddr FAR *)&cv_addr, sizeof(cv_addr));

///////////////////////////////////////////////////////////
QuestionMinimize-Restore will trigger WM_COMMAND? Pin
Mike Eriksson31-Jan-03 2:41
Mike Eriksson31-Jan-03 2:41 
AnswerRe: Minimize-Restore will trigger WM_COMMAND? Pin
Neville Franks31-Jan-03 10:24
Neville Franks31-Jan-03 10:24 
GeneralRe: Minimize-Restore will trigger WM_COMMAND? Pin
Mike Eriksson2-Feb-03 23:16
Mike Eriksson2-Feb-03 23:16 
GeneralRe: Minimize-Restore will trigger WM_COMMAND? Pin
Neville Franks3-Feb-03 9:27
Neville Franks3-Feb-03 9:27 
GeneralRe: Minimize-Restore will trigger WM_COMMAND? Pin
Mike Eriksson3-Feb-03 22:08
Mike Eriksson3-Feb-03 22:08 
GeneralChanging registry key Pin
Rage31-Jan-03 2:12
professionalRage31-Jan-03 2:12 
GeneralRe: Changing registry key Pin
Rickard Andersson2031-Jan-03 2:24
Rickard Andersson2031-Jan-03 2:24 
GeneralRe: Changing registry key Pin
Rage31-Jan-03 5:06
professionalRage31-Jan-03 5:06 
GeneralRe: Changing registry key Pin
Rage31-Jan-03 5:53
professionalRage31-Jan-03 5:53 
GeneralRe: Changing registry key Pin
xxhimanshu31-Jan-03 19:12
xxhimanshu31-Jan-03 19:12 
GeneralRe: Changing registry key Pin
Abbas_Riazi1-Feb-03 3:36
professionalAbbas_Riazi1-Feb-03 3:36 
GeneralClient/Server advice please! Pin
Rickard Andersson2031-Jan-03 1:52
Rickard Andersson2031-Jan-03 1:52 
GeneralRe: Client/Server advice please! Pin
valikac31-Jan-03 5:51
valikac31-Jan-03 5:51 
GeneralRe: Client/Server advice please! Pin
Rickard Andersson2031-Jan-03 6:47
Rickard Andersson2031-Jan-03 6:47 
GeneralRe: Client/Server advice please! Pin
Rohit  Sinha31-Jan-03 7:19
Rohit  Sinha31-Jan-03 7:19 
GeneralRe: Client/Server advice please! Pin
Moak1-Feb-03 3:04
Moak1-Feb-03 3:04 
GeneralRe: Client/Server advice please! Pin
Rickard Andersson201-Feb-03 4:29
Rickard Andersson201-Feb-03 4:29 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.