Home > binary  [1 example]

Setting transfer type to Binary.

 Examples

SET SERVEROUTPUT ON SIZE 1000000;
DECLARE
  fid VARCHAR2(80);
  host VARCHAR2(80)   := '[replace with ftp address]';
  usernm VARCHAR2(80) := '[replace with ftp username]';
  passwd VARCHAR2(80) := '[replace with ftp password]';
BEGIN
  fid := fclient_p.createFTPClient;
  fclient_p.login(fid, host, usernm, passwd);

  fclient_p.representationType(fid, fclient_p.getIMAGE_TYPE);
  IF fclient_p.getLastResponseReturnCode(fid) = '200' THEN
    DBMS_OUTPUT.PUT_LINE('Successfully BINARY Setting');
  ELSE
    DBMS_OUTPUT.PUT_LINE(SUBSTR('Failed to set BINARY, Reason :'||REPLACE(fclient_p.getLastResponse(fid), CHR(10)), 1, 255));
  END IF;

  fclient_p.storeStream(fid, '/home/tester/testclasses2.jar', 'c:\winnt\notepad.exe');
  fclient_p.logout(fid);
  fclient_p.remove(fid);
EXCEPTION
  WHEN fclient_p.java_failed THEN
    DBMS_OUTPUT.PUT_LINE(SUBSTR(fclient_p.getErrorWithResponse(fid), 1, 255));
END;
/

If you need to check if representationType is successful add the following snippet of code immediately after the call to representationType: IF fclient_p.getLastResponseReturnCode(fid) = '200' THEN DBMS_OUTPUT.PUT_LINE('Successfully Binary Setting'); ELSE DBMS_OUTPUT.PUT_LINE(SUBSTR('Failed to set Binary, Reason :'||REPLACE(fclient_p.getLastResponse(fid), CHR(10)), 1, 255)); END IF;

 Related Commands
 ascii
 form
 tenex
 type
 
© 1999-2003 Bear Claw Inc.