pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

PowerPDF: added Lazarus console demo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5747 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr
2017-02-15 06:47:11 +00:00
parent e15e8375ca
commit f2ebc88e05
3 changed files with 447 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
components/powerpdf/LazarusExamples/ConsoleProgramDemo/BatchPdf.lpi Normal file
View File

@ -0,0 +1,67 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="BatchPdf"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<CommandLineParams Value="salida.pdf"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="pack_powerpdf"/>
</Item1>
</RequiredPackages>
<Units Count="1">
<Unit0>
<Filename Value="BatchPdf.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

280
components/powerpdf/LazarusExamples/ConsoleProgramDemo/BatchPdf.lpr Normal file
View File

@ -0,0 +1,280 @@
{*
*
* BatchPdf.dpr
*
* To run this program, open command-prompt window and run this program with
* filename parameter
*
* ex) BatchPdf.exe batchpdf.pdf
*}
program BatchPdf;
{$MODE ObjFPC}{$H+}
{$modeswitch nestedprocvars}
{$APPTYPE CONSOLE}
uses
SysUtils,
Classes,
PdfDoc,
PdfTypes,
PdfFonts,
DB,
LCSVUtils,
BufDataset;
const
CSVFILE = 'customer.csv';
var
FDoc: TPdfDoc;
FFileName: string;
FOutFile: TFileStream;
FPage: integer;
FQuery: TBufDataset;
procedure SetupDataset;
var
Stream: TFileStream;
procedure Newrecord(L: TStringList);
begin
fQuery.AppendRecord([StrToIntDef(L[0], 0), L[1], L[2], L[3], L[4], L[5]]);
end;
begin
FQuery := TBufDataset.Create(nil);
FQuery.FieldDefs.Add('CustNo', ftInteger);
FQuery.FieldDefs.Add('Company', ftString, 70);
FQuery.FieldDefs.Add('State', ftString, 30);
FQuery.FieldDefs.Add('City', ftString, 30);
FQuery.FieldDefs.Add('Addr1', ftString, 70);
FQuery.FieldDefs.Add('Phone', ftString, 15);
FQuery.CreateDataset;
// csv data generated from http://www.generatedata.com
Stream := TFileStream.Create(CSVFILE, fmOpenRead);
try
LCSVUtils.LoadFromCSVStream(Stream, @Newrecord);
FQuery.First;
finally
Stream.Free;
end;
end;
procedure TextOut(X, Y: Single; S: string);
begin
with FDoc.Canvas do
begin
BeginText;
MoveTextPoint(X, Y);
ShowText(S);
EndText;
end;
end;
procedure DrawLine(X1, Y1, X2, Y2, Width: Single);
begin
with FDoc.Canvas do
begin
MoveTo(X1, Y1);
LineTo(X2, Y2);
Stroke;
end;
end;
procedure WriteHeader;
var
s: string;
w: integer;
begin
// writing the headline of the pages
with FDoc.Canvas do
begin
// setting font
SetFont('Arial-BoldItalic', 16);
// printing text.
TextOut(90, 770, CSVFILE);
SetFont('Arial-BoldItalic', 9);
S := FormatDateTime('YYYY/MM/DD', Date);
w := Round(TextWidth(S));
// writing header text.
TextOut(530 - w, 770, S);
SetRGBStrokeColor($00008800);
DrawLine(90, 765, 530, 765, 1.5);
end;
end;
procedure WriteFooter;
var
w: Single;
s: string;
begin
with FDoc.Canvas do
begin
// Setting font and print text with center align
SetFont('Times-Roman', 8);
DrawLine(90, 70, 530, 70, 1.5);
s := 'Page ' + IntToStr(FPage);
w := TextWidth(s);
TextOut((PageWidth - w) / 2, 55, S);
end;
end;
procedure WriteRow(YPos: Single);
var
i: integer;
s: string;
begin
// printing the detail lines
with FDoc.Canvas do
begin
if not FQuery.Eof then
begin
TextOut(95, YPos - 15, FQuery.FieldByName('CustNo').AsString);
s := FQuery.FieldByName('Company').AsString;
// calculate the number of the charactor which can be contained in the
// width of the frame.
i := MeasureText(s, 130);
TextOut(135, YPos - 15, Copy(s, 1, i));
s := FQuery.FieldByName('State').AsString +
FQuery.FieldByName('City').AsString +
FQuery.FieldByName('Addr1').AsString;
i := MeasureText(s, 175);
TextOut(275, YPos - 15, Copy(s, 1, i));
TextOut(455, YPos - 15, FQuery.FieldByName('Phone').AsString);
FQuery.Next;
end;
end;
end;
procedure WritePage;
var
i: integer;
XPos, YPos: Single;
begin
with FDoc.Canvas do
begin
// writing the outline
SetLineWidth(1.5);
Rectangle(90, 80, 440, 680);
Stroke;
// writing the horizontal lines.
YPos := 760;
SetLineWidth(0.75);
for i := 0 to 32 do
begin
YPos := YPos - 20;
MoveTo(90, YPos);
LineTo(530, YPos);
Stroke;
end;
// writing the header of the text.
SetLineWidth(1);
SetFont('Times-Roman', 10.5);
XPos := 90;
TextOut(XPos + 5, 745, 'NO.');
XPos := 130;
DrawLine(XPos, 760, XPos, 80, 1);
TextOut(XPos + 5, 745, 'Company');
XPos := 270;
DrawLine(XPos, 760, XPos, 80, 1);
TextOut(XPos + 5, 745, 'Address');
XPos := 450;
DrawLine(XPos, 760, XPos, 80, 1);
TextOut(XPos + 5, 745, 'Phone');
XPos := 530;
DrawLine(XPos, 760, XPos, 80, 1);
// setting the font for the detail lines.
SetFont('Arial', 10.5);
end;
// printing the detail lines with 20 dot height.
YPos := 740;
for i := 0 to 32 do
begin
WriteRow(YPos);
YPos := YPos - 20;
end;
end;
begin
if ParamCount > 0 then
FFileName := ParamStr(1)
else
begin
Writeln('Usage: bachpdf <pdf-filename>');
Halt(2);
end;
if not FileExists(CSVFILE) then
begin
WriteLn('file ',CSVFILE,' not found in program directory');
Halt(3);
end;
// create output-filestream.
FOutFile := TFileStream.Create(FFileName, fmCreate);
FPage := 1;
// create TQuery object and set properties.
Writeln('BatchPdf opening database..');
SetupDataset;
with FQuery do
try
// create TPdfDoc object.
Writeln('BatchPdf creating document..');
FDoc := TPdfDoc.Create;
with FDoc do
try
// create a new document.
NewDoc;
// printind page from the result of the query.
while not FQuery.Eof do
begin
AddPage;
WriteHeader;
WritePage;
WriteFooter;
inc(FPage);
end;
// save the pdf-document to the file-stream.
Writeln('BatchPdf saving document..');
FDoc.SaveToStream(FOutFile);
finally
FDoc.Free;
end;
Close;
Writeln('BatchPdf end..');
finally
Free;
FOutFile.Free;
end;
end.

100
components/powerpdf/LazarusExamples/ConsoleProgramDemo/customer.csv Normal file
View File

@ -0,0 +1,100 @@
1,Pede Et Risus Consulting,Wie,Vienna,Ap #508-3195 At Avenue,(932) 612-6518
2,Pede Malesuada Consulting,Drenthe,Meppel,"P.O. Box 616, 9409 Suspendisse St.",(105) 303-2051
3,Auctor Incorporated,ON,Hearst,944-3936 Praesent Road,(326) 282-6747
4,Auctor Odio LLC,QC,Chicoutimi,"P.O. Box 124, 3952 Sit Rd.",(623) 728-1497
5,Phasellus Dapibus Quam Institute,Berlin,Berlin,"599-5509 Id, Road",(302) 275-3108
6,Eget Lacus Associates,Queensland,Hervey Bay,Ap #966-4267 Elit Avenue,(657) 147-3061
7,Eu Neque Pellentesque Ltd,BE,Berlin,9285 Tortor Av.,(553) 851-6429
8,Magnis LLC,SP,Jundiaí,766-9005 Dictum. Road,(432) 411-6225
9,Vulputate Posuere Vulputate Associates,AR,Zaragoza,4433 Mauris Rd.,(562) 522-8957
10,Dis Parturient Industries,Tyrol,Wörgl,Ap #878-7915 Sit St.,(153) 510-0468
11,Adipiscing Non Associates,SL,Katowice,"1654 Augue, St.",(175) 176-8256
12,Pede Nonummy Ut Company,ON,Toronto,7516 Condimentum. Rd.,(809) 296-0946
13,Scelerisque Associates,Metropolitana de Santiago,Providencia,Ap #752-7401 Aliquam Ave,(223) 351-4520
14,Malesuada Id Erat Inc.,Champagne-Ardenne,Troyes,"P.O. Box 727, 7109 Quis, St.",(859) 728-6562
15,Elit Sed Associates,LAZ,Labico,Ap #627-356 Nulla. Avenue,(242) 771-1721
16,Donec Nibh Enim LLC,Antalya,Alanya,802 Placerat Rd.,(130) 562-4215
17,Sed Company,UP,Gorakhpur,Ap #911-7201 Ullamcorper. Road,(877) 882-4792
18,Purus Company,NO,Lens,"Ap #379-9596 Magna, St.",(178) 292-4753
19,Ipsum Dolor Sit Company,San José,Mata de Plátano,"3052 Nunc, Road",(721) 314-8328
20,Cubilia Associates,Ontario,Essex,"P.O. Box 189, 7017 Enim St.",(530) 997-4789
21,Orci Sem Limited,E,Norrköping,"P.O. Box 904, 8871 Nec, Road",(927) 856-0234
22,Semper Cursus Integer LLP,CAM,Sant'Arsenio,"P.O. Box 806, 737 Velit Av.",(148) 598-4515
23,Eros Limited,Worcestershire,Halesowen,Ap #466-1326 Nulla Avenue,(125) 664-6887
24,Orci Adipiscing PC,Ankara,Beypazarı,Ap #503-2121 Et Rd.,(922) 118-3062
25,Pulvinar Arcu Et Company,Zuid Holland,Delft,1918 Cubilia Rd.,(151) 846-0164
26,Consequat Auctor Institute,L,Dublin,"P.O. Box 355, 6352 Eu Avenue",(666) 646-6854
27,Ornare Fusce Incorporated,Noord Holland,Hilversum,1211 Lacus. Road,(497) 414-4833
28,Rhoncus Id Foundation,Saarland,Schwalbach,Ap #572-9437 In Street,(185) 830-7168
29,Aliquam Erat Volutpat Ltd,NSW,Tamworth,630-159 Dis St.,(508) 666-6097
30,Tincidunt Dui Augue Corp.,RJ,Bikaner,6646 Pellentesque Avenue,(541) 222-1296
31,Egestas Industries,QC,Pointe-aux-Trembles,Ap #834-7483 Sagittis. Ave,(929) 966-1678
32,Cras PC,Northern Territory,Darwin,"P.O. Box 797, 6957 Adipiscing Rd.",(784) 755-0169
33,Velit Quisque Varius Institute,WA,Gosnells,Ap #262-3475 Metus. Avenue,(107) 893-1395
34,Rutrum Corporation,Wie,Vienna,"P.O. Box 487, 2759 Venenatis Avenue",(541) 252-3979
35,Non Nisi Aenean Corp.,Wie,Vienna,4689 Sit Ave,(574) 571-8873
36,Sapien Cursus In Industries,Ontario,Whitby,Ap #113-7134 Ut Avenue,(564) 826-1266
37,Cras Eget Nisi Corp.,AN,Arendonk,"521-2463 Purus, Av.",(921) 456-3540
38,Ut LLC,IA,Cedar Rapids,"P.O. Box 899, 7840 Justo. St.",(374) 905-3251
39,Aliquam Industries,Leinster,Dublin,Ap #434-4457 Ligula. Street,(378) 388-2768
40,Ante Bibendum Inc.,NI,Porirua,3389 Ac Rd.,(292) 375-4468
41,Nunc In At Limited,N.,Laren,602-1426 Arcu. Avenue,(547) 919-2398
42,Convallis In Foundation,Midi-Pyrénées,Toulouse,"P.O. Box 343, 9555 Nisi Ave",(234) 125-0471
43,Lacinia Sed Congue LLP,Ist,Istanbul,"P.O. Box 601, 3686 Donec St.",(769) 602-2550
44,Euismod Industries,NL,Glovertown,919-4124 Egestas. Rd.,(157) 942-9742
45,Nullam Ut Associates,Oost-Vlaanderen,Steendorp,8648 Sed Rd.,(775) 999-5190
46,Enim Mi Ltd,Maharastra,Ahmadnagar,663-9903 Erat Rd.,(135) 712-9458
47,Urna Ut Company,Noord Brabant,Helmond,204-5245 Ut Street,(823) 199-2338
48,Nunc Id Enim Associates,NI,Cambridge,"P.O. Box 899, 5251 Sed St.",(203) 782-1779
49,Lobortis Risus In Ltd,Cartago,Carmen,596-3119 Egestas Road,(464) 788-8637
50,Mauris Molestie Pharetra Ltd,Aydın,Kuşadası,7728 Eu Rd.,(986) 622-0685
51,Aenean Egestas PC,PV,Bilbo,4999 Fusce Road,(830) 849-9027
52,Nunc Mauris Incorporated,NI,Tokoroa,"Ap #665-8244 Ante, St.",(518) 603-7206
53,Pharetra Nam Ac Institute,FVG,Forgaria nel Friuli,"P.O. Box 543, 4271 Tempus Ave",(276) 176-2775
54,Nunc Sed Libero PC,New South Wales,Wagga Wagga,4089 Aliquam Street,(129) 929-4820
55,Aliquam Company,BU,Oudergem,Ap #440-8271 Vitae St.,(591) 889-2609
56,Et PC,Bedfordshire,Leighton Buzzard,Ap #539-5445 Quam Av.,(554) 153-7471
57,Est Incorporated,Anglesey,Beaumaris,347-2618 Arcu St.,(399) 720-0760
58,Arcu LLP,Luxemburg,Ethe,Ap #602-4508 Interdum Rd.,(515) 158-5849
59,Enim Etiam Corp.,MH,Mumbai,Ap #347-3668 Est St.,(744) 327-6738
60,Tempus Lorem Fringilla Associates,North Island,Wellington,Ap #161-9602 Nec Street,(467) 358-8336
61,Ac Turpis Egestas Ltd,Connacht,Galway,Ap #776-8305 Molestie. Rd.,(903) 615-2716
62,Arcu Ac Orci LLC,C,Galway,614-5547 Nunc Ave,(424) 371-4963
63,Non Cursus Non Corporation,Ohio,Columbus,"Ap #887-5007 Pede, St.",(404) 120-4837
64,Porttitor Vulputate Corporation,Ontario,Hearst,954-412 Id Rd.,(198) 570-9682
65,Montes Nascetur Foundation,PIE,Rueglio,898-5723 Consectetuer Rd.,(877) 534-8280
66,Sit LLC,MO,Jefferson City,494-8078 Netus St.,(769) 439-0548
67,Sed Pede LLC,Andalucía,Córdoba,Ap #381-3155 Faucibus Ave,(192) 410-1335
68,Enim Limited,SJ,Desamparados,"P.O. Box 417, 9500 Proin Avenue",(849) 276-3299
69,In Condimentum Ltd,NSW,Parramatta,"Ap #825-9140 Id, St.",(742) 379-3433
70,Parturient Montes Limited,FC,Montbéliard,8297 Integer Road,(740) 969-7061
71,Mauris Blandit Mattis Foundation,PB,Bayeux,406-4021 Egestas Rd.,(351) 448-5059
72,Molestie Tellus Foundation,KN,Kano,7935 Integer Avenue,(815) 266-2036
73,Et Corp.,WV,Kortrijk,6939 Ultricies St.,(824) 474-8372
74,Ligula Aenean Gravida Limited,Jönköpings län,Nässjö,"P.O. Box 262, 8677 Interdum St.",(773) 340-9163
75,Odio A Purus PC,VI,Nancagua,899-8377 Cursus Rd.,(609) 134-4305
76,At Lacus Ltd,U,Belfast,"P.O. Box 876, 2528 Leo, Street",(526) 149-2700
77,Ac Metus PC,SI,Greymouth,"P.O. Box 710, 2374 Integer Road",(660) 403-1841
78,Quam Elementum Consulting,New South Wales,Grafton,Ap #938-7507 Non Road,(860) 572-1507
79,Eget Metus Corp.,WV,Zevekote,2047 Cursus Av.,(447) 128-6448
80,Nonummy Ipsum Non Consulting,O,Borås,3558 Odio. Avenue,(942) 436-4721
81,Nulla Incorporated,AB,Upplands Väsby,707-268 Quis Street,(127) 664-4298
82,Donec LLC,NI,Waitakere,"Ap #363-4011 Est, Road",(672) 266-4129
83,Mi Duis Risus Industries,Vienna,Vienna,"P.O. Box 304, 8203 Tincidunt, Avenue",(830) 556-0931
84,Curabitur Industries,Catalunya,Sabadell,2645 Tincidunt Ave,(953) 756-7476
85,Orci Consectetuer Euismod Ltd,Noord Holland,Purmerend,Ap #262-6406 Neque Av.,(254) 764-9122
86,Amet Massa LLC,AZ,Mesa,2104 Mauris Rd.,(932) 329-4671
87,Nisi Aenean Eget Inc.,Ontario,Whitchurch-Stouffville,929 Nisi Rd.,(467) 631-2832
88,Enim Mi Associates,Île-de-France,Champigny-sur-Marne,843-8432 Et Rd.,(203) 341-3904
89,Nunc Ltd,Iowa,Sioux City,"P.O. Box 172, 3375 Turpis Street",(572) 985-2313
90,Tempus Eu Consulting,Uttar Pradesh,Rae Bareli,"P.O. Box 599, 8831 Enim Road",(993) 502-6391
91,Augue LLC,NA,Nairn,"P.O. Box 403, 5362 Enim. Road",(886) 827-7924
92,Imperdiet Nec Leo Institute,Andalucía,Córdoba,"1294 Id, Street",(809) 679-7858
93,Nec LLP,Ontario,Bath,Ap #920-1434 Diam. Avenue,(273) 597-7476
94,Convallis In Cursus Corporation,MP,Kraków,"P.O. Box 786, 6677 Nunc Rd.",(196) 845-2459
95,Orci Lacus Industries,Provence-Alpes-Côte d'Azur,Antibes,"P.O. Box 149, 4231 Dictum. Avenue",(662) 604-3010
96,Pede Ac Urna Corp.,Andalucía,Cádiz,305-3663 Integer Av.,(618) 154-5898
97,Lorem Lorem Luctus Incorporated,HE,Erpion,"P.O. Box 442, 1484 Lobortis St.",(233) 687-2562
98,Molestie Orci Tincidunt Ltd,CL,Palencia,Ap #413-2822 Nulla Street,(304) 402-2069
99,Etiam Laoreet Libero Limited,British Columbia,Fraser-Fort George,"858-6829 Consequat, Rd.",(798) 805-1814
100,Accumsan LLC,Dr,Assen,Ap #358-8213 Velit. Rd.,(357) 206-6714
1 1 Pede Et Risus Consulting Wie Vienna Ap #508-3195 At Avenue (932) 612-6518
2 2 Pede Malesuada Consulting Drenthe Meppel P.O. Box 616, 9409 Suspendisse St. (105) 303-2051
3 3 Auctor Incorporated ON Hearst 944-3936 Praesent Road (326) 282-6747
4 4 Auctor Odio LLC QC Chicoutimi P.O. Box 124, 3952 Sit Rd. (623) 728-1497
5 5 Phasellus Dapibus Quam Institute Berlin Berlin 599-5509 Id, Road (302) 275-3108
6 6 Eget Lacus Associates Queensland Hervey Bay Ap #966-4267 Elit Avenue (657) 147-3061
7 7 Eu Neque Pellentesque Ltd BE Berlin 9285 Tortor Av. (553) 851-6429
8 8 Magnis LLC SP Jundiaí 766-9005 Dictum. Road (432) 411-6225
9 9 Vulputate Posuere Vulputate Associates AR Zaragoza 4433 Mauris Rd. (562) 522-8957
10 10 Dis Parturient Industries Tyrol Wörgl Ap #878-7915 Sit St. (153) 510-0468
11 11 Adipiscing Non Associates SL Katowice 1654 Augue, St. (175) 176-8256
12 12 Pede Nonummy Ut Company ON Toronto 7516 Condimentum. Rd. (809) 296-0946
13 13 Scelerisque Associates Metropolitana de Santiago Providencia Ap #752-7401 Aliquam Ave (223) 351-4520
14 14 Malesuada Id Erat Inc. Champagne-Ardenne Troyes P.O. Box 727, 7109 Quis, St. (859) 728-6562
15 15 Elit Sed Associates LAZ Labico Ap #627-356 Nulla. Avenue (242) 771-1721
16 16 Donec Nibh Enim LLC Antalya Alanya 802 Placerat Rd. (130) 562-4215
17 17 Sed Company UP Gorakhpur Ap #911-7201 Ullamcorper. Road (877) 882-4792
18 18 Purus Company NO Lens Ap #379-9596 Magna, St. (178) 292-4753
19 19 Ipsum Dolor Sit Company San José Mata de Plátano 3052 Nunc, Road (721) 314-8328
20 20 Cubilia Associates Ontario Essex P.O. Box 189, 7017 Enim St. (530) 997-4789
21 21 Orci Sem Limited E Norrköping P.O. Box 904, 8871 Nec, Road (927) 856-0234
22 22 Semper Cursus Integer LLP CAM Sant'Arsenio P.O. Box 806, 737 Velit Av. (148) 598-4515
23 23 Eros Limited Worcestershire Halesowen Ap #466-1326 Nulla Avenue (125) 664-6887
24 24 Orci Adipiscing PC Ankara Beypazarı Ap #503-2121 Et Rd. (922) 118-3062
25 25 Pulvinar Arcu Et Company Zuid Holland Delft 1918 Cubilia Rd. (151) 846-0164
26 26 Consequat Auctor Institute L Dublin P.O. Box 355, 6352 Eu Avenue (666) 646-6854
27 27 Ornare Fusce Incorporated Noord Holland Hilversum 1211 Lacus. Road (497) 414-4833
28 28 Rhoncus Id Foundation Saarland Schwalbach Ap #572-9437 In Street (185) 830-7168
29 29 Aliquam Erat Volutpat Ltd NSW Tamworth 630-159 Dis St. (508) 666-6097
30 30 Tincidunt Dui Augue Corp. RJ Bikaner 6646 Pellentesque Avenue (541) 222-1296
31 31 Egestas Industries QC Pointe-aux-Trembles Ap #834-7483 Sagittis. Ave (929) 966-1678
32 32 Cras PC Northern Territory Darwin P.O. Box 797, 6957 Adipiscing Rd. (784) 755-0169
33 33 Velit Quisque Varius Institute WA Gosnells Ap #262-3475 Metus. Avenue (107) 893-1395
34 34 Rutrum Corporation Wie Vienna P.O. Box 487, 2759 Venenatis Avenue (541) 252-3979
35 35 Non Nisi Aenean Corp. Wie Vienna 4689 Sit Ave (574) 571-8873
36 36 Sapien Cursus In Industries Ontario Whitby Ap #113-7134 Ut Avenue (564) 826-1266
37 37 Cras Eget Nisi Corp. AN Arendonk 521-2463 Purus, Av. (921) 456-3540
38 38 Ut LLC IA Cedar Rapids P.O. Box 899, 7840 Justo. St. (374) 905-3251
39 39 Aliquam Industries Leinster Dublin Ap #434-4457 Ligula. Street (378) 388-2768
40 40 Ante Bibendum Inc. NI Porirua 3389 Ac Rd. (292) 375-4468
41 41 Nunc In At Limited N. Laren 602-1426 Arcu. Avenue (547) 919-2398
42 42 Convallis In Foundation Midi-Pyrénées Toulouse P.O. Box 343, 9555 Nisi Ave (234) 125-0471
43 43 Lacinia Sed Congue LLP Ist Istanbul P.O. Box 601, 3686 Donec St. (769) 602-2550
44 44 Euismod Industries NL Glovertown 919-4124 Egestas. Rd. (157) 942-9742
45 45 Nullam Ut Associates Oost-Vlaanderen Steendorp 8648 Sed Rd. (775) 999-5190
46 46 Enim Mi Ltd Maharastra Ahmadnagar 663-9903 Erat Rd. (135) 712-9458
47 47 Urna Ut Company Noord Brabant Helmond 204-5245 Ut Street (823) 199-2338
48 48 Nunc Id Enim Associates NI Cambridge P.O. Box 899, 5251 Sed St. (203) 782-1779
49 49 Lobortis Risus In Ltd Cartago Carmen 596-3119 Egestas Road (464) 788-8637
50 50 Mauris Molestie Pharetra Ltd Aydın Kuşadası 7728 Eu Rd. (986) 622-0685
51 51 Aenean Egestas PC PV Bilbo 4999 Fusce Road (830) 849-9027
52 52 Nunc Mauris Incorporated NI Tokoroa Ap #665-8244 Ante, St. (518) 603-7206
53 53 Pharetra Nam Ac Institute FVG Forgaria nel Friuli P.O. Box 543, 4271 Tempus Ave (276) 176-2775
54 54 Nunc Sed Libero PC New South Wales Wagga Wagga 4089 Aliquam Street (129) 929-4820
55 55 Aliquam Company BU Oudergem Ap #440-8271 Vitae St. (591) 889-2609
56 56 Et PC Bedfordshire Leighton Buzzard Ap #539-5445 Quam Av. (554) 153-7471
57 57 Est Incorporated Anglesey Beaumaris 347-2618 Arcu St. (399) 720-0760
58 58 Arcu LLP Luxemburg Ethe Ap #602-4508 Interdum Rd. (515) 158-5849
59 59 Enim Etiam Corp. MH Mumbai Ap #347-3668 Est St. (744) 327-6738
60 60 Tempus Lorem Fringilla Associates North Island Wellington Ap #161-9602 Nec Street (467) 358-8336
61 61 Ac Turpis Egestas Ltd Connacht Galway Ap #776-8305 Molestie. Rd. (903) 615-2716
62 62 Arcu Ac Orci LLC C Galway 614-5547 Nunc Ave (424) 371-4963
63 63 Non Cursus Non Corporation Ohio Columbus Ap #887-5007 Pede, St. (404) 120-4837
64 64 Porttitor Vulputate Corporation Ontario Hearst 954-412 Id Rd. (198) 570-9682
65 65 Montes Nascetur Foundation PIE Rueglio 898-5723 Consectetuer Rd. (877) 534-8280
66 66 Sit LLC MO Jefferson City 494-8078 Netus St. (769) 439-0548
67 67 Sed Pede LLC Andalucía Córdoba Ap #381-3155 Faucibus Ave (192) 410-1335
68 68 Enim Limited SJ Desamparados P.O. Box 417, 9500 Proin Avenue (849) 276-3299
69 69 In Condimentum Ltd NSW Parramatta Ap #825-9140 Id, St. (742) 379-3433
70 70 Parturient Montes Limited FC Montbéliard 8297 Integer Road (740) 969-7061
71 71 Mauris Blandit Mattis Foundation PB Bayeux 406-4021 Egestas Rd. (351) 448-5059
72 72 Molestie Tellus Foundation KN Kano 7935 Integer Avenue (815) 266-2036
73 73 Et Corp. WV Kortrijk 6939 Ultricies St. (824) 474-8372
74 74 Ligula Aenean Gravida Limited Jönköpings län Nässjö P.O. Box 262, 8677 Interdum St. (773) 340-9163
75 75 Odio A Purus PC VI Nancagua 899-8377 Cursus Rd. (609) 134-4305
76 76 At Lacus Ltd U Belfast P.O. Box 876, 2528 Leo, Street (526) 149-2700
77 77 Ac Metus PC SI Greymouth P.O. Box 710, 2374 Integer Road (660) 403-1841
78 78 Quam Elementum Consulting New South Wales Grafton Ap #938-7507 Non Road (860) 572-1507
79 79 Eget Metus Corp. WV Zevekote 2047 Cursus Av. (447) 128-6448
80 80 Nonummy Ipsum Non Consulting O Borås 3558 Odio. Avenue (942) 436-4721
81 81 Nulla Incorporated AB Upplands Väsby 707-268 Quis Street (127) 664-4298
82 82 Donec LLC NI Waitakere Ap #363-4011 Est, Road (672) 266-4129
83 83 Mi Duis Risus Industries Vienna Vienna P.O. Box 304, 8203 Tincidunt, Avenue (830) 556-0931
84 84 Curabitur Industries Catalunya Sabadell 2645 Tincidunt Ave (953) 756-7476
85 85 Orci Consectetuer Euismod Ltd Noord Holland Purmerend Ap #262-6406 Neque Av. (254) 764-9122
86 86 Amet Massa LLC AZ Mesa 2104 Mauris Rd. (932) 329-4671
87 87 Nisi Aenean Eget Inc. Ontario Whitchurch-Stouffville 929 Nisi Rd. (467) 631-2832
88 88 Enim Mi Associates Île-de-France Champigny-sur-Marne 843-8432 Et Rd. (203) 341-3904
89 89 Nunc Ltd Iowa Sioux City P.O. Box 172, 3375 Turpis Street (572) 985-2313
90 90 Tempus Eu Consulting Uttar Pradesh Rae Bareli P.O. Box 599, 8831 Enim Road (993) 502-6391
91 91 Augue LLC NA Nairn P.O. Box 403, 5362 Enim. Road (886) 827-7924
92 92 Imperdiet Nec Leo Institute Andalucía Córdoba 1294 Id, Street (809) 679-7858
93 93 Nec LLP Ontario Bath Ap #920-1434 Diam. Avenue (273) 597-7476
94 94 Convallis In Cursus Corporation MP Kraków P.O. Box 786, 6677 Nunc Rd. (196) 845-2459
95 95 Orci Lacus Industries Provence-Alpes-Côte d'Azur Antibes P.O. Box 149, 4231 Dictum. Avenue (662) 604-3010
96 96 Pede Ac Urna Corp. Andalucía Cádiz 305-3663 Integer Av. (618) 154-5898
97 97 Lorem Lorem Luctus Incorporated HE Erpion P.O. Box 442, 1484 Lobortis St. (233) 687-2562
98 98 Molestie Orci Tincidunt Ltd CL Palencia Ap #413-2822 Nulla Street (304) 402-2069
99 99 Etiam Laoreet Libero Limited British Columbia Fraser-Fort George 858-6829 Consequat, Rd. (798) 805-1814
100 100 Accumsan LLC Dr Assen Ap #358-8213 Velit. Rd. (357) 206-6714