سلام . بازم اومدم با مشکلات جدید !
این دفعه مشکلم اینه که وقتی ادد میکنن روبات رو , روبات اددشون نمیکنه و باید حتمآ بهش پی ام بدن !
مشکل بعدی اینه که اگه یه دستور توی اسکریپت باشه که اگه پی ام مثل example بود , یه جوابی بده و Status رو عوض کنه و اگه Example توی دیتا بیس نباشه میگه مثلآ متوجه نشدم و ابن دستورم انجام میده ( یعنی هم دیتابیس و هم اسکرپت رو انجام میده ! ) باید یه اولویت باشه که اول از اسکریپت باشه بعد دیتابیس و بعد اگه هر دو تا نبود اونوقت بگه متوجه نشدم و Else آخر رو انجام بده !
این قضیه ربط به Flag داشت توی رویا که اگه True بود از دیتابیس میفرستاد و اگه False بود از اسکریپت استفاده میکرد و به این شکل بود :
نقل قول:
if Flag then begin
For i:=1 to VarsRoya.ListParam.Count-1 do
Req:= Req+' '+VarsRoya.ListParam.Strings[i] ;
Req:=Cut(Req,True);
// ADOQuery1.SQL.Text:='Select * From Message Where ( Requst ='''+Req+''' )';
ADOQuery1.SQL.Text:='Select * From Message Where Requst LIKE ''%'+Req+'%''';
ADOQuery1.Open;
if not ADOQuery1.IsEmpty then begin
i:=Random (ADOQuery1.RecordCount)+1;
ADOQuery1.RecNo:=i;
VarsRoYa.SendStr :='<FADE #333333,#000000,#ff0000><font size="9" face="arial">[System]: '+
ADOQuery1.FieldByName('Response').AsString+'  .</Fade></font>';
end;
ADOQuery1.close;
end;
ADS_pro;
end;
end;
__________________text________________________
if Req ='f' then begin
varsroya.sendstr := '<black><font face="Tahoma"><B> B-) alefba migi? khodam baladam baba </fade>' ;
Flag:=False;
|
شرمنده اگه به هم ریختس به خاطر فروم هست توی فایل تکست Paste کنید .
تشکر .