purebasic.info

1
2
3
4
5
6
7
8
9
10

 
Procedure.s encodeurl_(s.s)
  f=Len(s.s)
For i=1 To f
  sh.s=Mid(s.s,i,1)
  en.s=en+"%"+Hex(Asc(sh))
Next 
  ProcedureReturn en.s
EndProcedure
 

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119

  #Z_OK = 0
  #Z_STREAM_END    =  1
  #Z_NEED_DICT     =  2
  #Z_ERRNO         = -1
  #Z_STREAM_ERROR  = -2
  #Z_DATA_ERROR    = -3
  #Z_MEM_ERROR     = -4
  #Z_BUF_ERROR     = -5
  #Z_VERSION_ERROR = -6
  
  #Z_NO_FLUSH      =  0
  #Z_PARTIAL_FLUSH =  1
  #Z_SYNC_FLUSH    =  2
  #Z_FULL_FLUSH    =  3
  #Z_FINISH        =  4
  #Z_BLOCK         =  5
 
CompilerIf #PB_Compiler_Processor = #PB_Processor_x64 And #PB_Compiler_OS <> #PB_OS_Windows
  
  ; On Linux x64, a long is 8 byte (unlike Windows x64)
  ;
  Structure zstream
    *next_in.BYTE
    avail_in.l
    pad.l
    total_in.i ; uLong
    
    *next_out.BYTE
    avail_out.l
    pad2.l
    total_out.i ; uLong
    
    *msg.BYTE
    *state
    
    zalloc.i
    zfree.i
    opaque.i
    
    data_type.l
    pad3.l
    adler.i    ; uLong
    reserved.i ; uLong
  EndStructure
  
CompilerElse
  
  Structure zstream
    *next_in.BYTE
    avail_in.l
    total_in.l ; uLong
    
    *next_out.BYTE
    avail_out.l
    total_out.l ; uLong
    
    *msg.BYTE
    *state
    
    zalloc.i
    zfree.i
    opaque.i
    
    data_type.l
    adler.l    ; uLong
    reserved.l ; uLong
    
    ; without this, the inflateInit2() fails with a version error
    CompilerIf #PB_Compiler_Processor = #PB_Processor_x64
      alignment.l
    CompilerEndIf
  EndStructure
  
CompilerEndIf
 
ImportC  "zlib.lib"
  CompilerIf #PB_Compiler_Processor = #PB_Processor_x86
    inflateInit2(*strm, WindowBits.i, v, ss) As "_inflateInit2_@16"
    inflate(*strm, flush.i) As "_inflate@8"
    inflateEnd(*strm) As "_inflateEnd@4"
  CompilerElse
    inflateInit2(*strm, WindowBits.i, v, ss) As "inflateInit2_"
    inflate(*strm, flush.i) As "inflate"
    inflateEnd(*strm) As "inflateEnd"
  CompilerEndIf
EndImport
 
Procedure G_ZIP_UnPack(*source, sourceLen, *dest, *destLen) ; Распаковка данных, кодированных алгоритмом gzip.
  Protected g_zip.zstream, Result
  Result = 0
 
  If *source And sourceLen>0 And *dest And *destLen
    g_zip\next_in   = *source
    g_zip\avail_in  = sourceLen
    g_zip\next_out  = *dest
    g_zip\avail_out = *destLen
    g_zip\zalloc    = #Null
    g_zip\zfree     = #Null
    g_zip\opaque    = #Null
    g_zip\data_type = 1
    
    If inflateInit2(@g_zip,15+32,?G_ZIP_UnPack_V,SizeOf(g_zip)) = #Z_OK
      If inflate(@g_zip, #Z_FINISH) = #Z_STREAM_END
        If g_zip\total_out>0 And PeekI(*destLen)>=g_zip\total_out
          Result = g_zip\total_out ; Сколько байт в буфере.  
        EndIf
      EndIf
      inflateEnd(@g_zip)
    EndIf
  EndIf
  
  ProcedureReturn Result
  
  DataSection
    G_ZIP_UnPack_V:  ;@"1.2.3"
    Data.a $31, $2E, $32, $2E, $33, 0, 0, 0, 0
  EndDataSection
 
EndProcedure