('Client connected From '+Socket.RemoteHost) Procedure TForm1.ServerSocket1Accept(Sender: TObject ('Server Listening on '+inttostr(ServerSocket1.Port) ) Procedure TForm1.Button1Click(Sender: TObject) All i ask is i be given some credit for coding this my e-mail is Program Usage: To recieve Files sent by the client Procedure ServerSocket2ClientRead(Sender: TObject Procedure ServerSocket1ClientRead(Sender: TObject Procedure ServerSocket2Accept(Sender: TObject Procedure ServerSocket1Accept(Sender: TObject Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,ĭialogs, StdCtrls, ScktComp, ComCtrls, idglobal, ExtCtrls, ShellAPI

MessageDlg('Error: You are not connected', mtError,, 0) // Error Check above code won't work until the socket is connected If (TFileStream.Create(archivo, fmopenread))

Streamsize := TFileStream.Create(archivo, fmopenread) Ĭ('SIZE!' + Edit2.Text) The second source procedure TForm1.Button2Click(Sender: TObject) Ĭ('FILE!' + Edit1.Text) MessageDlg('Error: You are not connected', mtError, ,0) // Error Check above code won't work until the socket is connected above creates a stream and sends as a stream its in a if line because this is the only way it will automatically check the byte order and send the whole stream If (TFileStream.Create(OpenDialog1.FileName, fmopenRead)) then ('File Sent') Streamsize := TFileStream.Create(OpenDialog1.FileName, fmopenread) // Stream created just to Calculate sizeĬ('SIZE!'+Edit2.Text) // Sends filesize through primary socketĬlientSocket2.Open // ready to send file on second socket Sleep(2000) // Need to sleep so the other end has time to process the commands OpenDialog1.FilterIndex := 1 // Here you follow which index number from above you wantĮdit1.Text := ExtractFileName(OpenDialog1.FileName) // To send as filename afterĬ('FILE!'+Edit1.Text) OpenDialog1.Filter := 'All Files (*.*)' // you can add more choices by adding | and followed by description and (*.extension) The first source procedure TForm1.Button2Click(Sender: TObject) Hi I am sending a file via tsocket, I'm editing the first code to not use opendilalog but I want to use a string with the path of the file to send, the problem is that the second code that eh OpenDialog edited for not using shoot me an error saying the file to send is being used by another process.

Send file via socket delphi