Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Programming
»
Networking and Web Programming
»
[Solved] Missing "CR" when download file from fpweb embedded server
Free Pascal
Website
Downloads
Wiki
Documentation
Bugtracker
Mailing List
Lazarus
Website
Downloads (Laz+FPC)
Packages (OPM)
FAQ
Wiki
Documentation (RTL/FCL/LCL)
Bugtracker
CCR Bugs
IRC channel
GIT
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
How to use the forum
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
Recent
"fpc.cfg is missing" (not...
by
Thaddy
[
Today
at 08:55:31 am]
Combined pointer style
by
CM630
[
Today
at 08:49:11 am]
Fairtris 2: The Ultimate ...
by
TRon
[
Today
at 08:48:08 am]
A question on Modula2 vs ...
by
MarkMLl
[
Today
at 08:39:26 am]
Offical launch of the 1 B...
by
Thaddy
[
Today
at 08:37:40 am]
Indeed TCustomApplication...
by
Gustavo 'Gus' Carreno
[
Today
at 08:22:53 am]
[Solved] Help with sql
by
TRon
[
Today
at 08:21:18 am]
Initiaiizing records by c...
by
Molochnik
[
Today
at 08:17:33 am]
android
by
Thaddy
[
Today
at 06:10:08 am]
Hypocycloid Program (incl...
by
speter
[
Today
at 05:33:19 am]
Here's some Pong game. Su...
by
Seenkao
[
Today
at 04:28:13 am]
Designer
by
SandyG
[
Today
at 03:20:24 am]
Best way to exchange data...
by
cdbc
[
Today
at 03:00:24 am]
lamw
by
desconocido
[
Today
at 12:58:09 am]
scanline example
by
speter
[
Today
at 12:12:12 am]
Pack
by
domasz
[March 18, 2024, 10:24:35 pm]
IsManagedType problem, do...
by
PascalDragon
[March 18, 2024, 10:05:44 pm]
Conflict when static link...
by
tetrastes
[March 18, 2024, 10:05:28 pm]
Interesting discovery wit...
by
wp
[March 18, 2024, 09:11:23 pm]
Use Lazarus 3.2 with FPC ...
by
AxBen
[March 18, 2024, 08:56:42 pm]
More Normal Mode for Laza...
by
RayoGlauco
[March 18, 2024, 08:55:53 pm]
How to make a watermarked...
by
loaded
[March 18, 2024, 08:37:24 pm]
Introducing a "using" key...
by
VisualLab
[March 18, 2024, 08:26:22 pm]
Code completion items
by
Martin_fr
[March 18, 2024, 08:26:17 pm]
Poll: Watches and Display...
by
Martin_fr
[March 18, 2024, 07:36:59 pm]
« previous
next »
Print
Pages: [
1
]
Author
Topic: [Solved] Missing "CR" when download file from fpweb embedded server (Read 666 times)
eolandro
New Member
Posts: 14
[Solved] Missing "CR" when download file from fpweb embedded server
«
on:
October 14, 2022, 03:04:09 am »
Hi!
I have a simple webserver for download files. it use TFPWebModule but when i download a binary file some chars are stripped ("CR" => '\r'). My DataModuleRequest have code like this:
Code: Pascal
[Select]
[+]
[-]
if
ARequest
.
URI
=
'/down'
then
begin
AResponse
.
ContentType
:
=
'application/octet-stream'
;
AResponse
.
Contents
.
LoadFromFile
(
ARequest
.
ContentFields
.
Values
[
'FL'
]
)
;
end
;
i have tested with curl and python. but all "CR" are missing
i changed my code to:
Code: Pascal
[Select]
[+]
[-]
if
ARequest
.
URI
=
'/down'
then
begin
AResponse
.
ContentType
:
=
'application/octet-stream'
;
MS
:
=
TMemoryStream
.
Create
;
MS
.
LoadFromFile
(
ARequest
.
ContentFields
.
Values
[
'FL'
]
)
;
AResponse
.
ContentStream
.
CopyFrom
(
MS
,
MS
.
Size
)
;
end
;
But does not work.
Any suggestions?
PD. sorry for bad english.
«
Last Edit: October 21, 2022, 08:27:18 pm by eolandro
»
Logged
Leledumbo
Hero Member
Posts: 8744
Programming + Glam Metal + Tae Kwon Do = Me
Re: Missing "CR" when download file from fpweb embedded server
«
Reply #1 on:
October 17, 2022, 06:49:36 pm »
TResponse.Contents is a TStrings descendant. It uses OS native line ending by default. TResponse has another property, ContentStream, which can be used for binary transfer. So use that instead.
Logged
Follow this if you want me to answer:
http://wiki.lazarus.freepascal.org/Lazarus_Faq#What_is_the_correct_way_to_ask_questions_in_the_forum.3F
http://pascalgeek.blogspot.com
https://bitbucket.org/leledumbo
https://github.com/leledumbo
Code first, think later - Natural programmer B)
eolandro
New Member
Posts: 14
Re: [Solved] Missing "CR" when download file from fpweb embedded server
«
Reply #2 on:
October 21, 2022, 08:28:40 pm »
Yes, thanks so much!
Now this code works
Code: Pascal
[Select]
[+]
[-]
if
ARequest
.
URI
=
'/down'
then
begin
AResponse
.
ContentType
:
=
'application/octet-stream'
;
MS
:
=
TMemoryStream
.
Create
;
MS
.
LoadFromFile
(
ARequest
.
ContentFields
.
Values
[
'FL'
]
)
;
AResponse
.
ContentStream
:
=
MS
;
end
;
Logged
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Programming
»
Networking and Web Programming
»
[Solved] Missing "CR" when download file from fpweb embedded server
TinyPortal
© 2005-2018