FastScript function çalıştırıp sonucu alma

[lazymule]

Merhabalar

forum da ve FastScript in sitesinde aradım fakat bir sonuca ulaşamadım yapmak istediğim aşağıdaki gibi bir fonksiyonun sonucu almak
Calls diye bir örnek var ama tam olarak bu işi yapmıyor sadece fonksiyona değerler gönderebiliyorsunuz. şimdiden teşekkürler.

Kod: Tümünü seç

function Hesapla(D1, D2: Integer): Integer;
begin
  Result := D1 * D2 * 10;
end;

[vkamadan]

Merhaba,
Sorunuzdan FastREport içinden delphideki yazdığınız fonkisyonu kullanmak istediğinizi anlıyorum viewtopic.php?t=11943
aynı zamanda FastScript ile runtime olarak function yazp değer atamak istediğinizi anlıyorum viewtopic.php?t=19035
Kolay gelsin.

[lazymule]

Merhaba,
Sorunuzdan FastREport içinden delphideki yazdığınız fonkisyonu kullanmak istediğinizi anlıyorum viewtopic.php?t=11943
aynı zamanda FastScript ile runtime olarak function yazp değer atamak istediğinizi anlıyorum viewtopic.php?t=19035
Kolay gelsin.

cevabın için teşekkürler vkamadan
ama tam olarak yapmak isteğim raporda değil
yapmak istediğim şu aşağıda ki fonksiyonu bir dosyaya yazdığımı düşün FastScript ile bu fonksiyonu çalıştırıp sonucunu almak isteğim zaman fonksiyonun çalışma şeklini değiştirerek farklı bir sonuç çevirmek
function Hesapla(D1, D2: Integer): Integer;
begin
Result := D1 * D2 * 10; // dediler 10 ile çarpılacak
Result := D1 * D2 * 100; // dediler 100 ile çarpılacak
Result := D1 / D2 ; // veya böyle istediler
end
herseferinde derleme yapmaktansa txtnin içinden sonucu değiştirivermek
ilk link aslında yapmak isteğime çok uyuyor incelemiştim ama sonucu alamıyorum
calls diye bir örnek var orda şeklinde yapmış değer göndermede çok harika çalışıyor iş fonksiyon sonucuna gelince başaramadım örnek aşağıdaki gibi
fsScript1.Compile;
fsScript1.CallFunction('ScriptFunc', VarArrayOf(['Call ScriptFunc', 1]))

txt ye yazılan fonsiyon ise

procedure ScriptFunc(Msg: String; Num: Integer);
begin
ShowMessage('1st param: ' + Msg +
' 2nd param: ' + IntToStr(Num));
end;

[fatihtolgaata]

RemObjects Pascal Script neden kullanmıyorsun?
http://www.remobjects.com/page.asp?id={ ... BE7E302E6}
Aşağıda nasıl yapıldığı var.
http://www.remobjects.com/devcenter/art ... 0A79D0D04}

[lazymule]

fatihtolgaata onu hiç incelemedim fast report kullandığım için ayrı bir bileşen daha kurmak hiç istemedim ama hemen deneyeceğim.

[lazymule]

tüm arkadaşlara teşekküler
delphi de yazdığım komut
ShowMessage(PSScript.ExecuteFunction([1234.5678, 'test'],'TestFunction'));

txt deki fonksiyonum
function TestFunction(Param1: Double; Data: String): Double;
begin
Writeln (data)
Result := param1 * 10;
end;
begin
end.
malesef fastScript ile başaramadım fatihtolgaata önerdiği RemObjects Pascal Script ile başardım