用BCB写WEB CGI程序，如何实现replace和SERVER.HTMLENCODE函数？
有没有人这样做过？ 问题点数：20、回复次数：6Top
1 楼wildhorse01（ChinaBCB之雨中漫步）回复于 2001-03-11 16:23:00 得分 0
难道没有这样的一套的函数库吗？？？Top
2 楼wildhorse01（ChinaBCB之雨中漫步）回复于 2001-03-28 23:41:00 得分 0
看来只有自己写了！Top
3 楼tiggle（中国虎）回复于 2001-03-29 09:39:00 得分 15
void __fastcall TWebMod::DSProducerHTMLTag(TObject *Sender, TTag Tag,
const AnsiString TagString, TStrings *TagParams,
AnsiString &ReplaceText)
{
if(TagString=="RecNo")
ReplaceText="<INPUT TYPE=HIDDEN NAME=RecNo VALUE=" + IntToStr(master->RecNo) + ">" + IntToStr(master->RecNo) + "/" + IntToStr(master->RecordCount) + "<P>";
else
if(TagString=="Species")
ReplaceText=master->FieldByName("Species Name")->AsString;
else
if(ReplaceText=="(MEMO)")
ReplaceText=master->FieldByName(TagString)->AsString;
}Top
4 楼actinia（海葵）回复于 2001-03-29 09:44:00 得分 5
关注！Top
5 楼wildhorse01（ChinaBCB之雨中漫步）回复于 2001-03-30 08:48:00 得分 0
tiggle:
这位老兄，麻烦仔细看看问题！Top
6 楼wildhorse01（ChinaBCB之雨中漫步）回复于 2001-06-19 15:52:00 得分 0
bool OpenForm(TForm * WForm)
{
//if(OpenForm(frmmem)==False)
// {
// frmmem=new Tfrmmem(Application);
// OpenForm(frmmem);
// }//使用例子
int i;
bool FormExist;
if(WForm==NULL) return False;
FormExist=False;
for(i=0;i<Screen->FormCount;i++)
if(Screen->Forms[i]->ClassType()==WForm->ClassType())
{
FormExist=True;
break;
}
if(FormExist==False) return FormExist;
if(WForm->WindowState==wsMinimized)
ShowWindow(WForm->Handle,SW_SHOWNORMAL);
else
ShowWindow(WForm->Handle,SW_SHOWNA);
if(!WForm->Visible) WForm->Visible=True;
WForm->BringToFront();
WForm->SetFocus();
return True;
}
//----------------------------------------------------------------
String sqlstr(String sqlstr)
{
//
if(sqlstr!="")
{
sqlstr=repl(sqlstr,"'","''");
}
return sqlstr;
}
//-------------------------------------
String repl(String sstr,String fstr,String repstr)
{
//替换字符串函数
String tmpstr="";
int x = sstr.AnsiPos(fstr);
if(x==0)
{
tmpstr=sstr;
//Application->MessageBoxA(sstr.c_str(),"",MB_OK); //未找到查找字串，原样返回
return tmpstr;
}
while(x != 0)
{
tmpstr +=sstr.SubString(1,x-1) + repstr;
sstr = sstr.SubString(x+fstr.Length(),sstr.Length());
x = sstr.AnsiPos(fstr);
}
tmpstr+=sstr;
//Application->MessageBoxA(tmpstr.c_str(),"",MB_OK);
return tmpstr;
}Top
