note
wpflum
I was able to drop the external class I made to interface to the awt class in java but I still get an error when it tries to send the image object to the java class to load it. I can actually print the object $image and I get InLine::Java::Object=HASH(0x94da3a8)
Here is the code:
<code>
#!/usr/bin/perl
use strict; use warnings;
use Inline (Java => 'STUDY',
CLASSPATH => '/usr/share/java/RXTXcomm.jar:/home/billp/Desktop/perl/SigPlus2_57.jar:/home/billp/Desktop/perl/rt.jar',
STUDY => ['com.topaz.sigplus.SigPlus','java.awt.Image'],
AUTOSTUDY =>1);
use Inline Java => <<EOJ;
import java.awt.*;
public class ADMLibrary{
public Image GetJavaImageObject(String Filename) {
return Toolkit.getDefaultToolkit().getImage(Filename);
}
}
EOJ
my $filename = "/home/billp/Desktop/perl/Screen2.jpg";
my $adm = new ADMLibrary();
my $image = $adm->GetJavaImageObject($filename);
my $sigobj = new com::topaz::sigplus::SigPlus();
$sigobj->lcdWriteImage(0, 2, 3, 46, 233, 24, $image);
1;
</code>
Any Suggestions??
948832
951686