[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: OpenEdge.Net.pl

[Peter Judge]

You will want to replace IF TYPE-OF(oEntity, String) THEN lcHTML = CAST(oEntity, String):Value. ELSE lcHTML = oEntity:ToString(). With something like case true: when type-of(oEntity, String) then lcHTML = cast(oEntity, String):Value. when type-of(oEntity, Memptr) then lcHTML = cast(oEntity, Memptr):GetString(1). when type-of(oEntity, ByteBucket) then lcHTML = cast(oEntity, ByteBucket):GetString(). otherwise lcHTML = oEntity:ToString(). end case. That should get you want you're after/

Continue reading...