Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PHP ActiveX) Transfer a File using Sockets (TLS or non-TLS)Demonstrates how to two programs, one a socket writer and the other a socket reader, can transfer a file. The connection can be TLS or a regular non-encrypted TCP connection.
<?php // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // On the sending side, we'll load the file into a BinData object and send. // On the receiving side, we'll read from the socket connection into a BinData, and save to a file. // This example assumes the file is not crazy-large, and that the entire contents // can fit into memory. // (If the file is too large for memory, there are other ways to send. It just involves streaming or // sending the file chunk-by-chunk..) // This section of code is for the sender. // For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.BinData') $bdToSend = new COM("Chilkat.BinData"); $success = $bdToSend->LoadFile('somePath/someFile.dat'); // Assume success for the example... // For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.Socket') $sndSock = new COM("Chilkat.Socket"); $bUseTls = 1; $port = 5555; $maxWaitMs = 5000; $success = $sndSock->Connect('some_domain_or_ip.com',$port,$bUseTls,$maxWaitMs); // Assume success for the example... // Tell the receiver how many bytes are coming. $numBytes = $bdToSend->NumBytes; $bBigEndian = 1; $success = $sndSock->SendInt32($numBytes,$bBigEndian); // Send the file data (sends the entire contents of bdToSend). $success = $sndSock->SendBd($bdToSend,0,0); // Get an acknowledgement. $success = $sndSock->ReceiveInt32($bBigEndian); if ($success != 1) { print $sndSock->LastErrorText . "\n"; exit; } // Did the receiver get the correct number of bytes? if ($sndSock->ReceivedInt != $numBytes) { print 'The receiver did not acknowledge with the correct number of bytes.' . "\n"; exit; } print 'File sent!' . "\n"; // ------------------------------------------------------------------------------------ // The code below is for the receiving side (running on some other computer..) // For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.Socket') $listenSock = new COM("Chilkat.Socket"); $success = $listenSock->BindAndListen(5555,25); if ($success != 1) { print $listenSock->LastErrorText . "\n"; exit; } // Get the next incoming connection // Wait a maximum of 20 seconds (20000 millisec) // rcvSock is a Chilkat.Socket $rcvSock = $listenSock->AcceptNextConnection(20000); if ($listenSock->LastMethodSuccess == 0) { print $listenSock->LastErrorText . "\n"; exit; } // The sender will first send the big-endian integer for the number of bytes // that are forthcoming.. $success = $rcvSock->ReceiveInt32($bBigEndian); if ($success != 1) { print $rcvSock->LastErrorText . "\n"; exit; } $numBytesComing = $rcvSock->ReceivedInt; // Receive that many bytes.. // For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.BinData') $bdReceived = new COM("Chilkat.BinData"); $success = $rcvSock->ReceiveBdN($numBytesComing,$bdReceived); if ($success != 1) { print $rcvSock->LastErrorText . "\n"; exit; } // Acknowledge the sender by sending back the number of bytes we received. $success = $rcvSock->SendInt32($bdReceived->NumBytes,$bBigEndian); // Close the connection. $maxWaitMs = 20; $rcvSock->Close($maxWaitMs); // Save the received data to a file. $success = $bdReceived->WriteFile('somePath/someFile.dat'); // Assume success for the example... print 'File received!' . "\n"; ?> |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.