uot;
if iSent > 0 then begin
Inc(Ptr, iSent);
Dec(iSize, iSent);
Continue;
end;
if iSent = 0 then begin
ClientSocket.Close;
raise Exception.Create('Connection closed gracefully');
end;
iErrorCode := WSAGetLastError;
if iError
When do I need, or would I want, to call Shutdown(), and what are the
ramifications of the different parameters that one can pass it.
I see Shutdown(2) in one of the demo apps, but don't know what "2"
represents.
The information transmitted is intended only for the person or entity to
which it
I will be receiving a variety of structs/records, all of different sizes and
"makeups".
How can I (in the OnDataAvailable() handler, I assume), determine/identify
which record has just come in, so that I can process it accordingly?
OnDataAvailable() should only fire once for each record, b
I am trying to test sending records from a utility to my app, which should
receive and process the records.
I am able to send the record from my test utility with this code:
procedure TForm10.btnSendMsgAsRecordClick(Sender: TObject);
begin
InitializeWSocketProperties;
WSocket_AsClien
<< Alternatively, you may send your data in text form instead of binary
form.
It takes more space but you have no problem with line end terminator (The
default CRLF is perfect) and you avoid problem with binary representation of
data which DIFFER from one processor to another processor.>>
So se
Oh, never mind, I see it in your other answer now (I'm reading answers
posted over the weekend and this mailing list (live) simultaneously),
namely:
MyOpCode := PInteger(@Buffer)^;
Thanks, Francois!
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
Behalf Of
<< Right. But since you send integer data type, you WILL have #126 in the
binary data !>>
In the infamous words of Kip Dynamite, "Dang it"
Is there any LineEnd value I can set that will be safe to assume it won't
get sent in integer data?
Or will I need to pull out the OpCode any time a reco
.ClientClass := TTcpSrvClient; { Use our component }
WSocketServer.Listen; <-- here
end;
Before WSocketServer1ClientConnect() is even reached.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
Behalf Of Clay Shannon
Sent: Monday, Novembe
<<> OnDataAvailable() should only fire once for each record, because I am
> having
> the sender add a #126 (~) as the last byte of each record, and using
> LineMode with LineEnd = #126.
WARNING: Since your record contains binary data, it could contains a #126 as
part of the data. So the line mod
<<> Why would I get EInvalidCast when TcpSrv doesn't, although the cast and
the
> custom class are the same?
Maybe a typo error ?>>
No, all that code was copied-and-pasted from TCPSrv1.pas.
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
Behalf Of Francois Piette
When I send a string from my test utility, the ClientConnect() event(*)
fires in my app, which is listening for messages, but the
ClientDataAvailable() event(**) is not fired.
And when I send the message a second time from the test utility, I get
"Connect: socket already in use".
Also, the
<< See TTcpSrvForm.WSocketServer1ClientConnect in TcpSrv1.pas source.>>
When I try to use that code, I get an EInvalidCast error, specifically,
"EInvalidCast - Invalid class typecast" on this line:
with Client as TTcpSrvClient do begin
of the OnClientConnect() event handler.
And this even tho
Which TWSocketServer event should I code to retrieve incoming data?
I'm sending data from a test util (using TWSocket), and have SHowMessage()
code in the following events:
WSocketServerClientConnect()
WSocketServerDataAvailable()
WSocketServerDataSent()
WSocketServerSendData()
WSocketS
he
housekeeping needed to handle simultaneous clients.
--
Contribute to the SSL Effort. Visit http://www.overbyte.be/eng/ssl.html
--
[EMAIL PROTECTED]
http://www.overbyte.be
- Original Message -
From: "Clay Shannon" <[EMAIL PROTECTED]>
To: "'ICS support mailing&#x
Can somebody point me to documentation that gives an overview of what
TICSLogger does and how to use it? Is there a demo that features it?
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. If the
<< Maybe a typo error ?>>
No, all that code was copied-and-pasted from TCPSrv1.pas.>>
--The 10048 problem seemed to stem from some redundant code:
procedure TfClientMain.FormShow(Sender: TObject);
begin
ApplicationEvents.OnException := ApplicationEventsException;
if WSocketServer.Addr <> '0
-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
Behalf Of Clay Shannon
Sent: Tuesday, November 21, 2006 9:55 AM
To: 'ICS support mailing'
Subject: [twsocket] Still "rassling" with sending and receiving
When I send a string from my test utility, the ClientConnect() even
<<> Do you see any wholes in my logic?
I don't.>>
Partials?
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. If the reader of this message is not the intended recipient,
you are hereby notifie
Right now, though, it's working TOO good
My ClientDataAvailable() procedure (assigned to my TWSocketServer's
OnDataAvailable() event as shown below) is firing twice--for every message I
send my app from my test utility, ClientDataAvailable() gets fired twice!
procedure TfClientMain.WSocketServer
iling lists as to snipping previous
parts of the thread--should I cut out everything below this, or leave it be
(leaving it be until I hear/read otherwise).
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
Behalf Of Clay Shannon
Sent: Wednesday, November 22, 2006
<>
And to add to the mystery, or provide a clue, in the first instance the
string message sent has a #$D appended, but in the second case it doesn't...
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
mat
My bad!
I fixed it by moving the line to process the msg outside of the "strip out
the carriage return and line feed" loop:
Was:
procedure TfClientMain.ClientDataAvailable(Sender: TObject; Error: Word);
var
iMsgCode, iMsgTableID: Integer;
begin
with Sender as TTcpSrvClient do begin
{ Sinc
<>
Where's the beef?
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. If the reader of this message is not the intended recipient,
you are hereby notified that your access is unauthorized, and
<>
FWIW:
WSAESHUTDOWN 10058 Cannot send after socket shutdown
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. If the reader of this message is not the intended recipient,
you are he
<>
It sounds like you have a toilet hooked up to your computer.
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. If the reader of this message is not the intended recipient,
you are hereby not
Hello again (after a long absence).
I am using Delphi 2006 and the ICS TWSocket and TWSocketServer components,
in a MIDAS app.
Is it possible to send messages from my client app to my server app on the
same machine (they are both running on the same machine during
development/testing)?
I would
Arno,
<>
Thanks, that works just fine. I am now adding the messages to a stringList
in the method above, and then calling ICS_SendString() in the
SessionConnected() event, looping through the stringlist and then deleting
all of its items afterwards.
<>
Directly in the DFM:
Procedure
TfJCPServ
AM
To: ICS support mailing
Subject: Re: [twsocket] Testing messages sent from client to server app
Clay Shannon wrote:
>> BTW, didn't you have something to do with "Alice's Restaurant"?
I don't think so, when the movie came out in the late sixties I still was a
I am successfully sending messages from my Client MIDAS app to my Server
MIDAS app, but then the Client app locks up.
Here is my code:
1) The user (me) presses a button to send a message:
{ This is a test }
procedure TfClientMain.Button1Click(Sender: TObject);
begin
SendMessageToRealTime(1, Fo
Oops, I left out a part:
{ Called by SendMessageToRealTime() }
procedure TfClientMain.ICS_SendString(AMessageToSend: String);
begin
try
ICSSocket_Sending.SendStr(AMessageToSend);
except
on E: Exception do begin
ShowMessage(Format('%s: %s', [E.ClassName, E.Message]));
Client
Adding ICSSocket_Sending.Close as shown below solves the lockup problem:
for i := Pred(slMessagesToSend.Count) downto 0 do
slMessagesToSend.Delete(i);
ICSSocket_Sending.Close; //Voila!
The information transmitted is intended only for the person or entity to
which it is addressed and may c
<>
The app became totally unresponsive. As mentioned in an earlier post, I
think, though, I fixed it by calling TWSocket's Close() method.
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. If th
<>
Yes
<< and if yes, do you receive always all data ?>> >>
I think so
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On
Behalf Of Wilfried Mestdagh
Sent: Saturday, March 31, 2007 2:30 AM
To: ICS support mailing
Subject: Re: [twsocket] Messages being sent, but Clie
Hello all (I'm new to the list, and this is my first post).
Is the following the way to download (via ftp) the contents of an entire
directory? IOW, providing the HostDirName but no HostFileName?
Or...?
I'm also open to suggestion on better ways to do this, such as removing
unnecessary
Running the ftptst app in D2006, and pressing the "Open" button, I get a
timeout error:
Winsock version 2.2
WinSock 2.0
Running
Executing Requested Command
Request 1 Done.
StatusCode = 500
LastResponse was : '500 Connection timed out (Winsock error #10060)'
Error = 10060 (500 Connection
;d like
to share? Alternatively, does anybody know how to do this in a more general
sense?
Clay Shannon
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. If the reader of this message is not th
In the TFTPClient Quick Reference I find the following:
.
Methods:
.
List - Connect, Cwd, Download a file name listing to a file & Quit
.
I would expect this method to take at least two arguments (directory name
and file name). How does one set these values?
<< The List argument is taken for HostFileName. What is done with the
argument is totally under server's control.>>
But I'm trying to retrieve a list of filenames from the ftp server, not just
one "HostFileName." And there is no file on the server that contains a
listing of files itself (such as a
<>
Thanks, but what I still don't see is how I can direct the ftp'd files to be
placed on my local machine. IOW, I know can direct the listing via the
List() method to be written to the value I assign to the LocalFileName
property, but when I loop through the file names listed in that file, how do
<< The answer lies in your code :)
ICSFTP.LocalFileName := 'C:\Misc\FilesInHostDir.txt'; <--- Whener you do a
"Get()", this is the place to look for the downloaded files.>>
So does this change look right:
Old code:
for i := 0 to Pred(sl.Count) do
if IsAWantedFile(sl[i]) then b
40 matches
Mail list logo
