Changeset 22 for trunk/Forms/UFormImport.pas

Timestamp:

May 4, 2016, 11:43:42 PM (9 years ago)

Author:

chronos

Message:

• Added: Now import formats can be specified using new edit windows.
• Added: Import source can now be downloaded and processed including download from https URLs.

File:

• trunk/Forms/UFormImport.pas (modified) (1 diff)

trunk/Forms/UFormImport.pas

@@ -42 +42 @@
   SImportedNewAcronyms = 'Imported %d new acronyms.';
 
-
-function DownloadHTTP(URL: string; Stream: TStream): Boolean;
-var
-  HTTPGetResult: Boolean;
-  HTTPSender: THTTPSend;
-begin
-  Result := False;
-  HTTPSender := THTTPSend.Create;
-  try
-    HTTPGetResult := HTTPSender.HTTPMethod('GET', URL);
-    if (HTTPSender.ResultCode >= 100) and (HTTPSender.ResultCode <= 299) then begin
-      HTTPSender.Document.SaveToStream(Stream);
-      Result := True;
-    end;
-  finally
-    HTTPSender.Free;
-  end;
-end;
 
 { TFormImport }