Re: OFF ������ ������� ���������

Thu, 06 Sep 2007 13:04:48 -0700 

îÁÒÏÄ ÐÒÏÛÕ ÐÒÏÝÅÎÉÑ ÚÁ ÎÅ×ÎÑÔÎÏ ÎÁÐÉÓÁÎÎÏÅ ÓÏÏÂÝÅÎÉÅ. ðÒÏÓÔÏ ÐÉÓÁÌ ÐÏÓÌÅ 14 
Ó ÌÉÛÎÉÍ ÞÁÓÏ× ÒÁÂÏÔÙ, ÍÏÖÅÔ ÂÏÌØÛÅ ÎÅ ÍÅÎØÛÅ ÜÔÏ ÔÏÞÎÏ, ÎÅ ÚÁÓÉËÁÌ 3 ÄÎÑ 
ÂÏÌÅÅ 10 ÞÁÓÏ× ÚÁ ËÏÍÐÏÍ ÓÉÄÅÌ. âÙÌÏ ÕÖÁÓÎÏ ÈÏÒÏÛÅÅ ×ÐÅÞÁÔÌÅÎÉÅ. îÏ 
ÎÁÓÌÅÄÕÀÝÉÊ ÄÅÎØ ÂÙÌ ÒÁÚÏÞÁÒÏ×ÁÎ Ô.Ë. ÎÅ ×ÓÑ ÆÏÒÍÁ ÏÔÒÁÂÏÔÁÌÁ. ðÒÉÛÌÏÓØ 
×ÓÔÁ×ÌÑÔØ ÏÐÒÅÄÅÌÉÔÅÌØ ËÌÁÓÓÏ×, ÔÉÐÏ×, ÐÒÁ×ÉÔØ uses ÄÌÑ Á×ÔÏÍÁÔÉÞÅÓËÏÇÏ 
ÏÐÒÅÄÅÌÅÎÉÑ × ËÁËÏÍ ÐÁËÅÔÅ ÉÓËÁÔØ ÆÕÎËÃÉÀ. îÕ ×ÏÔ 6 ÄÅÎØ ×ÒÏÄÅ ×ÏÔËÎÕÌ × 
ÉÎÔÅÒÐÒÅÔÁÔÏÒ ÒÁÚÕÍ.
÷ÏÏÂÝÅ Ñ ÐÏÌØÚÏ×ÁÌÓÑ ÂÉÂÌÉÏÔÅËÏÊ RemObjects Software. (îÏ ÎÅ È×ÁÔÁÌÏ ÒÁÂÏÔÙ 
Ó ÓÏÂÙÔÉÑÍÉ ÆÏÒÍ. ÷ÏÔ É ×ÚÑÌ ÉÎÔÅÒÐÒÅÔÁÔÏÒ ÓÍÏÔÒÅÔØ. ðÏÎÒÁ×ÉÌÁÓØ ÅÇÏ ÐÒÏÓÔÁÑ 
ÒÁÂÏÔÁ Ó ËÏÄÏÍ ÆÏÒÍÙ É ÐÒÉÓÕÔÓÔ×ÉÅ try except "on" end. ÷ÏÏÂÝÅ ÎÁÄÏ ÂÕÄÅÔ 
ÓÒÏÓÔÉÔØ RemObjects Software Ó ÉÎÔÅÒÐÒÉÔÁÔÏÒÏÍ ÔÏÇÄÁ ÂÕÄÅÔ É ÓËÏÒÏÓÔØ 
×ÙÐÏÌÎÅÎÉÑ ÎÁ ×ÙÓÏÔÅ ÈÏÔÑ ÄÌÑ ÏÂÙÞÎÏÇÏ ÏÔÏÂÒÁÖÅÎÉÑ ÆÏÒÍ Ó ÉÈ ÓÏÂÙÔÉÑÍÉ ÄÁÖÅ 
ÎÅ ÏÝÕÝÁÅÔÓÑ ÐÒÉÓÕÔÓÔ×ÉÅ ÉÎÔÅÒÐÒÅÔÁÔÏÒÁ.)
é ÐÏÓÌÅ 4 ÄÎÅÊ ÉÓÓÌÅÄÏ×ÁÎÉÊ BPL ÂÁÌÄÅÀ, ËÁË ÜÔÏ "Carlo Kok" ÎÅ ÎÁÐÉÓÁÌ ÔÁËÏÊ 
ÐÒÏÓÔÏÊ ÍÅÈÁÎÉÚÍ ÄÌÑ ÚÁÇÒÕÚËÉ ÏÐÉÓÁÎÉÊ ÆÕÎËÃÉÊ É ÄÁÌØÎÅÊÛÅÇÏ ÉÈ ×ÙÚÏ×Á. èÏÔÑ 
RemObjects Software ÔÏÖÅ ÎÒÁ×ÉÔÓÑ.

ñ ÎÁÄÅÀÓØ, ËÏÍÕ ÜÔÏ ÉÎÔÅÒÅÓÎÏ, ÔÏ ÏÎ ÚÎÁÅÔ ÄÏ ËÁËÏÊ ÓÔÅÐÅÎÉ ÔÑÖËÏ ÐÉÓÁÔØ 
ÔÁËÉÅ ×ÏÔ ËÏÎÓÔÒÕËÃÉÉ ÓÍ. ×ÎÉÚÕ ÍÏÄÕÌØ. óÅÊÞÁÓ ÖÅ Ñ ÐÒÏÓÔÏ ÂÅÚ ÒÅÇÉÓÔÒÁÃÉÉ 
ÆÕÎËÃÉÊ ÏÂÙÞÎÙÈ É ÆÕÎËÃÉÊ ÏÂßÅËÔÏ× × ÆÏÒÍÅ ×ÙÚÙ×ÁÀ ÆÕÎËÃÉÀ É × uses ÕËÁÚÙ×ÁÀ 
ÍÏÄÕÌØ Ô.Ë. ×ÓÅ ÖÅ ÆÕÎËÃÉÉ ÍÏÇÕÔ ÓÕÝÅÓÔ×Ï×ÁÔØ × ÒÁÚÎÙÈ âðì ÏÄÉÎÁËÏ×ÙÅ. é ×ÓÅ 
ÒÁÂÏÔÁÅÔ. åÓÔÅÓÔ×ÅÎÎÏ, ÞÔÏ ÎÅ ×ÓÅ ÎÁ×ÅÒÎÏÅ ÐÏÌÕÞÉÔÓÑ Á×ÔÏÍÁÔÉÚÉÒÏ×ÁÔØ ÔÁËÉÍ 
ÍÅÔÏÄÏÍ, ÎÏ ÐÏËÒÁÓÎÅÊ ÍÅÒÅ ÂÏÌÅÅ 90%, Á ÍÏÖÅÔ É ÂÏÌØÛÅ ËÏÄÁ ÕÖ ÔÏÞÎÏ ÂÕÄÅÔ 
ÒÁÂÏÔÁÔØ.

unit Navigator_Interpreter;
interface
uses Classes, JvInterpreter;

  procedure RegisterJvInterpreterAdapter(JvInterpreterAdapter: 
TJvInterpreterAdapter);

implementation
uses B_DBProc, DB;

{function CreateDataSetSQl(AOwner: TComponent; Value: TDataSet; 
SQL:String):TDataSet;}

procedure JvInterpreter_CreateDataSetSQl(var Value: Variant; Args: 
TJvInterpreterArgs);
begin
  Value := O2V(CreateDataSetSQl(TComponent(V2O(Args.Values[0])), 
TDataSet(V2O(Args.Values[1])), Args.Values[2]));
end;

procedure RegisterJvInterpreterAdapter(JvInterpreterAdapter: 
TJvInterpreterAdapter);
const
  cUtils = 'B_DBProc';
begin
  with JvInterpreterAdapter do
  begin
    AddFunction(cUtils, 'CreateDataSetSQl', JvInterpreter_CreateDataSetSQl, 
3, [varEmpty, varEmpty, varEmpty], varEmpty);
  end;
end;

initialization
  RegisterJvInterpreterAdapter(GlobalJvInterpreterAdapter);
end.

Ответить