unit uObexFM;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, VaClasses,
  VaComm, ExtCtrls, ComCtrls, ufrmProgress,
  PngImageList, DropSource, DragDropFile, DragDrop, DropTarget,
  SkinCtrls, SkinBoxCtrls, ImgList, DynamicSkinForm, spSkinShellCtrls;
type
  TfrmOBEXFM = class(TFrame)
    VaComm1: TVaComm;
    PngImageList1: TPngImageList;

    DropFileTarget1: TDropFileTarget;
    DropFileSource1: TDropFileSource;
    ListView1: TspSkinListView;
    Panel1: TPanel;
    spSkinFrame1: TspSkinFrame;
    spSkinScrollBar1: TspSkinScrollBar;
    spSkinScrollBar2: TspSkinScrollBar;
    spSkinPanel1: TspSkinPanel;
    SaveDialog1: TspSkinSaveDialog;
    OpenDialog1: TspSkinOpenDialog;
    procedure AdvGlowButton1Click(Sender: TObject);
    procedure AdvGlowButton2Click(Sender: TObject);
    procedure AdvGlowButton3Click(Sender: TObject);
    procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);
    procedure ListView1DblClick(Sender: TObject);
    procedure DropFileTarget1Drop(Sender: TObject; ShiftState: TShiftState;
      APoint: TPoint; var Effect: Integer);
    procedure DropFileSource1Drop(Sender: TObject; DragType: TDragType;
      var ContinueDrop: Boolean);
    procedure ListView1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ListView1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    function OBEX_SendCommand(AVal: integer; AfrmProgress: TfrmProgress): Boolean;
    function ReadPacketSign(var Sign: byte): Word;
    procedure ReadBlock(Count: word);
  public
    { Public declarations }
    procedure _NotifyEvent(MonitorStatus: Boolean; Devices: String); // Notifier callback procedure
    procedure PrepareOBex;
    procedure UnPrepareObex;
    function OBEX_OpenPort: boolean;
    function OBEX_Connect: boolean;
    function OBEX_Disconnect: boolean;
    procedure GetFolderContent;
    procedure SetPath(s: ShortString);
    procedure OBEX_GoTo_Parent;
    procedure OBEX_GoTo_Root;
    procedure OBEX_DownLoadFile;
    procedure OBEX_DeleteFile;
    procedure OBEX_UploadFile;
    procedure ClearElements;
    procedure droptophone;
    procedure dropfromphone;
  end;
var
  XML_Data:    TStringList;
  frmOBEXFM: TfrmOBEXFM;
  //TimeOut:     Integer;           // Phone I/O time out
  DL_File:     file of byte;      // Current UL/DL file (@ computer)
  xCurentDir: integer = 0; {0 - home, 1..n - no home}
  
implementation
uses uObex, uComPortsNotifier, uMain, ufmP2KFileManager, uSpecialUtils,
  uAT, up2kapi, uLng;
{$R *.dfm}