|
| 盒子资源分类 |
![]() |
|
|
|
|
| PLDelphi v0.02 (使用Perl脚本) |
![]() |
| 关键字：PLDelphi Perl Embed 嵌入脚本 |
| 来 自：转载,http://search.cpan.org/~gmpassos/PLDelphi-0.02/ |
| 平 台：Win2k/XP/NT,Win2003 |
下载所需：0 火柴 |
| 深浅度：中级 |
完成时间：2004/10/17 |
| 发布者：larrykun |
发布时间：2007/3/21 |
| 编辑器：DELPHI7 |
语 种：ENGLISH |
| 分 类：工具 |
下载浏览：375/9375 |
|
|
|
|
|
相信Perl还有很多人在用，可是如何把Perl嵌入到Delphi中，在Delphi中使用Perl脚本呢，找了很久发现在了这个东西，不敢独享特转过来。
若您对此有兴趣欢迎与我交流 QQ：6690417
使用方法：
1、执行Perl Makefile.PL生成Makefile文件
2、执行nmake生成在Delphi中使用的库文件PLDelphi.dll
3、在您的工程中加入PLDelphi_dll.pas单元，即动态库引入单元
4、把PLDelphi.pm和PLDelphi.dll文件放入您的工程目录
;Perl嵌入测试程序
program ConsoleTest;
{$APPTYPE CONSOLE}
uses
SysUtils,
PLDelphi in 'PLDelphi.pas';
var
Browser, Response: SV;
I: Integer;
begin
writeln('http://search.cpan.org/~gmpassos/PLDelphi-0.02/') ;
Perl.use('WWW::Mechanize');
Browser := Perl.NEW('WWW::Mechanize');
Response := Browser.call_sv('get', '"http://www.perl.com/"');
writeln(Response.call('content'));
FreeAndNil(response);
FreeAndNil(browser);
Perl.eval('print qq`Hello World!\n` ;') ;
Perl.eval('print "Hello from Delphi!\n"') ;
Perl.eval('print qq`TIME: ` . time() . qq"\n";') ;
Perl.eval('print q"@INC:" . "\n";') ;
Perl.eval('foreach my $INC_i ( @INC ) { print qq~ $INC_i\n~ ;}') ;
Perl.eval('print qq"ERROR:\n";') ;
Perl.eval('warn(q`This is a warning!`) ;');
writeln(Perl.error());
Perl.eval('print "\nMATH:\n";');
I := Perl.eval_int('2**10') ;
Writeln(I);
writeln('http://search.cpan.org/~gmpassos/PLDelphi-0.02/');
Readln;
end. |
![]() |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
|
|
|
