можно ли в паскаль скрипте дизайнера использовать следующии функции: Mkdir, Createdir

MarySV · June 2014

Здравствуйте. Подскажите пожайлуста, можно ли в паскаль скрипте дизайнера использовать следующии функции: MkDir, CreateDir. Если возможно, то как правелтно описать? или как то можно запустить в дизайнере другой проект и настроить с ним взаимодействие?

Nightmareterrible · June 2014

onUserFunction подойдёт?

MarySV · June 2014

Nightmareterrible написал: »

onUserFunction подойдёт?

А как правельно описать её использование? Я пишу onUserFunction(MKdir (s1)); в ответ получаю идентификатор не определен?

Просто в дезайнере используются видимо не все классы объектов, а как подключить я не знаю. Когда использую uses он пишет begin extend. Подскажите как можно реализовать эти функции.

Nightmareterrible · June 2014

В коде Delphi:

frxReport1.OnUserFunction := frxReport1UserFunction;
frxReport1.AddFunction('function GET_WK_NAME(id:integer): string');

function TDataModule5.frxReport1UserFunction(const MethodName: string;
  var Params: Variant): Variant;
begin
  inherited;
  if MethodName = 'GET_WK_NAME' then
    Result := Get_wk_name(Params[0]);
end;

Обратите внимание, что MethodName передаётся в верхнем регистре (всегда).

В коде Fasterport или в Memo FastReport
Get_WK_Name(123);

MarySV · June 2014

Nightmareterrible написал: »
В коде Delphi:
  inherited;

Пишет не определенный идентификатор.

если убрать эту строчку то ругается на Get_wk_name неопределенный идентификатор.

Nightmareterrible · June 2014

Get_wk_name - У вас такая функция определена в модуле TDataModule5 ?
Не забудьте, что функцию надо создать в том же модуле, в котором вызывается frxReport1UserFunction() или использовать <имя модуля>.<функция>().

inherited может и не надо, но ругаться не должно. Какая версия FastReport ? Попробуйте в uses подключить чего-нибудь из этого: frxClass, frxPreview, frxDsgnIntf

MarySV · June 2014

Nightmareterrible написал: »

Get_wk_name - У вас такая функция определена в модуле TDataModule5 ?
Не забудьте, что функцию надо создать в том же модуле, в котором вызывается frxReport1UserFunction() или использовать <имя модуля>.<функция>().

Я так понимаю что нужно модуль DataModule5 подключать через uses, но когда я пишу uses 'unit1.pas'; выдает ошибку Begin expected и ставит указатель перед uses. на сколько я знаю, перед uses не должно стоять ни begin ни end ни что либо другое в редакторе поля паскаль скрипт .

Nightmareterrible написал: »

Попробуйте в uses подключить чего-нибудь из этого: frxClass, frxPreview, frxDsgnIntf

Когда указываешь uses frxClass, frxPreview, frxDsgnIntf; выдает ошибку identifer expected и ставит указатель на frxClass.

Nightmareterrible написал: »

inherited может и не надо, но ругаться не должно. Какая версия FastReport ?

Но ругается

. Fastreport 4.9. дезайнер FastReport идет как компонент к программе от которой нет исходников. Моя задача формировать пакеты документов при формировании отчета, но я не могу использовать некоторые функции.

в частности mkdir, createdir.

Nightmareterrible · June 2014

Сразу надо было говорить, что исходников нету.
Данный код был написал для использования в среде Delphi.

В FasteReport отсутствуют функции по управлению папками и файлами файловой системы - можно использовать только код компилируемого приложения (в данном случае на Delphi).

MarySV · June 2014

Nightmareterrible написал: »

В FasteReport отсутствуют функции по управлению папками и файлами файловой системы - можно использовать только код компилируемого приложения (в данном случае на Delphi).

то есть я никак не смог реализовать данную работу через фастрепорт, даже если я напишу батник я не смогу его запусть в скрипте фастарепорт?

Nightmareterrible · June 2014

Походу это так. К сожалению.
Функций ShellExec и WinExec тоже нету.

MarySV · June 2014

Nightmareterrible написал: »

Походу это так. К сожалению.
Функций ShellExec и WinExec тоже нету.

Может быть есть какая то функция котороя отдельный модуль запустит скажем разработаный в делфи или джаве при форимировании отчета?

Nightmareterrible · June 2014

Если такое и есть, то об этом будет известно будет уже только разработчикам FastReport - задайте вопрос в техподдержку. Без модификации исходных кодов программы я способов не знаю.

MarySV · June 2014

Nightmareterrible написал: »

Если такое и есть, то об этом будет известно будет уже только разработчикам FastReport - задайте вопрос в техподдержку. Без модификации исходных кодов программы я способов не знаю.

Спасибо за всё

Буду искать другие пути решения этой задачи.

MarySV · June 2014

Решила реализовать формирование пакетов с помощью батника который создается при формировании отчета, конечно запускать его придется в ручную. Возник следующий вопрос как записать файл бат в нужной кодировке.

Фастрепорт сохраняет почемуто в юникоде, бат не работает по-этому. Пересохранив бат в ANSI он прекрасно выполняет свои функции. Как выполнить запись в кодирвке ANSI?

Для сохранения файла использую следующее:

procedure CrFileBat5;
var
f:TFileStream;
st:string;
x:integer;
begin
);
f:=TFileStream.Create( Edit2.text+'\mybat.bat',fmCreate);

x:= length(memo22.text)*2;

f.Seek(0,soFromEnd);
f.write(memo22.text,x);

f.Free;
end;
memo22.text содержит контент батника

Fr0sT · June 2014

Если типа AnsiString нет, можно сделать по-тупому:

for i := 1 to Length(s) do
begin
  bytechar := Byte(s[i]);
  f.write(bytechar, 1);
end;

Но это сработает корректно только если в тексте будет только латиница и обычные служебные символы (с кодом < 128).

Вообще PascalScript поддерживает загрузку сторонних DLL ( линк), но в FR это не работает - возможно, старая версия PS. А так можно было бы вообще без проблем юзать весь WinAPI

Nightmareterrible · June 2014

Свойство Memo.Text - это TWideStrings, соответственно в файл тоже будет сохранятся юникод. Чтобы этого не происходило нужно использовать конвертирование в другую кодировку - однако таких функций у FastReport нету.
Рекомендую посмотреть в сторону VisualBasic-скриптов или hta . Последний кстати используется в WPI, а WPI работает на всех компьютерах. Рекомендую взять какой-нибудь WPI и посмотреть исходные коды его hta-скрипта.

MarySV · June 2014

написал:

Свойство Memo.Text - это TWideStrings, соответственно в файл тоже будет сохранятся юникод. Чтобы этого не происходило нужно использовать конвертирование в другую кодировку - однако таких функций у FastReport нету.
Рекомендую посмотреть в сторону VisualBasic-скриптов или hta . Последний кстати используется в WPI, а WPI работает на всех компьютерах. Рекомендую взять какой-нибудь WPI и посмотреть исходные коды его hta-скрипта.

Может быть можно использовать переменную типа поддерживающего ANSI только можно ли будет использовать выше указанный код, и какой тип у переменной должен тогда быть?

Fr0sT · June 2014

Ууу, тут даже приведение типов не работает...

b := Byte(s[1]);
Too many actual parameters

Fr0sT · June 2014

Так в чем проблема?

procedure CrFileBat5(s: string);
var
 f:TFileStream;
begin
 f:=TFileStream.Create('c:\mybat.bat',fmCreate); 
 f.write(s,length(s));
 f.Free; 
end;  

begin  
  CrFileBat5('blabla');                                                              
end.

Записывает в ansi, размер 6 байт

MarySV · June 2014

Fr0sT написал: »

Так в чем проблема?

procedure CrFileBat5(s: string);
var
 f:TFileStream;
begin
 f:=TFileStream.Create('c:\mybat.bat',fmCreate); 
 f.write(s,length(s));
 f.Free; 
end;  

begin  
  CrFileBat5('blabla');                                                              
end.

Записывает в ansi, размер 6 байт

для многострочности значит я должна использовать StringList и все будет сохранять в ansi

попробую))

Fr0sT · June 2014

Да не обязательно

procedure CrFileBat5(list: twidestrings);
var
 f:TFileStream;
 s: string;
 i: Integer;                          
begin
 f:=TFileStream.Create('c:\mybat.bat',fmCreate); 
 for i := 0 to list.count-1 do
 begin                
   s := list[i] + #13#10;                               
   f.write(s,length(s));
 end;                         
 f.Free; 
end;  

begin  
  CrFileBat5(Memo10.Memo);                                                              
end.

MarySV · June 2014

Fr0sT написал: »

Да не обязательно

procedure CrFileBat5(list: twidestrings);
var
 f:TFileStream;
 s: string;
 i: Integer;                          
begin
 f:=TFileStream.Create('c:\mybat.bat',fmCreate); 
 for i := 0 to list.count-1 do
 begin                
   s := list[i] + #13#10;                               
   f.write(s,length(s));
 end;                         
 f.Free; 
end;  

begin  
  CrFileBat5(Memo10.Memo);                                                              
end.

В этом случае русские символы приврощаются в непонять что поэтому батник не срабатыввает

Fr0sT · June 2014

Ну это закономерно! Я же сказал, что сработает только для латиницы. Теоретически, можно сделать батник-запускальщик, который будет устанавливать нужную кодировку перед выполнением сгенеренного батника, но легче избавиться от русских символов, если это возможно

MarySV · June 2014

Fr0sT написал: »

Ну это закономерно! Я же сказал, что сработает только для латиницы. Теоретически, можно сделать батник-запускальщик, который будет устанавливать нужную кодировку перед выполнением сгенеренного батника, но легче избавиться от русских символов, если это возможно

К сожелению это не возможно )) Спасибо за совет))

Fr0sT · June 2014

А вообще, можно же и из того же батника, покури команду chcp

gpi · July 2014

var f: TMemoryStream;
    s: TStringList;                                 
begin
     f := TMemoryStream.Create;
     s := TStringList.Create;
     s.Add('тест1');
     s.Add('тест2');
     s.SaveToStream(f);
     f.Position := 0;
     f.SaveToFile('C:\test.bat');                                     
     s.Free;
     f.Free;                              
end.

MarySV · July 2014

gpi написал: »

var f: TMemoryStream;
    s: TStringList;                                 
begin
     f := TMemoryStream.Create;
     s := TStringList.Create;
     s.Add('тест1');
     s.Add('тест2');
     s.SaveToStream(f);
     f.Position := 0;
     f.SaveToFile('C:\test.bat');                                     
     s.Free;
     f.Free;                              
end.

Спасибо огромное, все работает)) Спасибо всем за помощь))

можно ли в паскаль скрипте дизайнера использовать следующии функции: Mkdir, Createdir

Комментарии

Оставить комментарий