[hylafax-users] invalid page size when sending to Hyla server

["Claude DEVISE" <C.DEVISE@wanadoo.fr>]

I am writing my own proc in delphi for sending faxes directly from an app. For now, i use WHFC via OLE, and all is fine. But i want to adjust some parameters on the fly,(# of tries, calls, priority, etc...) 
I wrote my own proc via an FTP client (ICS FTP Delphi component), and i do quote commands. 
All is fine, and PS file seems to be tranfrred on Hyla server, Hyla try to send it but doesn't perform it correctly :
Here is an excerpt of the log file :
Jul 12 11:11:40.37: [15338]: --> [2:OK]
Jul 12 11:11:40.37: [15338]: REMOTE CSI "CDI-HylaFax Server"
Jul 12 11:11:40.37: [15338]: <-- [9:AT+FRH=3\r]
Jul 12 11:11:40.39: [15338]: --> [7:CONNECT]
Jul 12 11:11:40.75: [15338]: --> [2:OK]
Jul 12 11:11:40.75: [15338]: REMOTE best rate 14400 bit/s
Jul 12 11:11:40.75: [15338]: REMOTE max page width 2432 pixels in 303 mm
Jul 12 11:11:40.75: [15338]: REMOTE max unlimited page length
Jul 12 11:11:40.75: [15338]: REMOTE best vres 7.7 line/mm
Jul 12 11:11:40.75: [15338]: REMOTE best format 2-D MR
Jul 12 11:11:40.75: [15338]: REMOTE best 0 ms/scanline
Jul 12 11:11:40.75: [15338]: USE 14400 bit/s
Jul 12 11:11:40.75: [15338]: USE 0 ms/scanline
Jul 12 11:11:40.75: [15338]: SEND file "docqcdm6114.ps;30"
Jul 12 11:11:40.76: [15338]: Modem does not support document page width, max pag
e width 2432 pixels, image width 1686 pixels
Jul 12 11:11:40.76: [15338]: <-- [9:AT+FTH=3\r]
Jul 12 11:11:40.96: [15338]: --> [7:CONNECT]
Jul 12 11:11:40.96: [15338]: <-- data [3]
Jul 12 11:11:40.96: [15338]: <-- data [2]
Jul 12 11:11:42.13: [15338]: --> [2:OK]
Jul 12 11:11:42.13: [15338]: <-- [5:ATH0\r]
Jul 12 11:11:42.37: [15338]: --> [2:OK]
Jul 12 11:11:42.37: [15338]: SESSION END    

This doc is correctly sent by WHFC. I think i make a mistake on the send proc, but where ?

Hre is the Delphi Code I use :
Procedure TF_SendFax.Do_SendFax;
begin
 with FTP do
 begin
  HostName  := 'faxdecor';
  UserName  := 'claude';
  Port := '4559';
  Connect;
  if Connected then Id_Msg.Caption := 'Connect�...';
  {LocalFileName est utilis� pour passer les commandes
   � FTP par QUOTE (voir RFC959)}
  LocalFileName := 'USER claude.devise';
  Quote;
  LocalFileName := 'ADMIN claude';
  Quote;
  HostDirName := '/tmp';
  HostFileName  := Id_FileName.Text;
  LocalFileName := Id_FileName.Text;
  {FTP transfer LocalFileName to Hylafax /tmp...}
  Put;
  LocalFileName := 'JNEW';
  Quote;
  LocalFileName :=  'JPARM FROMUSER '+ Ftp.UserName;
  Quote;
  LocalFileName := 'JPARM DOCUMENT '+ Id_FileName.Text;
  Quote;
  LocalFileName := 'JPARM DIALSTRING '+ Id_NoFax.Text;
  Quote;
  LocalFileName := 'jparm lasttime 004759';
  Quote;
  LocalFileName := 'jparm maxdials 1';
  Quote;
  LocalFileName := 'jparm maxtries 1';
  Quote;
  LocalFileName := 'jparm schedpri 127';
  Quote;
  LocalFileName := 'jparm notifyaddr claude@mailsrvr';
  Quote;
  LocalFileName := 'jparm vres 98';
  Quote;
  {
   Pb avec la largeur de page ????
   LocalFileName := 'jparm pagewidth 215';
   Quote;

  LocalFileName := 'jparm pagelength 279';
  Quote;
  LocalFileName := 'jparm pagechop default';
  Quote;
  LocalFileName := 'jparm chopthreshold 3';
  Quote;
 }
  LocalFileName := 'JSUBM';
  Quote;
  Quit;
 end;
end;

Thanks for your suggestions...

c.devise@wanadoo.fr




____________________ HylaFAX(tm) Users Mailing List _______________________
 To unsub: mail -s unsubscribe hylafax-users-request@hylafax.org < /dev/null