Funkcja do usuwania tagów HTML

KOD:

function DelHTML(s: string): string; { Usuwanie tagów HTML }

var

i: Word;

tag: Shortint;

begin

Result:='';

tag := 0;

for i := 1 to length(s) do

begin

if s[i] = '<' then Inc(tag); if tag = 0 then Result := Result + s[i]; if s[i] = '>' then Dec(tag);

end;

end;

Kodowanie ciągu znaków [DELPHI]

Funkcja:

function koduj(tekst: string; password: string; flag_code: boolean):string; // funkcja z trzema parametrami zwracająca string
var i, len_pass: integer;
tmp_str: string;
byte_in, byte_out, byte_pass: byte; //deklaracja zmiennych
begin
len_pass := Length(password); //długość klucza
for i:=1 to Length(tekst) do //pętla "obiegająca" kodowany tekst
begin
byte_in := Ord(tekst[i]); //pobranie kolejnej litery kodowanego tekstu i zamiana na bajt
byte_pass := Ord(password[i mod len_pass]); //pobranie kolejnej litery klucza i zamiana na bajt
if flag_code then //sprawdzenie flagi (czy ma być kodowanie czy dekodowanie)
byte_out := (byte_in + byte_pass) mod 256 //zakodowanie bajtu tekstu bajtem klucza i podzielenie tego modulo przez 256
else
byte_out := (256 + (byte_in - byte_pass)) mod 256; //rozkodowanie bajtu tekstu zakodowanego bajtem klucza...
tmp_str:= tmp_str + Chr(byte_out); //doklejenie roz/zakodowanego bajtu do zmiennej tymczasowej tmp_str (z zamianą zmiennej byte na char)
end;
result := tmp_str; //wyprowadzenie rezultatu funkcji
end;

Użycie funkcji:

Dekoduj:

edit1.Text:=koduj(edit2.Text,'haslo_do_szyfrowania',false);

Koduj:

edit2.Text:=koduj(edit1.Text,'haslo_do_szyfrowania',true);

Zapis do pliku PDF[DELPHI]

Jeśli chodzi o raport w rave reports to można to zrobić tak:

1.Umieść na formularzu komponenty RvProject1, RvSystem1, RvRenderPDF1, przycisk (Button).
2. Zmień właściwość Caption przycisku na:
Zapisz raport jako PDF
3. Ustaw właściwość Engine komponentu RvProject1 na RvSystem1.
4. Ustaw właściwość ProjectFile komponentu RvProject1 na plik raportu Raport.rav. (trzeba sobie wcześniej zrobic raport np w rave vusual designerze)
5. Oprogramuj zdarzenie onClick dla przycisku zapisującego raport do pliku *.pdf.

procedure TForm1.Button1Click(Sender: TObject);
begin
//przeznaczeniem raportu ma być plik
RvSystem1.DefaultDest := rdFile;
RvSystem1.DoNativeOutput := false;
//obiektem renderującym będzie komponent RvRenderPDF1
RvSystem1.RenderObject := RvRenderPDF1;
//plik zostanie zapisany pod nazwą plikpdf.pdf w katalogu projektu
RvSystem1.OutputFileName := 'plikpdf.pdf';
RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];
//wywołanie metody Execute zapisze raport do pliku plikpdf.pdf
RvProject1.Execute;
end;