Same test with Synapse: Saved Uploaded File OK New File Name: d:\tempwork\telecom\uploads\20160426-051823_testpng.png File Size: 4,553,987 Upload Duration: 2.36 secs Speed: 1,928,838 chars/sec Upload FileName: testpng.png FileTitle: upload test
I've put together a test with full source and the test sample so you can try: https://drive.google.com/open?id=0B0Kd3pQSz9EkNzNZeGt6U1JIb3M On Tue, Apr 26, 2016 at 4:52 AM, brian - <hikarito...@gmail.com> wrote: > Saved Uploaded File OK > New File Name: d:\tempwork\telecom\uploads\20160426-035111_Aion > 2016.Apr.21 - 10.57.48.png > File Size: 4,553,987 > Upload Duration: 34.58 secs > Speed: 131,694 chars/sec > Upload FileName: Aion 2016.Apr.21 - 10.57.48.png > FileTitle: upload test > Post URL: http://www1.telecom-tariffs.co.uk/testing/uploadfile.htm > > On Tue, Apr 26, 2016 at 3:57 AM, brian - <hikarito...@gmail.com> wrote: > >> Did the test with a 4,5MB file, non-SSL >> >> Firefox: 2.6s >> >> Saved Uploaded File OK >> New File Name: d:\tempwork\telecom\uploads\20160426-021729_Aion >> 2016.Apr.21 - 10.57.48.png >> File Size: 4,553,987 >> Upload Duration: 2.6 secs >> Speed: 1,754,908 chars/sec >> Upload FileName: Aion 2016.Apr.21 - 10.57.48.png >> FileTitle: aion ss test >> Post URL: http://www1.telecom-tariffs.co.uk/testing/uploadfile.htm >> >> ICS: 34.1s >> >> POST /testing/uploadfile.htm HTTP/1.0 >> Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */* >> Referer: http://www1.telecom-tariffs.co.uk/testing/uploadfile.htm >> Content-Type: multipart/form-data; >> boundary=--------------------147712359214935 >> User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:45.0) Gecko/20100101 >> Firefox/45.0 >> Host: www1.telecom-tariffs.co.uk >> Content-Length: 4554186 >> >> 34133ms >> >> unit Unit1; >>> >>> interface >>> >>> uses >>> Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, >>> System.Classes, Vcl.Graphics, >>> Vcl.Controls, Vcl.Forms, Vcl.Dialogs, OverbyteIcsWndControl, >>> OverbyteIcsHttpProt, Vcl.StdCtrls, Vcl.ComCtrls, >>> >>> MultipartBuilder; >>> >>> type >>> TForm1 = class(TForm) >>> Button1: TButton; >>> Button2: TButton; >>> HttpCli1: THttpCli; >>> ProgressBar1: TProgressBar; >>> Memo1: TMemo; >>> procedure Button1Click(Sender: TObject); >>> procedure HttpCli1SendData(Sender: TObject; Buffer: Pointer; Len: >>> Integer); >>> procedure HttpCli1BeforeHeaderSend(Sender: TObject; const Method: >>> string; Headers: TStrings); >>> procedure HttpCli1SendEnd(Sender: TObject); >>> private >>> { Private declarations } >>> public >>> { Public declarations } >>> end; >>> >>> var >>> Form1: TForm1; >>> x: Int64; >>> >>> implementation >>> >>> {$R *.dfm} >>> >>> procedure TForm1.Button1Click(Sender: TObject); >>> Var fil: AnsiString; >>> mp: TMultiPartObject; >>> fl: string; >>> tm: TMemoryStream; >>> Const cT = '--------------------147712359214935'; >>> begin >>> // Fill multipart data+file >>> fl := 'z:\Aion 2016.Apr.21 - 10.57.48.png'; >>> mp := TMultiPartObject.Create(cT); >>> tm := TMemoryStream.Create; >>> tm.LoadFromFile(fl); >>> ProgressBar1.Max := tm.Size; >>> With mp do begin >>> AddFileFromStream('image',ExtractFileName(fl),'image/png',tm); >>> CloseData; >>> fil := GetFile; >>> end; >>> mp.Free; >>> >>> x := GetTickCount; >>> With HttpCli1 do begin >>> url := 'http://www1.telecom-tariffs.co.uk/testing/uploadfile.htm'; >>> SendStream := TMemoryStream.Create; >>> SendStream.Write(fil[1],length(fil)); >>> SendStream.Seek(0,0); >>> RcvdStream := TMemoryStream.Create; >>> Timeout := 5; >>> Agent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:45.0) >>> Gecko/20100101 Firefox/45.0'; >>> ContentTypePost := 'multipart/form-data; boundary='+cT; >>> Reference := ' >>> http://www1.telecom-tariffs.co.uk/testing/uploadfile.htm'; >>> try >>> PostAsync; >>> except >>> On E:Exception do ShowMessage(E.Message); >>> end; >>> end; >>> end; >>> >>> procedure TForm1.HttpCli1BeforeHeaderSend(Sender: TObject; const Method: >>> string; Headers: TStrings); >>> begin >>> Memo1.Lines.Add(Headers.Text); >>> end; >>> >>> procedure TForm1.HttpCli1SendData(Sender: TObject; Buffer: Pointer; Len: >>> Integer); >>> begin >>> ProgressBar1.Position := ProgressBar1.Position + Len; >>> end; >>> >>> procedure TForm1.HttpCli1SendEnd(Sender: TObject); >>> begin >>> With HttpCli1 do begin >>> SendStream.Free; >>> RcvdStream.Free; >>> end; >>> Memo1.Lines.Add(''); >>> Memo1.Lines.Add(IntToStr(GetTickCount-x)+'ms'); >>> end; >>> >>> end. >>> >> >> >> On Mon, Apr 25, 2016 at 7:12 PM, Angus Robertson - Magenta Systems Ltd < >> an...@magsys.co.uk> wrote: >> >>> > Are there any known issues with SslHttpCli for sending data? I've >>> > observed the following: >>> > Sending a 3MB picture to imgur: >>> > * with ICS/OpenSSL: takes ~27 seconds >>> >>> Done some testing with a view to investigating this issue, but not >>> currently sure it's worth any more time. >>> >>> I'm using an updated version of the sample OverbyteIcsHttpPost against >>> the ICS web server (no SSL). >>> >>> With both running on my PC: >>> File Size: 20,450,630 >>> Upload Duration: 204 msecs >>> Speed: 100,248,186 chars/sec >>> Upload FileName: speed20meg.zip >>> >>> With the ICS web server running on my public server, over FTTC with a >>> 10Mbit/sec upload speed, from ICS: >>> File Size: 20,450,630 >>> Upload Duration: 17.56 secs >>> Speed: 1,164,349 chars/sec >>> Upload FileName: speed20meg.zip >>> >>> Using Firefox to the same public server: >>> File Size: 20,450,630 >>> Upload Duration: 17.53 secs >>> Speed: 1,166,407 chars/sec >>> Upload FileName: speed20meg.zip >>> >>> You can try the public server yourself: >>> >>> http://www1.telecom-tariffs.co.uk/testing/uploadfile.htm or >>> https://www1.telecom-tariffs.co.uk/testing/uploadfile.htm >>> >>> and it will report the upload speeds, as copied above. Using SSL and >>> Firefox, got the same speeds exactly, not got an SSL version of the ICS >>> POST sample, yet. The web server is running OpenSSL 1.1.0 beta 5 and >>> unreleased ICS versions, had to change the web server component to get >>> sensible speed measurements. >>> >>> https://www1.telecom-tariffs.co.uk/serverinfo.htm >>> >>> For completeness, I will make the HTTP client buffers configurable in >>> size, but I really don't expect to see any real difference in upload >>> speed, it's seems to be maxed out already. And this is through two >>> Sonicwalls that slow things down. >>> >>> Angus >>> >>> >>> >>> >>> -- >>> To unsubscribe or change your settings for TWSocket mailing list >>> please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket >>> Visit our website at http://www.overbyte.be >>> >> >> > -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be
