> From: Mike Trinder
> Sent: 24 November 2000 11:37 am
> To: '[EMAIL PROTECTED]'
> Subject: OK - why doesn't BimaryWrite work here
>
>
> I need to open a HTTP connection to a local machine, get the
> response data (a JPEG image) and then pass that on to the client
> - this is necessary as (1) the images are stored on a computer
> that is not visible publically and (2) I need to check that the
> client is authorised to see a particular image before returning
> it.
[snip]
> This doesn't work at all - I get a zero byte content-length:
>
> <%@ Language=PerlScript %><%
>
>
> use Win32::Internet;
> use Win32::OLE;
>
> $Connection = Win32::Internet->new();
>
> $Response->{Buffer} = 1;
> $Response->Clear;
> $Response->{ContentType} = 'image/jpeg';
>
> $file =
> $Connection->FetchURL('http://an.IP.addr.ess/lib/foo.jpg');
> $Response->BinaryWrite(Win32::OLE::Variant->new(
> VT_UI1, $file ));
>
> $Response->End;
>
> %>
OK - why is it as soon as you post a problem, you work out
what was wrong. That should be use Win32::OLE::Variant; there,
upon which we get a response, but it is still too short and
badly mangled. Anyone know anything about how Win32::Internet
functions in PerlScript in an ASP page?
Mike Trinder
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
