pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

Release 32

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@70 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby
2008-04-24 07:25:18 +00:00
parent 7960ad4609
commit 02ab154a09
27 changed files with 4012 additions and 683 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
httpsend.pas
View File

@ -1,5 +1,5 @@
{==============================================================================|
| Project : Delphree - Synapse | 003.006.004 |
| Project : Ararat Synapse | 003.006.007 |
|==============================================================================|
| Content: HTTP client |
|==============================================================================|
@ -42,7 +42,14 @@
| (Found at URL: http://www.ararat.cz/synapse/) |
|==============================================================================}
unit HTTPSend;
//RFC-1867, RFC-1947, RFC-2388, RFC-2616
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$H+}
unit httpsend;
interface
@ -51,7 +58,7 @@ uses
{$IFDEF STREAMSEC}
TlsInternalServer, TlsSynaSock,
{$ENDIF}
blcksock, SynaUtil, SynaCode;
blcksock, synautil, synacode;
const
cHttpProtocol = '80';
@ -530,7 +537,7 @@ end;
procedure THTTPSend.Abort;
begin
FSock.CloseSocket;
FSock.AbortSocket;
end;
{==============================================================================}