1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
{
Copyright 2013-2017 Michalis Kamburelis.
This file is part of "Castle Game Engine".
"Castle Game Engine" is free software; see the file COPYING.txt,
included in this distribution, for details about the copyright.
"Castle Game Engine" is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
----------------------------------------------------------------------------
}
{ Grab the data from command-line parameter,
and output data URI encoding it. Useful to encode images, sounds,
3D models, whatever as data URI.
See http://en.wikipedia.org/wiki/Data_URI_scheme for description of data URIs.
Command-line parameter is used with our Download routine, so:
- it may be a filename
- it may be an URL: a file URL, http URL (will be automatically downloaded)
or even another data URI.
Mime type (necessary to output nice data URI) is also detected by our
Download routine. For http, it may be returned by http server.
For file, it's guessed based on file extension.
See documentation of CastleDownload.Download function for details. }
uses SysUtils, Classes, Base64, CastleParameters, CastleDownload,
CastleURIUtils, CastleDataURI, CastleClassUtils;
var
MimeType: string;
Stream: TStream;
Base64Encode: TBase64EncodingStream;
begin
EnableNetwork := true;
Parameters.CheckHigh(1);
Stream := Download(Parameters[1], [], MimeType);
try
{ Note that MimeType may be empty if not recognized.
That's Ok, data: URI spec allows it. }
WriteStr(StdOutStream, 'data:' + MimeType + ';base64,');
Base64Encode := TBase64EncodingStream.Create(StdOutStream);
Base64Encode.CopyFrom(Stream, 0);
finally
FreeAndNil(Base64Encode);
FreeAndNil(Stream);
end;
WritelnStr(StdOutStream, '');
end.
|
