Join GitHub today
GitHub is home to over 36 million developers working together to host and review code, manage projects, and build software together.Sign up
add TWinHttpAPI.OnUpload event #198
function TPostThread.OnHttpUpload(Sender: TWinHttpAPI; CurrentSize, ContentLength: DWORD): boolean; begin //update ui Synchronize(procedure begin Form1.ProgressBar.Max := ContentLength; Form1.ProgressBar.Position := CurrentSize; Form1.ProgressBar.Update; end); //cancelled? Result := not FCancel; end; procedure TPostThread.Execute; var URI: TURI; http : TWinHttpAPI; inData, outData, inHeaders, outHeaders: SockString; begin inherited; if URI.From('http://localhost/upload') then begin http := TWinHTTP.Create(URI.Server, URI.Port, URI.Https); //http := TWinINet.Create(URI.Server, URI.Port, URI.Https); try http.OnUpload := OnHttpUpload; inData := StringFromFile('test.txt'); if http.Request(URI.Address, 'POST', 0, inHeaders, inData, '', outHeaders, outData) = STATUS_SUCCESS then begin //post succeed end; finally http.Free; end; end; end;
Add this suggestion to a batch that can be applied as a single commit. This suggestion is invalid because no changes were made to the code. Suggestions cannot be applied while the pull request is closed. Suggestions cannot be applied while viewing a subset of changes. Only one suggestion per line can be applied in a batch. Add this suggestion to a batch that can be applied as a single commit. Applying suggestions on deleted lines is not supported. You must change the existing code in this line in order to create a valid suggestion. Outdated suggestions cannot be applied. This suggestion has been applied or marked resolved. Suggestions cannot be applied from pending reviews.