chars.pas

httpanalyzer, source code for delphi

unit chars;

interface
// COPYRIGHT BY THORSTEN SCHMIDT !!!!!!!!!
// NO USE WITHOUT WRITTEN PERMISSON OF THE AUTHOR ALLOWED

function bool2str(b: boolean) : string;
function bool2text(b: boolean) : string;

function strpcopydef(Dest: PChar; Source: string; def:string) : boolean;
(* wie strpcopy + wenn length(source)=0 dann wird dest der def(ault)-string zugewiesen *)

function strcopydef( Dest: PChar; Source: Pchar; def: pchar) : boolean;

//function strtointdef(sizep,1);

function strup(s_input:string): string;

function trimpleft(p_in:pchar) : pchar;
function trimpright(p_in:pchar) : pchar;
function trimp(p_in:pchar): pchar;

function strpos_nocase(p_in,p_such:pchar) : pchar;
// liefert einen Zeiger auf den erste Stelle in p_in wo die gesuchte Zeichenkette gefunden wurde


function delp_firstonly(p_in,zul:pchar) : pchar;

function delp(p_in,zul:pchar) : pchar;
// l鰏cht die Zeichenkette zul aus p_in



function replacep(p_in,ersetzep,durchp:pchar) : pchar;
function replacep_nocase(p_in,ersetzep,durchp:pchar) : pchar;


function name2dos(p_in: pchar) : pchar; // mache Dateinamen Dos-konform

function html2asci(p_in: pchar): pchar;

function tohtml(p_in:pchar) : pchar;

function asci2html(p:pchar):pchar;


procedure wait4me(ms : longint);

function WSErrorDesc(error: integer) : string;

function WSGetLastError: longint;


function getstr(such_begin, id_s,id_e : pchar; VAR start_ergb: pchar; VAR end_ergb:pchar;showerr: boolean) : byte;

// start_ergb : NEUER Zeiger auf den Ergebnisstr; Speicher wird reserviert
// end_ergb : Zeiger auf das Ende des gesuchten Stringteils+strlen(id_e), ABER im Str Such_begin
// gesucht wird der Str zwischen id_s und id_e im Pchar such_begin...
// id_s und id_e m黶sen GRO