Hallo, It works fine as i use wdl script!
I dont have that error on my Windows XP System. As soon i use Lite-C i got no connection to the dll, here my Lite-C Server Test Programm :
var r;
function GSTSocket_udp_bind(var vPort); // evaluates an expression
function GSTSocket_udp_poll(STRING* sResult);
function GSTSocket_udpclient_open(sIP, vPort);
function GSTSocket_udpclient_send(sData);
STRING* zeile0 = " ";
STRING* zeile1 = " ";
STRING* zeile2 = " ";
STRING* zeile3 = " ";
STRING* zeile4 = " ";
STRING* zeile5 = " ";
STRING* zeile6 = " ";
STRING* zeile7 = " ";
STRING* zeile8 = " ";
STRING* zeile9 = " ";
STRING* my_laber = " ";
STRING* sResult= " ";
STRING* sTest= " ";
TEXT* all_messages =
{
pos_x = 8;
pos_y = 200;
layer = 5;
strings = 10;
string zeile0 , zeile1 , zeile2 , zeile3, zeile4, zeile5, zeile6, zeile7, zeile8, zeile9 ;
flags = VISIBLE;
}
function zeileneu()
{
str_cpy(zeile0,zeile1);
str_cpy(zeile1,zeile2);
str_cpy(zeile2,zeile3);
str_cpy(zeile3,zeile4);
str_cpy(zeile4,zeile5);
str_cpy(zeile5,zeile6);
str_cpy(zeile6,zeile7);
str_cpy(zeile7,zeile8);
str_cpy(zeile8,zeile9);
str_cpy(zeile9,my_laber);
str_cpy(my_laber,"#80"); // den string leeren
}
function main() {
video_mode = 8; // 1024 * 768
video_screen = 2; // Fenster ist =2 Vollschirm=1
str_cpy(my_laber,"Programm gestartet");
zeileneu();
//
if (!GSTSocket_udp_bind(5000)) {
diag("\nListener opened");
str_cpy(my_laber,"Listener opened");
zeileneu();
} else {
diag("\nListener failed to bind");
str_cpy(my_laber,"Listener failed to bind");
zeileneu();
}
while(1) {
GSTSocket_udp_poll(sResult);
if(str_len(sResult)>0) {
diag("\n"); diag(sResult);
str_cpy(my_laber,sResult);
zeileneu();
str_cpy(sResult, "");
}
wait(1);
}
}
------------------------------------------------------------------
The Second line is here the Problem, I dont know which Variable Typ i have to call the dll (Integer, Long, Pointer...) so i tryed several Types like: function GSTSocket_udp_bind(int vPort) but i dont get it until now...
Maybee somebody has an Idea?
Regards
Arnd
