Přeskoč navigaci

Pascal Syntax Hightlighter pro ASP.NET

Pro svůj nový web speciálně o Delphi jsem potřeboval Pascal Syntax Hightlighter pro ASP.NET.

Existuje spoustou programů které dokáží převést kód v Pascalu na (x)HTML ale většinou jsou napsané v Delphi nebo v PHP (v případě pro web). Ale jelikož celý můj web je v ASP.NET tak jsem potřeboval kód v C#.

Dlouho (hmm, asi tak hodinu) jsem nemohl nic najít, takže jsem stáhl otevřený konvertor C# do HTML a podědil bázovou třídu aby po úpravách (cca 2 hodiny) vznikl požadovaný kód (s tím že originální C# podpora zůstala zachovaná).

Domovská stránka projektu Pascal Syntax Hightlighter je na novém webu delphi.netcode.cz (lze tam stáhnout zdrojáky).

Na stránkách delphi.netcode.cz budou uveřejňované informace především pro programátory v Delphi - zdrojové kódy (a to i trošku odbornější), triky, odkazy na komponenty atd. Jelikož je ale struktura nového webu jiná (podobná spíše wiki) budou zde uveřejňovány někdy odkazy na zajímavé články.

A jak tady vypadá výstup? Třeba takto (začátek zlib.pas):

    1{*****************************************************************************
    2*  ZLib.pas                                                                  *
    3*  copyright (c) 2000 base2 technologies                                     *
    4*  copyright (c) 1997 Borland International                                  *
    5*                                                                            *
    6*  revision history                                                          *
    7*    2000-06-13  optimized, fixed, rewrote, and enhanced the zlib.pas unit   *
    8*                  included on the delphi cd (zlib version 1.1.3)            *
    9*****************************************************************************}
   10
   11unit ZLib;
   12
   13{$IFDEF FPC}
   14{$MODE Delphi}
   15{$LINKLIB z}
   16{$ENDIF}
   17
   18interface
   19
   20uses
   21  Sysutils, Classes;
   22
   23const
   24  ZLIB_VERSION = '1.1.3';
   25
   26type
   27  TZAlloc = function (opaque: Pointer; items, size: Integer): Pointer;
   28  TZFree  = procedure (opaque, block: Pointer);
   29
   30  TZCompressionLevel = (zcNone, zcFastest, zcDefault, zcMax);
   31
   32  {** TZStreamRec ***********************************************************}
   33
   34  TZStreamRec = packed record
   35    next_in  : PChar;     // next input byte
   36    avail_in : Longint;   // number of bytes available at next_in
   37    total_in : Longint;   // total nb of input bytes read so far
   38
   39    next_out : PChar;     // next output byte should be put here
Jaggni to|Linkuj

Komentáře k tomuto článku

[*] jiri4884 @ 12.1.2012 13:42:47

Zdravím. Mám zdroják programu (*.pas) apotřeboval bych jej převést do spustitelné formy v delphi7. Poradíte? Díky
Jiří Kristl



Prosím o dodržovaní určitých pravidel (tj. žádné neslušné texty, reklamy a tak prostě podobně). Komentáře porušující tyto pravidla budou odstraněny.

Před vložením komentáře je nutno provést náhled, jedná se o ochranu proti spamu.

 

Vložení komentáře
  
 
 

 

© NetCode.cz, 2006-9 | Všechna práva vyhrazena
Provozováno na mém pikoCMS, vygenerováno: 18.11.2017 22:18:46

O mně

Informace o mé maličkosti a kontakt.

Lokální tagy

amd(1) amiga(1) apple(1) aspnet(2) audio(1) borland(5) C64(1) codegear(12) delphi(39) dotnet(9) dvd(1) electone(1) embarcadero(1) emulator(11) firebird(2) flash(1) freepascal(5) gamecube(3) gigabyte(2) google(3) hardware(48) holografie(1) homebrew(29) hry(12) ibm(14) iphone(7) jidlo(1) komponenty(1) konzole(15) latex(1) lenovo(17) migrace(1) modchip(3) moje(9) mplayer(3) mssql(1) multi-touch(3) native-api(1) navody(23) nintendo(53) Nintendo3DS(2) nintendo64(6) NintendoDS(15) onestation(2) opera(1) ot(1) palm(1) pascal(1) pdf(1) pic(2) pmd85(1) pocitace(1) print-server(2) programovani(21) programy(25) R400(1) recenze(6) retro(1) satelit(1) seamonkey(5) snes(3) svepomoci(1) technika(1) thinkpad(20) usb(1) video(3) vs(3) vykriky(12) web(7) webdesign(8) wii(83) wiimote(13) wiiware(1) wiki(2) windows(7) windows-mobile(1) wl500g(2) wtf(8) zivot(1) ZX-Spectrum(5)