Upload multipart POST request with Synapse does not work expected
way.[SOLVED]
lazarus / 66-Unix

----------------------------------------------------------------------
OH1KH · 2026-02-05 09:50

I have a problem that I can not resolve. I need to send a mutipart
POST request to server but it rejects my tries with Freepascal.
Using command terminal and curl the server accepts upload without
problems.


If I send with curl using script:
Code: Bash  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i #!/bin/bash
 API='api'PASS='pass'CALL='oh1kh'FILE='ex.adi'EMAIL='oh1kh@oh1kh.fi' c
url -v -i -X POST \    -F file=@${FILE} \    -F email=${EMAIL} \    -F
callsign=${CALL} \    -F password=${PASS} \    -F api=${API} \   
https://httpbin.org/anything 
Result is:
Code: Text  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i {  "args":
{},   "data": "",   "files": {    "file": "<QSO_DATE:8>20260203<TIME_O
N:4>0830<CALL:5>OH1KJ<BAND:3>40M<MODE:2>CW<FREQ:5>7.025<TIME_OFF:4>083
0<RST_SENT:3>599<RST_RCVD:3>599<QSL_SENT:1>N<QSL_RCVD:1>N<MY_GRIDSQUAR
E:6>KP01tn<TX_PWR:3>100<ITUZ:2>18<CQZ:2>15<LOTW_QSL_SENT:1>N<LOTW_QSL_
RCVD:1>N<CONT:2>EU<EOR>\n<QSO_DATE:8>20260203<TIME_ON:4>0830<CALL:5>OH
1KJ<BAND:3>30M<MODE:2>CW<FREQ:4>10.1<TIME_OFF:4>0830<RST_SENT:3>599<RS
T_RCVD:3>599<QSL_SENT:1>N<QSL_RCVD:1>N<MY_GRIDSQUARE:6>KP01tn<TX_PWR:3
>100<ITUZ:2>18<CQZ:2>15<LOTW_QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<CONT:2>EU<
EOR>\n<QSO_DATE:8>20260203<TIME_ON:4>0831<CALL:5>OH1KJ<BAND:3>20M<MODE
:2>CW<FREQ:2>14<TIME_OFF:4>0831<RST_SENT:3>599<RST_RCVD:3>599<QSL_SENT
:1>N<QSL_RCVD:1>N<MY_GRIDSQUARE:6>KP01tn<TX_PWR:3>100<ITUZ:2>18<CQZ:2>
15<LOTW_QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<CONT:2>EU<EOR>\n"  },   "form":
{    "api": "api",     "callsign": "oh1kh",     "email":
"oh1kh@oh1kh.fi",     "password": "pass"  },   "headers": {   
"Accept": "*/*",     "Content-Length": "1419",     "Content-Type":
"multipart/form-data;
boundary=------------------------191zKPATSeNPAJLX3oWkyt",     "Host":
"httpbin.org",     "User-Agent": "curl/8.11.1",     "X-Amzn-Trace-Id":
"Root=1-69845c03-16584d767851ee66237add89"  },   "json": null,  
"method": "POST",   "origin": "84.231.202.222",   "url":
"https://httpbin.org/anything"} 

And this works. File key and contents are placed in "files:{ }" part
of response.
Then I use Synapse/FPC to do the same, but result from httpbin.org is
not similar.

data:TStringList has the information I push to upload function :
Code: Text  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i file=/tmp/C
lubStream.txtemail=oh1kh@oh1kh.fipassword=passwordcallsign=oh1khapi=ap
i 
And the result from httpbin.org for this is:
Code: Text  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i {  "args":
{},   "data": "",   "files": {},   "form": {    "api": "api",    
"callsign": "oh1kh",     "email": "oh1kh@oh1kh.fi",     "file": "<QSO_
DATE:8>20260203<TIME_ON:4>0830<CALL:5>OH1KJ<BAND:3>40M<MODE:2>CW<FREQ:
5>7.025<TIME_OFF:4>0830<RST_SENT:3>599<RST_RCVD:3>599<QSL_SENT:1>N<QSL
_RCVD:1>N<MY_GRIDSQUARE:6>KP01tn<TX_PWR:3>100<ITUZ:2>18<CQZ:2>15<LOTW_
QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<CONT:2>EU<EOR>\n<QSO_DATE:8>20260203<TI
ME_ON:4>0830<CALL:5>OH1KJ<BAND:3>30M<MODE:2>CW<FREQ:4>10.1<TIME_OFF:4>
0830<RST_SENT:3>599<RST_RCVD:3>599<QSL_SENT:1>N<QSL_RCVD:1>N<MY_GRIDSQ
UARE:6>KP01tn<TX_PWR:3>100<ITUZ:2>18<CQZ:2>15<LOTW_QSL_SENT:1>N<LOTW_Q
SL_RCVD:1>N<CONT:2>EU<EOR>\n<QSO_DATE:8>20260203<TIME_ON:4>0831<CALL:5
>OH1KJ<BAND:3>20M<MODE:2>CW<FREQ:2>14<TIME_OFF:4>0831<RST_SENT:3>599<R
ST_RCVD:3>599<QSL_SENT:1>N<QSL_RCVD:1>N<MY_GRIDSQUARE:6>KP01tn<TX_PWR:
3>100<ITUZ:2>18<CQZ:2>15<LOTW_QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<CONT",  
 "password": "password"  },   "headers": {    "Content-Length":
"1441",     "Content-Type": "multipart/form-data;
boundary=099617E5_Synapse_boundary",     "Host": "httpbin.org",    
"User-Agent": "Mozilla/4.0 (X11; Linux x86_64)",     "X-Amzn-Trace-
Id": "Root=1-698459c2-585a677e3a87373141193483"  },   "json": null,  
"method": "POST",   "origin": "84.231.202.222",   "url":
"https://httpbin.org/anything"} 
The function used for upload (part that produces key parts and
upload):
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i      for
i:=0 to data.Count-1 do    begin      Key   :=
copy(data.Strings[i],1,Pos('=',data.Strings[i])-1);      Value := copy
(data.Strings[i],Pos('=',data.Strings[i])+1,Length(data.Strings[i])-
Pos('=',data.Strings[i])+1);       if Key='file' then        begin   
     WriteStrToStream(HTTP.Document,            '--' + Bound + CRLF + 
          'Content-Disposition: form-data; name=' + AnsiQuotedStr(Key,
'"') + CRLF +            ' filename=' + AnsiQuotedStr(Value, '"')  +
CRLF+            'Content-Type: application/octet-string' + CRLF +   
       CRLF);          F:=TMemoryStream.Create;         
F.LoadFromFile(Value);          HTTP.Document.CopyFrom(F, 0);        
F.Destroy;          WriteStrToStream(HTTP.Document,CRLF);        end 
     else         begin          WriteStrToStream(HTTP.Document,     
     '--' + Bound + CRLF +            'Content-Disposition: form-data;
name=' + AnsiQuotedStr(Key, '"') + CRLF +            'Content-Type:
text/plain' + CRLF +            CRLF);         
WriteStrToStream(HTTP.Document, Value);         
WriteStrToStream(HTTP.Document,CRLF);         end;     end;   
WriteStrToStream(HTTP.Document,'--' + Bound + '--' + CRLF);    
HTTP.MimeType := 'multipart/form-data; boundary=' + Bound;    if
HTTP.HTTPMethod('POST',Url) then 
If I replace "WriteStrToStream(HTTP.Document," with "write("  to see
what function is doing, 
because I did not found the way to debug print contents of
HTTP.Document, it looks like this:
(And note: the file contents are not shown in this debug)

Code: Text  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
--112ED948_Synapse_boundaryContent-Disposition: form-data;
name="file" filename="/tmp/ClubStream.txt"Content-Type:
application/octet-string  --112ED948_Synapse_boundaryContent-
Disposition: form-data; name="email"Content-Type:
text/plain oh1kh@oh1kh.fi--112ED948_Synapse_boundaryContent-
Disposition: form-data; name="password"Content-Type:
text/plain password--112ED948_Synapse_boundaryContent-Disposition:
form-data; name="callsign"Content-Type: text/plain oh1kh--
112ED948_Synapse_boundaryContent-Disposition: form-data;
name="api"Content-Type: text/plain api--112ED948_Synapse_boundary-- 

It looks very good for me. I am blind for finding the error from this
code!
I have tried few days with Googling and testing to resolve why the
content of file goes to "form" part and not to "files" part. That
seems to be the reason the server rejects my upload.

Is there anyone who could help and tell what I am doing wrong, please.

----------------------------------------------------------------------
rvk · 2026-02-05 14:49

The problem is a missing ; in your header for the file.

Code: [Select]Content-Disposition: form-data; name="file"
 filename="/tmp/ClubStream.txt"
Content-Type: application/octet-stringIt should have a ; after
name="file" because the filename on the second line needs to be
'separated' as next field.

With the separation between form-data and name= you did this
correctly.

----------------------------------------------------------------------
OH1KH · 2026-02-05 15:23

Thanks!
Yes, that is corrected and I made some other rewriting too.

I found better way to monitor and compare to curl output:
Code: Bash  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i while true;
do printf '' | nc -l localhost 60006; done
That way I was able to make the content similar to curl.
But it does not work!!

Reason can be seen from previous message if you look at the file data.
One sent with Synaptic ends:
Code: Text  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
N<LOTW_QSL_RCVD:1>N<CONT",One sent with curl ends:
Code: Text  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
N<LOTW_QSL_RCVD:1>N<CONT:2>EU<EOR>\n"
And that is the proper one.
For some reason Fpc/Synaptic cuts the file from end.

This is the current code
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i     for
i:=0 to data.Count-1 do    begin       Key   :=
ExtractWord(1,data.Strings[i],['=']);      Value :=
ExtractWord(2,data.Strings[i],['=']);       if Key='file' then       
begin          WriteStrToStream(HTTP.Document, CRLF +           
'Content-Disposition: form-data; name=' + AnsiQuotedStr(Key, '"') +
';' +            ' filename=' + AnsiQuotedStr(Value, '"')  + CRLF+   
       'Content-Type: application/octet-stream' +  CRLF + CRLF);     
   F:=TMemoryStream.Create;          F.LoadFromFile(Value);         
HTTP.Document.CopyFrom(F, 0);          F.Destroy;         
WriteStrToStream(HTTP.Document,CRLF +CRLF +
'--------------------------' +Bound);        end        else       
 begin          WriteStrToStream(HTTP.Document, CRLF +           
'Content-Disposition: form-data; name=' + AnsiQuotedStr(Key, '"') +
CRLF + CRLF);          WriteStrToStream(HTTP.Document, Value + CRLF); 
        WriteStrToStream(HTTP.Document, '--------------------------' +
Bound );         end;     end;    WriteStrToStream(HTTP.Document, '--'
+ CRLF);     HTTP.MimeType := 'multipart/form-data; boundary=' +
'--------------------------' + Bound;    if
HTTP.HTTPMethod('POST',Url) then                                     
                
Instead of F :TMemoryStream I have also tested with F: TFileStream but
results are same.
Adding extra CRLF to end of the file does not help. Same with
LineEnding.

I have also tried HTTP.Document.CopyFrom(F, F.Size); instead of
HTTP.Document.CopyFrom(F, 0);
But that does not make any change.

No more ideas....

Lazarus 4.4 (rev Unknown) FPC 3.2.2 x86_64-linux-gtk2

----------------------------------------------------------------------
rvk · 2026-02-05 15:44

Quote from: OH1KH on February 05, 2026, 04:23:49 pmI found better way
to monitor and compare to curl output:
Code: Bash  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i while true;
do printf '' | nc -l localhost 60006; doneUsing 3 v parameters with
curl (so curl -vvv) will also give you exactly what curl is sending.

Quote from: OH1KH on February 05, 2026, 04:23:49 pmNo more ideas....
Feels like a flushing problem. But I've never had to do that.

But... you have this after writing the file content:
Code: [Select]WriteStrToStream(HTTP.Document,CRLF +CRLF +
'--------------------------' +Bound);Why are there two CRLF's ?
Normally 1 is sufficient.

And this after everything:
Code: [Select]WriteStrToStream(HTTP.Document, '--' + CRLF);Aren't you
missing the CRLF in front of this one?

Edit: Ha, you have it after writing the field.

BTW.   F.Destroy; ??? Why not F.Free? (preferably with a try/finally
around create/free.)

----------------------------------------------------------------------
rvk · 2026-02-05 15:51

BTW. You can also use TMimeMess and TMimePart from Synapse to do a lot
of this automatically.

----------------------------------------------------------------------
OH1KH · 2026-02-05 15:55

Hi !

---------------- was "just to make output similar as curl"

As the file is text I replaced a part of code like:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i       if
Key='file' then        begin          WriteStrToStream(HTTP.Document,
CRLF +            'Content-Disposition: form-data; name=' +
AnsiQuotedStr(Key, '"') + ';' +            ' filename=' +
AnsiQuotedStr(Value, '"')  + CRLF+            'Content-Type:
application/octet-stream' +  CRLF + CRLF);          {         
F:=TMemoryStream.Create;          F.LoadFromFile(Value);         
HTTP.Document.CopyFrom(F, F.Size);          F.Destroy;          }    
    AssignFile(FT,Value);          Reset(FT);          While not
Eof(FT) do             Begin              ReadLn(FT,s);             
WriteStrToStream(HTTP.Document,s);             end;          
WriteStrToStream(HTTP.Document,CRLF +CRLF +
'--------------------------' +Bound); 
But the result is same!

When looking at result it is 511 bytes (ASCII text, one byte / char).
Could it be that Synaptic THTTPSend has some kind of  limitation as
512 bytes  ? (that could do 255 chars when using two byte / char)

----------------------------------------------------------------------
OH1KH · 2026-02-05 16:01

On the other hand, elsewhere in same program is similar part of code:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
 m.LoadFromFile(FileName);    http.Sock.OnStatus := @SockCallBack;   
s := '--' + Bound + CRLF;    s := s + 'content-disposition: form-data;
name="upfile";';    s := s + ' filename="' + FileName +'"' + CRLF;   
s := s + 'Content-Type: Application/octet-string' + CRLF + CRLF;   
WriteStrToStream(http.Document, s);    http.Document.CopyFrom(m, 0); 
 s := CRLF + '--' + Bound + '--' + CRLF;   
WriteStrToStream(http.Document, s);    http.MimeType :=
'multipart/form-data; boundary=' + Bound;                            
                                  
That is, so far I can see, just similar case.
And I have used it with lot more longer files without problems.

----------------------------------------------------------------------
rvk · 2026-02-05 16:02

Quote from: OH1KH on February 05, 2026, 04:55:39 pmWhen looking at
result it is 511 bytes (ASCII text, one byte / char).
Could it be that Synaptic THTTPSend has some kind of  limitation as
512 bytes  ? (that could do 255 chars when using two byte / char)
The WriteStrToStream for after the TTP.Document.CopyFrom (and
WriteStrToStream in your while/eof) is done correctly... so there is
no such limitation. in HTTP.Document. Otherwise the rest would also be
cut off.

You could create a small testproject to show the problem.
Usually when doing that, you end up finding the problem yourself (and
otherwise you can post it here).

----------------------------------------------------------------------
OH1KH · 2026-02-05 18:13

Interesting point is that adding one line more to file
will cut 4 chrs away from last line.

Every time line is added 4chrs more will be cut from last line (4chrs
per every line)

----------------------------------------------------------------------
rvk · 2026-02-05 18:36

Quote from: OH1KH on February 05, 2026, 07:13:00 pmInteresting point
is that adding one line more to file
will cut 4 chrs away from last line.
From what kind of file are you reading?
Are you sure there is no BOM at the beginning of the file?
It would be weird that in that case the last characters are stripped
but maybe the stream doesn't handle BOM files correctly.
Plus that BOM for utf-8 is 3 characters.

What if you try a different file?
Or just put something in a string and use WriteStrToStream().
Does it happen then too?

----------------------------------------------------------------------
OH1KH · 2026-02-05 19:45

OK!

I made a separate test program (unit1.zip)
It works with file file.zip  and the file does not cut when sent to
Code: Bash  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i clear;while
true; do printf '' | nc -l localhost 60006; done 
Code: Text  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i RE:6>KP01tn
<TX_PWR:3>100<ITUZ:2>18<CQZ:2>15<LOTW_QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<C
ONT:2>EU<EOR> --463F8555_Synapse_boundary  
Then I transferred a part of unit1.pas to the other program
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i  
try  //this loads file before the  data.loop just like unit1.pas do  
F:=TMemoryStream.Create;    F.LoadFromFile('/tmp/ClubStream.adi');//--
--------------------------------------------------------    
HTTP.ProxyHost := cqrini.ReadString('Program','Proxy','');   
HTTP.ProxyPort := cqrini.ReadString('Program','Port','');   
HTTP.UserName  := cqrini.ReadString('Program','User','');   
HTTP.Password  := cqrini.ReadString('Program','Passwd','');    
WriteStrToStream(HTTP.Document,CRLF + '--' + Bound);     for i:=0 to
data.Count-1 do    begin       Key   :=
ExtractWord(1,data.Strings[i],['=']);      Value :=
ExtractWord(2,data.Strings[i],['=']);       if Key='file' then       
begin// here is the copied part from unit1.pas           s :=
'content-disposition: form-data; name="' + AnsiQuotedStr(Key, '"')  +
'";';          s := s + ' filename="' + Value +'"' + CRLF;          s
:= s + 'Content-Type: Application/octet-string' + CRLF + CRLF;       
 WriteStrToStream(HTTP.Document, s);         
HTTP.Document.CopyFrom(F, 0);          s := CRLF + '--' + Bound;     
   WriteStrToStream(HTTP.Document, s);//copy ends          {         
WriteStrToStream(HTTP.Document, CRLF +            'Content-
Disposition: form-data; name=' + AnsiQuotedStr(Key, '"') + ';' +     
     ' filename=' + AnsiQuotedStr(Value, '"')  + CRLF+           
'Content-Type: application/octet-stream' +  CRLF + CRLF);           
F.LoadFromFile(Value);          HTTP.Document.CopyFrom(F, 0);        
 WriteStrToStream(HTTP.Document,CRLF +CRLF + '--' +Bound);          } 
      end        else     

And quess what?
It cuts the last line like it has always done
Code: Text  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
RE:6>KP01tn<TX_PWR:3>100<ITUZ:2>18<CQZ:2>15<LOTW_QSL_SENT:1>N<LO--
5DA4436C_Synapse_boundary-- 
Now it is bedtime.
I have spent whole day with this without any progress.

----------------------------------------------------------------------
rvk · 2026-02-05 21:44

I did a quick test. For me it seems to work fine. At least on Windows.
(although there are 2 blank lines after the header, it should be 1 but
that's another issue which will crop up when sending to a real server)

Code: Bash  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i
pi@space01:~ $ nc -l 192.168.2.21 60006POST / HTTP/1.0Host:
192.168.2.21:60006Keep-Alive: 300Connection: keep-aliveUser-Agent:
Mozilla/4.0 (compatible; Synapse)Content-Type: multipart/form-data;
boundary=6F64822D_Synapse_boundaryContent-Length: 2224Header:
content  --6F64822D_Synapse_boundaryContent-Disposition: form-data;
name="api"Content-Type: text/plain API--
6F64822D_Synapse_boundarycontent-disposition: form-data; name="file";
filename="c:\temp\ClubStream.adi"Content-Type: Application/octet-strin
g <QSO_DATE:8>20260205<TIME_ON:4>1752<CALL:5>OH1KJ<BAND:3>40M<MODE:2>C
W<FREQ:5>7.025<TIME_OFF:4>1752<RST_SENT:3>599<RST_RCVD:3>599<QSL_SENT:
1>N<QSL_RCVD:1>N<MY_GRIDSQUARE:6>KP01tn<TX_PWR:3>100<ITUZ:2>18<CQZ:2>1
5<LOTW_QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<CONT:2>EU<EOR><QSO_DATE:8>202602
05<TIME_ON:4>1806<CALL:5>OH1KJ<BAND:3>20M<MODE:3>SSB<FREQ:4>14.2<TIME_
OFF:4>1806<RST_SENT:2>59<RST_RCVD:2>59<QSL_SENT:1>N<QSL_RCVD:1>N<MY_GR
IDSQUARE:6>KP01tn<TX_PWR:3>100<ITUZ:2>18<CQZ:2>15<LOTW_QSL_SENT:1>N<LO
TW_QSL_RCVD:1>N<CONT:2>EU<EOR><QSO_DATE:8>20260205<TIME_ON:4>1807<CALL
:5>OH1KJ<BAND:3>80M<MODE:2>CW<FREQ:3>3.5<TIME_OFF:4>1807<RST_SENT:3>59
9<RST_RCVD:3>599<QSL_SENT:1>N<QSL_RCVD:1>N<MY_GRIDSQUARE:6>KP01tn<TX_P
WR:3>100<ITUZ:2>18<CQZ:2>15<LOTW_QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<CONT:2
>EU<EOR><QSO_DATE:8>20260205<TIME_ON:4>1807<CALL:5>OH1KJ<BAND:3>10M<MO
DE:2>CW<FREQ:2>28<TIME_OFF:4>1807<RST_SENT:3>599<RST_RCVD:3>599<QSL_SE
NT:1>N<QSL_RCVD:1>N<MY_GRIDSQUARE:6>KP01tn<TX_PWR:3>100<ITUZ:2>18<CQZ:
2>15<LOTW_QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<CONT:2>EU<EOR><QSO_DATE:8>202
60205<TIME_ON:4>1807<CALL:5>OH1KJ<BAND:3>17M<MODE:2>CW<FREQ:4>18.1<TIM
E_OFF:4>1807<RST_SENT:3>599<RST_RCVD:3>599<QSL_SENT:1>N<QSL_RCVD:1>N<M
Y_GRIDSQUARE:6>KP01tn<TX_PWR:3>100<ITUZ:2>18<CQZ:2>15<LOTW_QSL_SENT:1>
N<LOTW_QSL_RCVD:1>N<CONT:2>EU<EOR><QSO_DATE:8>20260205<TIME_ON:4>1808<
CALL:5>OH1KJ<BAND:3>17M<MODE:3>FT8<FREQ:4>18.1<TIME_OFF:4>1808<RST_SEN
T:3>599<RST_RCVD:3>599<QSL_SENT:1>N<QSL_RCVD:1>N<MY_GRIDSQUARE:6>KP01t
n<TX_PWR:3>100<ITUZ:2>18<CQZ:2>15<LOTW_QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<
CONT:2>EU<EOR><QSO_DATE:8>20260205<TIME_ON:4>1809<CALL:5>OH1KJ<BAND:3>
20M<MODE:3>FT8<FREQ:2>14<TIME_OFF:4>1809<RST_SENT:3>599<RST_RCVD:3>599
<QSL_SENT:1>N<QSL_RCVD:1>N<MY_GRIDSQUARE:6>KP01tn<TX_PWR:3>100<ITUZ:2>
18<CQZ:2>15<LOTW_QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<CONT:2>EU<EOR> --
6F64822D_Synapse_boundaryContent-Disposition: form-data;
name="api"Content-Type: text/plain API --6F64822D_Synapse_boundary-- 
Also with a test with just reading it in a TStringList just before
sending the data was correct.
You can check on your end if the data you are about to send is ok.

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i var  Dummy:
TStringList;//...    Dummy := TStringList.Create;    try     
HTTP.Document.Position := 0;     
Dummy.LoadFromStream(HTTP.Document);      ShowMessage(Dummy.Text);   
finally      Dummy.Free;    end;    Result := HTTP.HTTPMethod('POST',
URL);

Code: [Select][Window Title]
project1

[Content]

--6F64822D_Synapse_boundary
Content-Disposition: form-data; name="api"
Content-Type: text/plain

API
--6F64822D_Synapse_boundary
content-disposition: form-data; name="file";
filename="c:\temp\ClubStream.adi"
Content-Type: Application/octet-string

<QSO_DATE:8>20260205<TIME_ON:4>1752<CALL:5>OH1KJ<BAND:3>40M<MODE:2>CW<
FREQ:5>7.025<TIME_OFF:4>1752<RST_SENT:3>599<RST_RCVD:3>599<QSL_SENT:1>
N<QSL_RCVD:1>N<MY_GRIDSQUARE:6>KP01tn<TX_PWR:3>100<ITUZ:2>18<CQZ:2>15<
LOTW_QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<CONT:2>EU<EOR>
<QSO_DATE:8>20260205<TIME_ON:4>1806<CALL:5>OH1KJ<BAND:3>20M<MODE:3>SSB
<FREQ:4>14.2<TIME_OFF:4>1806<RST_SENT:2>59<RST_RCVD:2>59<QSL_SENT:1>N<
QSL_RCVD:1>N<MY_GRIDSQUARE:6>KP01tn<TX_PWR:3>100<ITUZ:2>18<CQZ:2>15<LO
TW_QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<CONT:2>EU<EOR>
<QSO_DATE:8>20260205<TIME_ON:4>1807<CALL:5>OH1KJ<BAND:3>80M<MODE:2>CW<
FREQ:3>3.5<TIME_OFF:4>1807<RST_SENT:3>599<RST_RCVD:3>599<QSL_SENT:1>N<
QSL_RCVD:1>N<MY_GRIDSQUARE:6>KP01tn<TX_PWR:3>100<ITUZ:2>18<CQZ:2>15<LO
TW_QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<CONT:2>EU<EOR>
<QSO_DATE:8>20260205<TIME_ON:4>1807<CALL:5>OH1KJ<BAND:3>10M<MODE:2>CW<
FREQ:2>28<TIME_OFF:4>1807<RST_SENT:3>599<RST_RCVD:3>599<QSL_SENT:1>N<Q
SL_RCVD:1>N<MY_GRIDSQUARE:6>KP01tn<TX_PWR:3>100<ITUZ:2>18<CQZ:2>15<LOT
W_QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<CONT:2>EU<EOR>
<QSO_DATE:8>20260205<TIME_ON:4>1807<CALL:5>OH1KJ<BAND:3>17M<MODE:2>CW<
FREQ:4>18.1<TIME_OFF:4>1807<RST_SENT:3>599<RST_RCVD:3>599<QSL_SENT:1>N
<QSL_RCVD:1>N<MY_GRIDSQUARE:6>KP01tn<TX_PWR:3>100<ITUZ:2>18<CQZ:2>15<L
OTW_QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<CONT:2>EU<EOR>
<QSO_DATE:8>20260205<TIME_ON:4>1808<CALL:5>OH1KJ<BAND:3>17M<MODE:3>FT8
<FREQ:4>18.1<TIME_OFF:4>1808<RST_SENT:3>599<RST_RCVD:3>599<QSL_SENT:1>
N<QSL_RCVD:1>N<MY_GRIDSQUARE:6>KP01tn<TX_PWR:3>100<ITUZ:2>18<CQZ:2>15<
LOTW_QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<CONT:2>EU<EOR>
<QSO_DATE:8>20260205<TIME_ON:4>1809<CALL:5>OH1KJ<BAND:3>20M<MODE:3>FT8
<FREQ:2>14<TIME_OFF:4>1809<RST_SENT:3>599<RST_RCVD:3>599<QSL_SENT:1>N<
QSL_RCVD:1>N<MY_GRIDSQUARE:6>KP01tn<TX_PWR:3>100<ITUZ:2>18<CQZ:2>15<LO
TW_QSL_SENT:1>N<LOTW_QSL_RCVD:1>N<CONT:2>EU<EOR>

--6F64822D_Synapse_boundary
Content-Disposition: form-data; name="api"
Content-Type: text/plain

API

--6F64822D_Synapse_boundary--

[OK]

----------------------------------------------------------------------
OH1KH · 2026-02-06 09:50

Yes the test works fine also here.

Thanks for debug code. I added that and it looks same as the result at
localhost:60006
So the synapse does not change anything, the last line is broken
already in HTTP.Document

I made another test program taking whole function from original
program and added just variables needed for running the function.

Now the result is broken, just like in original program.

Please test this one, you should now see it in windows, too. I
think...

----------------------------------------------------------------------
rvk · 2026-02-06 10:03

Quote from: OH1KH on February 06, 2026, 10:50:16 amPlease test this
one, you should now see it in windows, too. I think...
You do know that the file you gave in this zip is cut off too??

----------------------------------------------------------------------
OH1KH · 2026-02-06 10:04

Hi!
There is error in last test program.
In function  the F.LoadFromFile appears twice.

There should only be F.LoadFromFile(Value); and not the one where
filename exist.
How ever removing that extra loadFromFile does not effect the result.

It is still broken.
18<CQZ:2>15<LOTW_QSL_SENT:1>N<LO

--463F8555_Synapse_boundary--

----------------------------------------------------------------------
rvk · 2026-02-06 10:07

Quote from: OH1KH on February 06, 2026, 11:04:46 amIt is still broken.
18<CQZ:2>15<LOTW_QSL_SENT:1>N<LO
Your file is broken too. It can't sent what isn't there.
Check your ClubStream.adi.
That's the one that's cut off.

----------------------------------------------------------------------
OH1KH · 2026-02-06 10:53

Oh no!
Yes, the file seems to be broken.
And I finally found the reason. THANK YOU!

The file is created elsewhere, then this function is called.
File creation is inside try-Finally-End, and also function is called
from inside.

But the file is closed later at the Finally part.
So it is left open while function is called and  it is not flushed
causing missing chars (BTW: one file block is 512 bytes, the second
block was not yet flushed ! )

Program is run and I see from debug that last line was broken.
Then I look the file and it is complete!
That is because it is closed at the Finally part that happens before I
peek the file!

Very hard to find out!

I moved the file close just before calling then function and now
output is complete. Every time.

Case is closed.
MANY THANKS!