August 29, 2008 02:59pm pdt

1. Adam314 558,667
2. ozo 370,137
3. FishMonger 115,555
4. Tintin 91,647
5. hielo 63,970
6. mjcoyne 58,453
7. nedfine 41,965
8. ravenpl 24,800
9. clockwatc... 24,260
10. teraplane 22,380
11. ahoffmann 21,299
12. kawas 19,050
13. oleber 18,450
14. omarfarid 17,068
15. suhasbha... 16,570
16. marchent 13,540
17. nixfreak 12,200
18. nognew 10,600
19. hernst42 10,080
20. agriesser 10,000
21. SmartIntel 9,760
22. sentner 9,648
23. ddrudik 9,100
24. shanikawm 7,996
25. evilrix 7,500

1. ozo 3,641,902
2. Adam314 1,481,086
3. Tintin 739,941
4. kandura 579,965
5. jmcg 517,810
6. mjcoyne 510,591
7. FishMonger 468,189
8. maneshr 385,976
9. teraplane 366,588
10. manav_m... 338,348
11. clockwatc... 240,548
12. rj2 211,481
13. ahoffmann 206,862
14. davorg 153,165
15. Tim_Utsc... 113,107
16. shlomoy 109,110
17. gripe 98,559
18. suhasbha... 91,970
19. Perl_Diver 82,106
20. sstouk 74,470
21. jhurst 72,319
22. rugdog 70,891
23. hielo 69,920
24. nedfine 69,532
25. ZiaTioN 66,995

07.21.2008 at 09:46AM PDT, ID: 23582440

	[x] Attachment Details

Problem with Perl - How to get image from sql database wrote to an external file?

Asked by linbayzak in Perl Programming Language

Tags: Perl, Internet Explorer 7, n/a

I've been trying to pull some binary data from a database and output this information into an image file (of any kind viewable in IE) but I'm running into some problems. For starters, I get this error in the STDERR Log: error_handler: Data-conversion resulted in overflow. I get this simply from selecting the image from the database, without even trying to display results. I am trying to display the image using the code attached. The CheckNum displays properly but I do not get an image in my link as I wish to achieve. Any ideas on what I'm doing wrong? Thanks.Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

           
           
             my $DB21 = modules::Db->ConnectCheck21();
  my $sql = "SELECT Img, CheckNum
             FROM Image_View
             WHERE UserID = '$FORM->{StoreNum}'
             AND Acct = '$FORM->{BankAcctNum}'
             AND Routing = '$FORM->{RoutingNum}'
             AND CheckNum = '$FORM->{CheckNum}'
             AND Amt = '$FORM->{Amt}'";
 
  my $rs = $DB21->SelectHash($sql);
 
 
  print<<EOD;
 
  <html>
  <head>
  </head>
  <body>
  <table border=0 width=35%>
  <tr>
    <td><b>Check 21 Image Link</b></td>
  </tr>
EOD
  my $bgcolor;
  my $background;
  my $num = 0;
  foreach(sort{$rs->{$a}->{CheckNum} cmp $rs->{$b}->{CheckNum}}keys(%$rs)){
    $num++;
    if($bgcolor == 1){
      $bgcolor = 0;
    }elsif($bgcolor == 0){
      $bgcolor = 1;
    }
    if ($bgcolor == 1) {
        $background = "lightgrey";
    }else {
        $background = "#FFFFFF";
    }
    open OUTPUT, ">output" . $num . ".png";
    my $newdata = $rs->{$_}->{Img};
    print OUTPUT $newdata;
    close OUTPUT;
    print "<tr><td bgcolor='$background'><a href='output" . $num . ".png' target='_blank'>$rs->{$_}->{CheckNum}</a></td></tr>";
  }

           
         

Keywords: Problem with Perl - How to get image …

	Title
1	Processing stderr
2	Overflow on Binary Access of Very L…
3	stderr
4	perl script openssl statement runs from…
5	Compress Datasets and Store As Bina…
6	MySQL Starter Kit

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

Problem with Perl - How to get image from sql database wrote to an external file?

Asked by linbayzak in Perl Programming Language

Tags: Perl, Internet Explorer 7, n/a

About this solution