Hi,
Thanks.
I set the addr to 0.0.0.0, switched to SendTo and the reply was correct.
Since I will be communicating with many of these external devices I wanted
one TWSocket for each external device, that was why I set the addr field
to
the external devices IP address. Using 0.0.0.0 it appears all the external
devices will reply through that one TWSocket and I will need to sort them
out in the OnDataAvaliable.
Is that correct?
Thanks,
Mark
-----Original Message-----
From: twsocket-boun...@elists.org [mailto:twsocket-boun...@elists.org] On
Behalf Of wilfried Mestdagh
Sent: Wednesday, March 24, 2010 3:03 AM
To: 'ICS support mailing'
Subject: Re: [twsocket] UDP...
Hi,
WSocket1.Addr:='192.168.1.2';
WSocket1.port:='9600';
I get an error 10049.
Means you cannot bind to that address. '192.168.1.2' is the address on the
remote machine, you can not listen on that.
The only difference I can see is the sending local port number is not
9600.
This should make no difference. You can set local port of course. There is
a
property for that.
--
mvg, Wilfried
http://www.mestdagh.biz
-----Oorspronkelijk bericht-----
Van: twsocket-boun...@elists.org [mailto:twsocket-boun...@elists.org]
Namens
zayin
Verzonden: woensdag 24 maart 2010 1:12
Aan: twsocket@elists.org
Onderwerp: [twsocket] UDP...
Hello,
I ran into this a couple years ago and I found a work around so I dropped
it. Now, new computer, new OS, new task. So, any reasons for my failure
that
might have been computer/OS related are...
I am using Wireshark to verify what I am seeing.
Using D2007 and ICS version 5.25, UDP with TWSocket.
When I call 'Listen' after setting:
WSocket1.Addr:='192.168.1.2';
WSocket1.port:='9600';
I get an error 10049. Then of course if I send some bytes I get a 10057
error.
When I call 'Connect' after setting:
WSocket1.Addr:='192.168.1.2';
WSocket1.port:='9600';
I can send the bytes and Wireshark shows them as transmitted and I get a
reply from 192.168.1.2.
The reply I get back indicates there is an error in the bytes. I KNOW the
bytes are correct. The device also supports TCP with the same bytes and
when
I use TCP all is good. I have other software, I did not create, and it
works
with UDP using the same byte stream.
The only difference I can see is the sending local port number is not
9600.
I am not sure why that matters. The software that does work does have a
local port number of 9600. And after hours, that is the only difference I
can see.
The source is below and I can upload a project if someone needs it.
Any ideas? What am I missing?
Ciao,
Mark
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, WSocket, IcsLogger;
type
TForm2 = class(TForm)
Memo1: TMemo;
WSocket1: TWSocket;
ListenStartBtn: TButton;
ListenStopBtn: TButton;
Label1: TLabel;
Label2: TLabel;
ConnectStartBtn: TButton;
StopConnectBtn: TButton;
IcsLogger1: TIcsLogger;
procedure ListenStartBtnClick(Sender: TObject);
procedure WSocket1Error(Sender: TObject);
procedure WSocket1SessionConnected(Sender: TObject; ErrCode: Word);
procedure WSocket1SessionClosed(Sender: TObject; ErrCode: Word);
procedure WSocket1DataAvailable(Sender: TObject; ErrCode: Word);
procedure ListenStopBtnClick(Sender: TObject);
procedure ConnectStartBtnClick(Sender: TObject);
private
holdingBuff:array [0..2048] of byte;
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
var
outBuffer:array [0..17] of byte =
($80,$00,$02,$00,$02,$00,$00,$04,$00,$03,$01,$01,$B0,$00,$00,$00,$00,$01);
procedure TForm2.ConnectStartBtnClick(Sender: TObject);
begin
Memo1.Lines.Add('');
Memo1.Lines.Add('ConnectStartBtnClick');
WSocket1.Addr:='192.168.1.2';
WSocket1.port:='9600';
Memo1.Lines.Add('Connect');
WSocket1.Connect;
Memo1.Lines.Add('Send');
WSocket1.Send(@outBuffer,18);
end;
procedure TForm2.ListenStartBtnClick(Sender: TObject);
begin
Memo1.Lines.Add('');
Memo1.Lines.Add('ListenStartBtnClick');
WSocket1.Addr:='192.168.1.2';
WSocket1.port:='9600';
Memo1.Lines.Add('Listen');
WSocket1.Listen;
Memo1.Lines.Add('Send');
WSocket1.Send(@outBuffer,18);
end;
procedure TForm2.ListenStopBtnClick(Sender: TObject);
begin
Memo1.Lines.Add('Stop');
WSocket1.Close;
end;
procedure TForm2.WSocket1DataAvailable(Sender: TObject; ErrCode: Word);
var
byteCount:integer;
begin
if (ErrCode <> 0) then
Memo1.Lines.Add('WSocket1DataAvailable: ' + IntToStr(ErrCode));
Memo1.Lines.Add('WSocket1DataAvailable');
byteCount:=WSocket1.Receive(@holdingBuff[0],sizeOf(holdingBuff));
if (byteCount < 1) then
Exit;
Memo1.Lines.Add(IntToStr(byteCount));
end;
procedure TForm2.WSocket1Error(Sender: TObject);
begin
Memo1.Lines.Add('WSocket1Error: ' + IntToStr(WSocket1.LastError));
end;
procedure TForm2.WSocket1SessionClosed(Sender: TObject; ErrCode: Word);
begin
if (ErrCode <> 0) then
Memo1.Lines.Add('WSocket1SessionClosed: ' + IntToStr(ErrCode));
Memo1.Lines.Add('WSocket1SessionClosed');
end;
procedure TForm2.WSocket1SessionConnected(Sender: TObject; ErrCode: Word);
begin
if (ErrCode <> 0) then
Memo1.Lines.Add('WSocket1SessionConnected: ' + IntToStr(ErrCode));
Memo1.Lines.Add('WSocket1SessionConnected');
end;
end.
DFM---------------------------------------
object Form2: TForm2
Left = 758
Top = -807
Caption = 'Form2'
ClientHeight = 714
ClientWidth = 667
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 543
Top = 104
Width = 41
Height = 19
Caption = 'Listen'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 543
Top = 232
Width = 57
Height = 19
Caption = 'Connect'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Memo1: TMemo
Left = 8
Top = 8
Width = 529
Height = 689
ScrollBars = ssVertical
TabOrder = 0
end
object ListenStartBtn: TButton
Left = 543
Top = 136
Width = 75
Height = 25
Caption = 'Start'
TabOrder = 1
OnClick = ListenStartBtnClick
end
object ListenStopBtn: TButton
Left = 543
Top = 167
Width = 75
Height = 25
Caption = 'Stop'
TabOrder = 2
OnClick = ListenStopBtnClick
end
object ConnectStartBtn: TButton
Left = 543
Top = 264
Width = 75
Height = 25
Caption = 'Start'
TabOrder = 3
OnClick = ConnectStartBtnClick
end
object StopConnectBtn: TButton
Left = 543
Top = 295
Width = 75
Height = 25
Caption = 'Stop'
TabOrder = 4
OnClick = ListenStopBtnClick
end
object WSocket1: TWSocket
LineMode = False
LineLimit = 65536
LineEnd = #13#10
LineEcho = False
LineEdit = False
Proto = 'udp'
LocalAddr = '0.0.0.0'
LocalPort = '0'
LastError = 0
MultiThreaded = False
MultiCast = False
MultiCastIpTTL = 1
ReuseAddr = False
ComponentOptions = []
ListenBacklog = 5
ReqVerLow = 1
ReqVerHigh = 1
OnDataAvailable = WSocket1DataAvailable
OnSessionClosed = WSocket1SessionClosed
OnSessionConnected = WSocket1SessionConnected
OnError = WSocket1Error
FlushTimeout = 60
SendFlags = wsSendNormal
LingerOnOff = wsLingerOn
LingerTimeout = 0
KeepAliveOnOff = wsKeepAliveOnSystem
KeepAliveTime = 30000
KeepAliveInterval = 1000
SocksLevel = '5'
SocksAuthentication = socksNoAuthentication
Left = 568
Top = 16
end
object IcsLogger1: TIcsLogger
LogFileOption = lfoOverwrite
LogFileName = 'C:\test.txt'
LogOptions = [loDestEvent, loDestFile, loDestOutDebug, loAddStamp,
loWsockErr, loWsockInfo, loWsockDump, loSslErr, loSslInfo, loSslDump,
loProtSpecErr, loProtSpecInfo, loProtSpecDump]
Left = 592
Top = 528
end
end
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
