| |
| |
|
funkheld | Hallo, bei XPSE kommt diese Fehlermeldung, wenn ich TCP mit winsocks.inc benutze:
[19:38:15] Warnung: undeklariert : 0X2
[19:38:15] Naehe: ~29, 'DEF %MSG_PEEK 0X2'
[19:38:15] XPSE:>
[19:38:31] Exitcode: -1073741510
Woran liegt das?
EXE wird nicht erstellt.
Danke.
Gruss
KompilierenMarkierenSeparieren {$cleq}
Print "TEST TCP Senden"
$I Winsocks.inc
Declare Data$,sockTCP&,IP$,a&,Ende%,Computername$,z&
GetComputerName
Computername$ = @$(0)
print Computername$
IP$ = "127.0.0.1"
print @&(0)
Print " 1) Taste c Drücken um eine Verbindung herzustellen"
Print " 2) Taste s x mal Drücken um Daten zu Senden"
Print " 3) Taste k Drücken um den Verbindungs Socket zu schliesen"
WhileNot Ende%
waitinput
locate 8,1
print %key
IF %key = 99' Taste c
CreateSocketTcp'Stellt einen TCP Socket her
sockTCP& = @&(0)
print "Connect: "; @&(0)
ConnectTcpTo 6969,IP$,sockTCP&'Port, IP , Socket Stellt eine Verbindung zum angegebenen IP her
print "Connect: "; @&(0)
ENDIF
IF %key = 107' Taste k Kill Socket
CloseSocketx sockTCP&
print "Close: "; @&(0)
ENDIF
IF %key = 115' Taste s Kill Send Data
Data$ = "TIME : "+ @Time$(0)+":"+ @Time$(1)+" Auf dem Rechner: "+Computername$
sendTCP sockTCP&,Data$'Sock ,Daten Sendet Daten zur einer IP mit der der Socket verbunden wurde
print "Send: "; @&(0)
ENDIF
Wend
CloseWinsocks
|
 |
| |
| |
| |
|
|
E.T. | | Leerzeichen in "%MSG_PEEK 0X2" ?? |
|
| |
| XProfan X2Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 12.12.2013 ▲ |
|
| |
|
|
funkheld | Jup, danke, jetzt bin ich schon einen Schritt weiter.
Habe jetzt in der Winsocks.inc :
"Def %MSG_PEEK 0x02" in "Def %MSG_PEEK 2" geändert.
Beim FreeProfan32-Compilat kommt eine Meldung wenn ich ohne XPSE compiliere und mit XPSE compiliere.
Nur bei dem Compilat unter ProfanX11 mit XPSE läuft es jetzt fehlerfrei.
Also muss Freeprofan32 irgend etwas falsch reinsetzen.
Vielleicht weiß jetzt einer eine Lösung, was da in dem FreeProfan32 passiert und den Fehler auslöst.
Danke.
Gruss |
|
| |
| |
| |
|
|
funkheld | Der Fehler kommt bei Send-Tcp und bei Empfang-Tcp:
Empfang:
KompilierenMarkierenSeparieren {$cleq}
Cls
Print "TEST TCP Empfang (Server)"
$I Winsocks.inc
Declare Datainc$,sockTCP&,IP$,a&,Ende%,connecktsocket&,Endex&,IP_inc$,z&
USERMESSAGES 5000,5001
Init 2,2
print @&(0)
CreateSocketTcp
InitTCP @&(0),6969,5000,%hWnd'Initialisiert einen Socket der auf eingehende verbindungen wartet und bei einer verbindung
connecktsocket& = @&(0)'die definierte Message an das festgelegte Fenster Sendet
sockTCP& = 0
SETTIMER 100
WhileNot Ende%
WAITINPUT
Endex& = 0
IF (%wmTimer = 1) or (%UMessage = 5001)
Whilenot Endex&
locate 10,1
Print "Timer";&GetTickCount
recfrom sockTCP&
IF @&(0) = -1
Endex& = 1
ELSE
Datainc$ = @$(0)
print Datainc$
print "Gesendet von IP:"
getIP
IP_inc$ = @$(0)
print IP_inc$
ENDIF
Wend
ENDIF
IF %UMessage = 5000'Wird ausgeführt wenn eingehende verbindung die Message ausgelöst hatt
'if sockTCP& = 0
GetConnectSocket connecktsocket&'liefert den Socket zurück der die verbindung aufgenommen hat
sockTCP& = @&(0)
locate 8,1
print "Connect to Socket: ";sockTCP&
SocketToThreatTcp sockTCP&,%hWnd,5001'der Socket der die verbindung aufgenommen hat wird veranlast im hintergrund
print @&(0)'auf eingehende Daten zu warten und bei eingehenden Daten die Definierte Message zu senden
ENDIF
IF %key = 99' Taste c
cls
ENDIF
wend
waitinput
CloseWinsocks
Senden:
KompilierenMarkierenSeparieren {$cleq}
Print "TEST TCP Senden"
$I Winsocks.inc
Declare Data$,sockTCP&,IP$,a&,Ende%,Computername$,z&
GetComputerName
Computername$ = @$(0)
print Computername$
IP$ = "127.0.0.1"
print @&(0)
Print " 1) Taste c Drücken um eine Verbindung herzustellen"
Print " 2) Taste s x mal Drücken um Daten zu Senden"
Print " 3) Taste k Drücken um den Verbindungs Socket zu schliesen"
WhileNot Ende%
waitinput
locate 8,1
print %key
IF %key = 99' Taste c
CreateSocketTcp'Stellt einen TCP Socket her
sockTCP& = @&(0)
print "Connect: "; @&(0)
ConnectTcpTo 6969,IP$,sockTCP&'Port, IP , Socket Stellt eine Verbindung zum angegebenen IP her
print "Connect: "; @&(0)
ENDIF
IF %key = 107' Taste k Kill Socket
CloseSocketx sockTCP&
print "Close: "; @&(0)
ENDIF
IF %key = 115' Taste s Kill Send Data
Data$ = "TIME : "+ @Time$(0)+":"+ @Time$(1)+" Auf dem Rechner: "+Computername$
sendTCP sockTCP&,Data$'Sock ,Daten Sendet Daten zur einer IP mit der der Socket verbunden wurde
print "Send: "; @&(0)
ENDIF
Wend
CloseWinsocks
|
|
| |
| |
| |
|
|
 | Hi!
XPSE ist seit Profan² 4.5 Profan²/ XProfan-Präkompilierer: [...] 
FreeProfan ist nicht XProfan.
Zudem, wenn Du XPSE startest dann kannst Du an der ersten Nummer seiner Versionsnummer erkennen, für welche XProfan-Version er hergestellt ist. XPSE ist in aktueller Version für XProfan 11, nicht für XProfan 12 und nicht für FreeProfan. Versuche, XPSE für XProfan 12 und/ oder FreeProfan herzustellen schlugen bisher fehl. |
|
| |
| |
| |
|
(894)
Deutsch
English
Français
Español
Italia