Hello!
procedure LoginSocketDocEnd(Sender: TObject);
var p: PChar;
s: string;
begin
p := TMemoryStream(LoginSocket.RcvdStream).Memory;
s:= Copy(StrPas(p), 1, LoginSocket.RcvdStream.Size);
This will crash if source TMemoryStream doesn't end with #0. Moreover,
this copies data twice
Hi All
I'm trying to write a simple TCP/IP app but I'm not sure how to actually
send data. The Send Method of ICS v6 requires a data type TWSocketData, yet
the documentation states it needs a pointer.
On the ICS page there is mention of a sample app, Client5, that would
probably solve my
you can use SendStr to send a simple text
- Original Message -
From: Hein du Plessis [EMAIL PROTECTED]
To: twsocket@elists.org
Sent: Thursday, August 14, 2008 4:59 PM
Subject: [twsocket] Using TWSocket
Hi All
I'm trying to write a simple TCP/IP app but I'm not sure how to actually
Thanks Brian
Unfortunately the application on the server requires a binary length
indicator first, followed by XML. The XML part is easy with the SendStr
function.
Thanks,
Hein
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
Behalf Of brian
Sent: 14 August 2008
Then you can either use .send with a memory pointer or load the entire xml
into a string
- Original Message -
From: Hein du Plessis [EMAIL PROTECTED]
To: 'ICS support mailing' twsocket@elists.org
Sent: Thursday, August 14, 2008 5:44 PM
Subject: Re: [twsocket] Using TWSocket
Thanks
I'm doing this:
Var
p: Pointer;
Size: Word;
WSocket.BufSize:= 2;
p:= @Size;
WSocket.Send(p);
I'm getting There's no overloaded version of 'Send' that can be called with
these arguments.
If I can just get those two bytes out, I can send the XML message as a
string in sendstr as you've
Just another note, the declaration of Send is:
functionSend(const Data : TWSocketData; Len : Integer) : Integer;
overload; virtual;
What is TWSocketData ??
Thanks!
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
Behalf Of brian
Sent: 14 August 2008
functionSend(const Data : TWSocketData; Len : Integer) : Integer;
overload; virtual;
What is TWSocketData ??
In Delphi, your CTRL+Click on the symbol to find the definition.
Find in files also work nice.
--
[EMAIL PROTECTED]
The author of the freeware multi-tier middleware MidWare
The