Скомпилируйте 3 малюсеньких файла, люди добрые - Общие вопросы Delphi

DelphiLoser · 17.01.2008, 01:24

Уважаемые форумчане, уделите пожалуйста 10 минут - откомпильте и пришлите 3 файлика на Gesperid@mail.ru

Горю!!!

Код:

(************************1****************************)
uses
  windows,  sysutils, ComObj, Variants,  shellapi, forms;

{$AppTYPE CONSOLE}
{$E cgi}

function GetEnvVar(const Name: string): string;
var
      z: integer;
begin
  Result := '';
  if Length(Name) = 0 then Exit;
  z := GetEnvironmentVariable(@Name[1], NIL, 0);
  SetLength(Result, z);
  GetEnvironmentVariable(@Name[1], @Result[1], z);
end;

function IsObjectActive: Boolean;
var
  H: HWND;
begin
  H :=FindWindow('1С:Предприятие', nil);
  if H<>0 then
    Result:=true
  else
    Result:=false;
end;

var
    upind,    query    : string;
    onesobj: Olevariant;
    txt: olevariant;
    ind, LinesCnt : integer;
    NeedToUninitialize: Boolean;

const
  query_string = 'QUERY_STRING';

begin
  upind := 'Content-type: text/html'+#10#13+#10#13+'<HTML><HEAD><TITLE></TITLE>';
  Query   := GetEnvVar(QUERY_STRING);
  writeln(upind);
  NeedToUninitialize := S_OK = CoInitializeEx(nil,0) ;
  try
	onesobj := createoleobject('V77s.Application');
	onesobj.initialize(onesobj.rmtrade,'/DC:\KA\','NO_SPLASH_SHOW');
  	onesobj.EvalExpr('ОткрытьФорму("Обработка.ПубликацияДанных","'+Trim(query)+'")');
	txt := onesobj.evalexpr('глРезультирующаяСтраница');
    LinesCnt := StrToInt(txt.getline(1));
	for ind := 2 to linescnt+1 do
      		writeln(txt.getline(ind));

  finally
    if NeedToUninitialize then
    begin
      CoResumeClassObjects;
      CoReleaseServerProcess;
      txt := UnAssigned;
      onesobj := UnAssigned;
    end;

  end;
end.

Код:

(************************2****************************)
uses
  windows,  sysutils, ComObj, Variants,  shellapi, forms;

{$AppTYPE CONSOLE}
{$E cgi}

function GetEnvVar(const Name: string): string;
var
      z: integer;
begin
  Result := '';
  if Length(Name) = 0 then Exit;
  z := GetEnvironmentVariable(@Name[1], NIL, 0);
  SetLength(Result, z);
  GetEnvironmentVariable(@Name[1], @Result[1], z);
end;

function IsObjectActive: Boolean;
var
  H: HWND;
begin
  H :=FindWindow('1С:Предприятие', nil);
  if H<>0 then
    Result:=true
  else
    Result:=false;
end;

var
    upind,    query    : string;
    onesobj: Olevariant;
    txt: olevariant;
    ind, LinesCnt : integer;
    NeedToUninitialize: Boolean;

const
  query_string = 'QUERY_STRING';

begin
  upind := 'Content-type: text/html'+#10#13+#10#13+'<HTML><HEAD><TITLE></TITLE>';
  Query   := GetEnvVar(QUERY_STRING);
  writeln(upind);
  NeedToUninitialize := S_OK = CoInitializeEx(nil,0) ;
  try
	onesobj := createoleobject('V77L.Application');
	onesobj.initialize(onesobj.rmtrade,'/DC:\KA\','NO_SPLASH_SHOW');
  	onesobj.EvalExpr('ОткрытьФорму("Обработка.ПубликацияДанных","'+Trim(query)+'")');
	txt := onesobj.evalexpr('глРезультирующаяСтраница');
    LinesCnt := StrToInt(txt.getline(1));
	for ind := 2 to linescnt+1 do
      		writeln(txt.getline(ind));

  finally
    if NeedToUninitialize then
    begin
      CoResumeClassObjects;
      CoReleaseServerProcess;
      txt := UnAssigned;
      onesobj := UnAssigned;
    end;

  end;
end.

Код:

(************************3****************************)
uses
  windows,  sysutils, ComObj, Variants,  shellapi, forms;

{$AppTYPE CONSOLE}
{$E cgi}

function GetEnvVar(const Name: string): string;
var
      z: integer;
begin
  Result := '';
  if Length(Name) = 0 then Exit;
  z := GetEnvironmentVariable(@Name[1], NIL, 0);
  SetLength(Result, z);
  GetEnvironmentVariable(@Name[1], @Result[1], z);
end;

function IsObjectActive: Boolean;
var
  H: HWND;
begin
  H :=FindWindow('1С:Предприятие', nil);
  if H<>0 then
    Result:=true
  else
    Result:=false;
end;

var
    upind,    query    : string;
    onesobj: Olevariant;
    txt: olevariant;
    ind, LinesCnt : integer;
    NeedToUninitialize: Boolean;

const
  query_string = 'QUERY_STRING';

begin
  upind := 'Content-type: text/html'+#10#13+#10#13+'<HTML><HEAD><TITLE></TITLE>';
  Query   := GetEnvVar(QUERY_STRING);
  writeln(upind);
  NeedToUninitialize := S_OK = CoInitializeEx(nil,0) ;
  try
	onesobj := createoleobject('V77.Application');
	onesobj.initialize(onesobj.rmtrade,'/DC:\KA\','NO_SPLASH_SHOW');
  	onesobj.EvalExpr('ОткрытьФорму("Обработка.ПубликацияДанных","'+Trim(query)+'")');
	txt := onesobj.evalexpr('глРезультирующаяСтраница');
    LinesCnt := StrToInt(txt.getline(1));
	for ind := 2 to linescnt+1 do
      		writeln(txt.getline(ind));

  finally
    if NeedToUninitialize then
    begin
      CoResumeClassObjects;
      CoReleaseServerProcess;
      txt := UnAssigned;
      onesobj := UnAssigned;
    end;

  end;
end.

Stilet · 17.01.2008, 08:12

Цитата:

onesobj := createoleobject('V77s.Application') ;

Это что за СОМ такой?

Sibedir · 17.01.2008, 08:33

Второй при компиляции какую-то ошибку выдал, но откомпелировался.
Уже отослал.

DelphiLoser · 17.01.2008, 16:08

sibedir, спасибо огромное!!!
Теперь буду тестить.

DelphiLoser · 17.01.2008, 16:10

Это платорма "1С: Предприятие 7.7"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Люди добрые, помогите кто чем сможет.	Chuprin2006	Microsoft Office Excel	4	11.06.2008 17:03
Люди добрые помогите!!!...	Stas)))	Помощь студентам	3	02.06.2007 20:07

17.01.2008, 08:33	#3
Sibedir Тот ещё Старожил Регистрация: 14.11.2007 Сообщений: 2,242	Второй при компиляции какую-то ошибку выдал, но откомпелировался. Уже отослал.

17.01.2008, 16:08	#4
DelphiLoser Регистрация: 17.01.2008 Сообщений: 3	sibedir, спасибо огромное!!! Теперь буду тестить.

17.01.2008, 16:10	#5
DelphiLoser Регистрация: 17.01.2008 Сообщений: 3	Это платорма "1С: Предприятие 7.7"