pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

Modified compiler defines for windows (For better compatibility with non-WIN32 systems.)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@112 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby
2010-01-22 14:33:10 +00:00
parent ebe0a97881
commit de44816b86
9 changed files with 125 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
httpsend.pas
View File

@ -1,5 +1,5 @@
{==============================================================================|
| Project : Ararat Synapse | 003.012.003 |
| Project : Ararat Synapse | 003.012.004 |
|==============================================================================|
| Content: HTTP client |
|==============================================================================|
@ -51,6 +51,12 @@ Used RFC: RFC-1867, RFC-1947, RFC-2388, RFC-2616
{$MODE DELPHI}
{$ENDIF}
{$H+}
//old Delphi does not have MSWINDOWS define.
{$IFDEF WIN32}
{$IFNDEF MSWINDOWS}
{$DEFINE MSWINDOWS}
{$ENDIF}
{$ENDIF}
unit httpsend;
@ -322,7 +328,7 @@ begin
if FProtocol = '0.9' then
Result := FHeaders[0] + CRLF
else
{$IFNDEF WIN32}
{$IFNDEF MSWINDOWS}
Result := AdjustLineBreaks(FHeaders.Text, tlbsCRLF);
{$ELSE}
Result := FHeaders.Text;