First echo the variable into the command line, like this

C:\echo %PATH%

Then we want to append a new path into this %PATH% variable, like this

C:\set PATH=%PATH%;C:\j2sdk1.4.2_01\bin

First I’ll show you the main.cpp

#include <iostream>
#include <SWI-Prolog.h>

using namespace std;

int main(void){

 static char * av[] = {"calc.pl", NULL};
 if( ! PL_initialise(1,av)){
 cout<<"error initializing"<<endl;
 PL_halt(1);
 }else {
 cout<<"success initializing!"<<endl;
 }

 predicate_t pred = PL_predicate("calc",1,"user");
 term_t h0 = PL_new_term_refs(1);

 int rval;
 char * expression = "pi/2";
 PL_put_atom_chars(h0,expression);
 rval = PL_call_predicate(NULL, PL_Q_NORMAL, pred, h0);
 PL_halt( rval ? 0 : 1 );

 return 0;
}

Secondly I’ll show you calc.pl. It is a prolog file.

calc(Atom) :-
 term_to_atom(Expr, Atom),
 A is Expr,
 write(A),
 nl.

I’ll admit that’s pretty straight forward!

1. Download SWI-Prolog from here. I downloaded version 5.4.7 because in version 5.10.1 I could not find the necessary libpl.dll file that is mentioned in the documentation.
2. In Control Panel -> System ->Advanced-> Environment Variables.
   Set the %PATH% variable to point to the bin SWI-Prolog folder by clicking edit and then pasting the path.
   On a default install path should be “C:\Program Files\pl\bin”.
   
   
3. Create an empty visual studio project with an empty main.cpp file.
4. Configure the visual studio include directory .
   
5. Configure the visual studio  linker input.
   
6. Paste the following code in the main.cpp

#include <iostream>
#include <SWI-Prolog.h>

using namespace std;

int main(void){

 static char * av[] = {"libpl.dll", NULL};
 if( ! PL_initialise(1,av)){
 cout<<"error initializing"<<endl;
 }else {
 cout<<"success initializing!"<<endl;
 }
 return 0;
}

7. Buidl It! Start without Debug! It works!
   

Old fashioned! Iterate through a string using an integer index “i”

String s = "12343456"
for( int i = 0; i != s.size(); i++)
{
	int number = atoi(&s[i]);
	cout<< "number : " << number << endl;
}

Correct way! Iterate through the string using a string::iterator “i”

String s = "12345678"
for( string::iterator i = s.begin() ; i != s.end(); i++)
{
	int number = atoi(&*i);
	cout<< "number : " << number << endl;
}

Initialize Winsock

Create Socket

Bind Socket

Listen for a Client

Accept Connection

Receive and Send

Disconnect.

Basically I see bee & Lard. 

I also create a client that will talk to the server on a specific port. I do this in the following order.

Initialize Winsock

Create Socket

Connect to server

Send and Recieve

Disconnect

First I will show you the client code

#ifndef WIN32_LEAN_AND_MEAN
#define WIN32_LEAN_AND_MEAN
#endif

#pragma comment(lib, "ws2_32.lib")

#pragma comment(lib, "wsock32.lib")

#include
#include
#include
#include
#include
#define DEFAULT_PORT "27016"
#define DEFAULT_BUFLEN 512

void main(int argc, char *argv[] )  {

	WSADATA wsaData;
	int iResult;
	//
	// Initialize Winsock
	//
	iResult = WSAStartup(MAKEWORD(2,2), &wsaData);
	if (iResult != 0) {
		printf("WSAStartup failed: %d\n", iResult);
	}

	struct addrinfo *result = NULL;
	struct addrinfo  *ptr = NULL;
	struct addrinfo hints;

	ZeroMemory( &hints, sizeof(hints) );
	hints.ai_family = AF_UNSPEC;
	hints.ai_socktype = SOCK_STREAM;
	hints.ai_protocol = IPPROTO_TCP;

	// Resolve the server address and port
	iResult = getaddrinfo(argv[1], DEFAULT_PORT, &hints, &result);
	if (iResult != 0) {
		printf("getaddrinfo failed: %d\n", iResult);
		WSACleanup();

	}
	//
	// This is the Socket
	//
	SOCKET ConnectSocket = INVALID_SOCKET;
	// Attempt to connect to the first address returned by
	// the call to getaddrinfo
	ptr=result;

	// Create a SOCKET for connecting to server
	ConnectSocket = socket(ptr->ai_family, ptr->ai_socktype,
		ptr->ai_protocol);

	if (ConnectSocket == INVALID_SOCKET) {
		printf("Error at socket(): %ld\n", WSAGetLastError());
		freeaddrinfo(result);
		WSACleanup();
	}
	// Connect to server.
	iResult = connect( ConnectSocket, ptr->ai_addr, (int)ptr->ai_addrlen);
	if (iResult == SOCKET_ERROR) {
		closesocket(ConnectSocket);
		ConnectSocket = INVALID_SOCKET;
	}
	// Should really try the next address returned by getaddrinfo
	// if the connect call failed
	// But for this simple example we just free the resources
	// returned by getaddrinfo and print an error message

	freeaddrinfo(result);

	if (ConnectSocket == INVALID_SOCKET) {
		printf("Unable to connect to server!\n");
		WSACleanup();

	}

	int recvbuflen = DEFAULT_BUFLEN;

	char *sendbuf = "this is a test";
	char recvbuf[DEFAULT_BUFLEN];

	// Send an initial buffer
	iResult = send(ConnectSocket, sendbuf, (int) strlen(sendbuf), 0);
	if (iResult == SOCKET_ERROR) {
		printf("send failed: %d\n", WSAGetLastError());
		closesocket(ConnectSocket);
		WSACleanup();

	}

	printf("Bytes Sent: %ld\n", iResult);

	// shutdown the connection for sending since no more data will be sent
	// the client can still use the ConnectSocket for receiving data
	iResult = shutdown(ConnectSocket, SD_SEND);
	if (iResult == SOCKET_ERROR) {
		printf("shutdown failed: %d\n", WSAGetLastError());
		closesocket(ConnectSocket);
		WSACleanup();

	}

	// Receive data until the server closes the connection
	do {
		iResult = recv(ConnectSocket, recvbuf, recvbuflen, 0);
		if (iResult > 0)
			printf("Bytes received: %d\n", iResult);
		else if (iResult == 0)
			printf("Connection closed\n");
		else
			printf("recv failed: %d\n", WSAGetLastError());
	} while (iResult > 0);

	// shutdown the send half of the connection since no more data will be sent
	iResult = shutdown(ConnectSocket, SD_SEND);
	if (iResult == SOCKET_ERROR) {
		printf("shutdown failed: %d\n", WSAGetLastError());
		closesocket(ConnectSocket);
		WSACleanup();

	}

	// cleanup
	closesocket(ConnectSocket);
	WSACleanup();
}

Now I will throw the server code at you.

#define WIN32_LEAN_AND_MEAN

#include
#include
#include
#include
#include

// Need to link with Ws2_32.lib, Mswsock.lib, and Advapi32.lib
#pragma comment (lib, "Ws2_32.lib")
#pragma comment (lib, "Mswsock.lib")
#pragma comment (lib, "AdvApi32.lib")

#define DEFAULT_BUFLEN 512
#define DEFAULT_PORT "27016"

int __cdecl main(void)
{
    WSADATA wsaData;
    SOCKET ListenSocket = INVALID_SOCKET,
           ClientSocket = INVALID_SOCKET;
    struct addrinfo *result = NULL,
                    hints;
    char recvbuf[DEFAULT_BUFLEN];
    int iResult, iSendResult;
    int recvbuflen = DEFAULT_BUFLEN;

    // Initialize Winsock
    iResult = WSAStartup(MAKEWORD(2,2), &wsaData);
    if (iResult != 0) {
        printf("WSAStartup failed: %d\n", iResult);
        return 1;
    }

    ZeroMemory(&hints, sizeof(hints));
    hints.ai_family = AF_INET;
    hints.ai_socktype = SOCK_STREAM;
    hints.ai_protocol = IPPROTO_TCP;
    hints.ai_flags = AI_PASSIVE;

    // Resolve the server address and port
    iResult = getaddrinfo(NULL, DEFAULT_PORT, &hints, &result);
    if ( iResult != 0 ) {
        printf("getaddrinfo failed: %d\n", iResult);
        WSACleanup();
        return 1;
    }

    // Create a SOCKET for connecting to server
    ListenSocket = socket(result->ai_family, result->ai_socktype, result->ai_protocol);
    if (ListenSocket == INVALID_SOCKET) {
        printf("socket failed: %ld\n", WSAGetLastError());
        freeaddrinfo(result);
        WSACleanup();
        return 1;
    }

    // Setup the TCP listening socket
    iResult = bind( ListenSocket, result->ai_addr, (int)result->ai_addrlen);
    if (iResult == SOCKET_ERROR) {
        printf("bind failed: %d\n", WSAGetLastError());
        freeaddrinfo(result);
        closesocket(ListenSocket);
        WSACleanup();
        return 1;
    }

    freeaddrinfo(result);

    iResult = listen(ListenSocket, SOMAXCONN);
    if (iResult == SOCKET_ERROR) {
        printf("listen failed: %d\n", WSAGetLastError());
        closesocket(ListenSocket);
        WSACleanup();
        return 1;
    }

    // Accept a client socket
    ClientSocket = accept(ListenSocket, NULL, NULL);
    if (ClientSocket == INVALID_SOCKET) {
        printf("accept failed: %d\n", WSAGetLastError());
        closesocket(ListenSocket);
        WSACleanup();
        return 1;
    }

    // No longer need server socket
    closesocket(ListenSocket);

    // Receive until the peer shuts down the connection
    do {

        iResult = recv(ClientSocket, recvbuf, recvbuflen, 0);
        if (iResult > 0) {
            printf("Bytes received: %d\n", iResult);

        // Echo the buffer back to the sender
            iSendResult = send( ClientSocket, recvbuf, iResult, 0 );
            if (iSendResult == SOCKET_ERROR) {
                printf("send failed: %d\n", WSAGetLastError());
                closesocket(ClientSocket);
                WSACleanup();
                return 1;
            }
            printf("Bytes sent: %d\n", iSendResult);
        }
        else if (iResult == 0)
            printf("Connection closing...\n");
        else  {
            printf("recv failed: %d\n", WSAGetLastError());
            closesocket(ClientSocket);
            WSACleanup();
            return 1;
        }

    } while (iResult > 0);

    // shutdown the connection since we're done
    iResult = shutdown(ClientSocket, SD_SEND);
    if (iResult == SOCKET_ERROR) {
        printf("shutdown failed: %d\n", WSAGetLastError());
        closesocket(ClientSocket);
        WSACleanup();
        return 1;
    }

    // cleanup
    closesocket(ClientSocket);
    WSACleanup();

    return 0;
}

Things to watch out for

bind failed 10048: This basically means that the port you are requesting is already in use. No problem

getaddrinfo failed: 11001:  This one means that there is not server listening on the port you are requesting.

This sample code is not even close to a real world server.  This code only receives a message and then dies.

Next sample will be of a server that is continuously listening to requests.

Good Luck!

0. Download mEncoder. (Look that shit up!)

1. Create a new text file.

@echo off
SET count=0
SET source=%1
SET dest=%2

mkdir %dest%

FOR /f "tokens=*" %%G IN ('dir %source% /b') DO (call :s_do_sums "%%G")
GOTO :eof

:s_do_sums
echo %count%:%1
mencoder.exe %source%/"%1" -oac mp3lame -ovc copy -o %dest%\Robotech.Remastered.%count%.avi
set /a count+=1
GOTO :eof

2 Save it as “batchconvert.bat” in “../Program Files/menconder”.

3. Run cmd

Example:

C:\Program Files\mencoder\batchconvert.bat C:\vuze\robotech F:\videos\robotech

tell application "Finder"
move POSIX file "/Users/Me/test.txt" to trash
end tell

void returnWChar_T(const char * someConstCharStar)
{
wchar_t buffer[10000];
mbstowcs(buffer, someConstCharStar, sizeof(buffer);
return buffer;
}

char* returnCharStar(void)
{
Cstring szMsg = "Hello, World!";

char buffer[1000];
wcstombs(buffer, szMsg, sizeof(buffer));
szMsg.ReleaseBuffer();

return buffer;
}

Here’s the source cpp file.

// dlltest.cpp 

#include "stdafx.h"
#include "dlltest.h"

extern "C" __declspec(dllexport)

void HelloWorld(void)
{
   MessageBox( NULL, TEXT("Hello World"), TEXT("In a DLL"), MB_OK);
}

Note: Dll’s don’t need to have an entry point if you are not going to register them.
Btw I’m not including code for stdafx.h, that shit is generated for you by visual studio and is very common.
Ok, now the header file

// dlltest.h

#ifdef DLLTEST_EXPORTS
#define DLLTEST_API __declspec(dllexport)
#else
#define DLLTEST_API __declspec(dllimport)
#endif

extern "C" __declspec(dllexport) void HelloWorld(void);

Now for the Java Code that will use this DLL.

import com.sun.jna.Library;
import com.sun.jna.Native;

public class DllLoad {

	/**
	 * @param args
	 */
	public static void main(String[] args) {

		DllTest.INSTANCE.HelloWorld();

	}

	public interface DllTest extends Library {

		DllTest INSTANCE = (DllTest) Native
				.loadLibrary(
						"C:/blabla/dlltest.dll",
						DllTest.class);

		void HelloWorld();
	}

}

Done!

Note: extern “C” is super important. If you don’t put that shit in there Java will give you endless headaches of errors saying “java.lang.UnsatisfiedLinkError: – (bla bla bla) -The specified procedure could not be found.”