Send Parallel

[Jazireh]

can someone show me how i can send the file in parallel to more than one mobile per time without having to wait the receiver to accept or reject the message which was sent to them???
pls help

[Mike Petrichenko]

You can do it easy with using threads. One thread per connection.

[Jazireh]

hi ,
how i do it? i used multi thread program for each connection , but it didn't work currectly, would you give  me more example or code or explain more Please ?

[Mike Petrichenko]

Code: [Select]

type
  TMyThread = class(TThread)
  private
    FAddress: string;
    FFile: string;
  protected
    procedure Execute; override;
  public
    constructor Create(Address: string; AFile: string);
  end;

constructor TMyThread.Create(Address: string; AFile: string);
begin
  FreeOnTerminate := True;
  FAddress := Address;
  FFile := AFile;
  inherited Create(False);
end;

procedure TMyThread.Execute;
var
  Sender: TBFObjectPushClient;
begin
  Sender := TBFObjectPushClient.Create(nil);
  try
    Sender.BluetoothTransport.Address := FAddress;
    Sender.Transport := atBuetooth;
    try
      Sender.Open;
      try
        Sender.Put(FFile);
      except
         // Unable send file
      end;
      Sender.Close;
    except
       // Catch errors here. Unable connect
    end;
  finally
    Sender.Free;
  end;
end;

[Jazireh]

Thanks a much Mike ,