$PBExportHeader$n_cst_string.sru
$PBExportComments$String service
forward
global type n_cst_string from nonvisualobject
end type
end forward

global type n_cst_string from nonvisualobject autoinstantiate
end type

type prototypes
function boolean Ansi2Oem (ref string ls_source, ref string ls_dest) library "USER32.DLL" alias for "CharToOemA"
function boolean Oem2Ansi (ref string ls_source, ref string ls_dest) library "USER32.DLL" alias for "OemToCharA"
end prototypes

type variables

end variables

forward prototypes
public function string of_oem2ansi (string as_source)
public function string of_ansi2oem (string as_source)
end prototypes

public function string of_oem2ansi (string as_source);string	ls_1

SetNull(ls_1)

IF isNULL (as_source) THEN RETURN ls_1

ls_1 = space(len(as_source))

IF this.Oem2Ansi (as_source, ls_1) THEN
    RETURN ls_1
ELSE
    ls_1 = ""
    RETURN ls_1
END IF
end function

public function string of_ansi2oem (string as_source);string	ls_1

SetNull(ls_1)

IF isNULL (as_source) THEN RETURN ls_1

ls_1 = space(len(as_source))

IF this.Ansi2Oem (as_source, ls_1) THEN
	RETURN ls_1
ELSE
	ls_1 = ""
	RETURN ls_1
END IF
end function

on n_cst_string.create
TriggerEvent( this, "constructor" )
end on

on n_cst_string.destroy
TriggerEvent( this, "destructor" )
end on