@@ -21,7 +21,7 @@
{$H+}
program teststream;
-uses classes,libcurl,unixtype;
+uses classes,libcurl,{$ifdef windows}ctypes{$else}unixtype{$endif};
Function DoWrite(Ptr : Pointer; Size : size_t; nmemb: size_t; Data : Pointer) : size_t;cdecl;
@@ -21,7 +21,7 @@ begin
P.Author := 'Library: Daniel Stenberg, header: Free Pascal development team';
P.License := 'Library: MIT, header: LGPL with modification, ';
P.HomepageURL := 'www.freepascal.org';
- P.OSes := [beos,haiku,freebsd,darwin,iphonesim,solaris,netbsd,openbsd,linux,aix,dragonfly];
+ P.OSes := [beos,haiku,freebsd,darwin,iphonesim,solaris,netbsd,openbsd,linux,aix,dragonfly,win32,win64];
P.Email := '';
P.Description := 'Library to fetch files from URLs using many protocols.';
P.NeedLibC:= true; // true for headers that indirectly link to libc?