Dear visitor, welcome to Palo Community Forum. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
This post has been edited 2 times, last edit by "HIGH-Zen" (Dec 14th 2012, 6:11pm)
Quoted
Originally posted by Modzho
Palo c Library Bindings for Pascal
24.05.2011
This package is a Pascal language translation of the Palo library header files (*.h) (Palo version 3.1)
hotfile.com

This post has been edited 5 times, last edit by "Modzho" (May 26th 2011, 2:39pm)
Edit:|
|
Source code |
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 |
function TPaloDimension.GetAttributeCubeName: string; var CMD: string; Url: string; HTML: string; begin if Length(AttrCubeID) <= 0 then begin GetAttributeCubeName := ''; Exit; end; CMD := 'cube/info'; HTML := ''; Params.Values['database'] := Database.ID; Params.Values['cube'] := AttrCubeID; Params.Values['sid'] := Database.server.Sid; Url := Database.server.ServerRoot + CMD; HTML := Database.server.IdHTTP1.Post(Url, Params, Enc, Enc, Enc); strfns.ExplodeStr(HTML, ';', Res); GetAttributeCubeName := StripFirstNLastChar(Res.Strings[1]); Params.Clear; Res.Clear; end; function TPaloCube.GetValue(Coordinates: TStringList): string; var CMD: string; Url: string; HTML: string; i, j: integer; begin CMD := 'cell/value'; HTML := ''; Params.Values['database'] := Database.ID; Params.Values['cube'] := ID; Params.Values['path'] := JoinStr(GetElementsID(Coordinates), ',', False); Params.Values['sid'] := Database.server.Sid; Url := Database.server.ServerRoot + CMD; HTML := Database.server.IdHTTP1.Post(Url, Params, Enc, Enc, Enc); strfns.ExplodeStr(HTML, ';', Res); // check for ';' in Value field of cell/value result if Res.Count > 4 then begin i := Res.Count - 4; for j := 0 to i - 1 do begin Res.Strings[2] := Res.Strings[2] + ';' + Res.Strings[j + 3]; end; end; // if it is string if (Length(Res.Strings[2]) > 2) and (Res.Strings[2][1] = '"') then begin Res.Strings[2] := StripFirstNLastChar(Res.Strings[2]); Res.Strings[2] := StringReplace(Res.Strings[2], '""', '"', [rfReplaceAll]); end; GetValue := Res.Strings[2]; Params.Clear; Res.Clear; end; |
This post has been edited 1 times, last edit by "HIGH-Zen" (Dec 14th 2012, 6:21pm)