Código Delphi [-]
var
 R: TRect;
begin

 if (gdSelected in State)and(ACol=1) Then
   with ComboBox1 do
    begin
     ComboBox1.Visible := True;
     ComboBox1.ItemIndex := -1;
     BringToFront;
     CopyRect(R, Rect);
     R.TopLeft :=     Form1.ScreenToClient(StringGrid1.ClientToScreen(R.TopLeft));
     R.BottomRight := Form1.ScreenToClient(StringGrid1.ClientToScreen(R.BottomRight));
     SetBounds(R.Left, R.Top, R.Right-R.Left, R.Bottom-R.Top);
     ComboBox1.SetFocus;
    end;
 if ACol <> 1 Then
  Begin
   ComboBox1.Visible := False;
  end;

Código Delphi [-]
TForm1.Create(Self)

Código SQL [-]
CREATE TABLE CILINDROS (
    ID_CILINDRO  INTEGER NOT NULL,
    DESCRIPCION  VARCHAR(30),
    TIPOGAS      VARCHAR(10),
    CAPACIDAD    VARCHAR(5),
    PROPIETARIO  INTEGER,
    OBSCILINDRO  VARCHAR(30)
);
ALTER TABLE CILINDROS ADD PRIMARY KEY (ID_CILINDRO);
ALTER TABLE CILINDROS ADD FOREIGN KEY (PROPIETARIO) REFERENCES CLIEPROV (ID_CLIENTE) ON DELETE NO ACTION ON UPDATE CASCADE;

Código SQL [-]
CREATE TABLE CLIEPROV (
    ID_CLIENTE  INTEGER NOT NULL,
    RUC         VARCHAR(11),
    NOMBRE      VARCHAR(50) NOT NULL COLLATE ES_ES,
    DIRECCION   VARCHAR(50),
    DISTCLIE    INTEGER,
    PROVINCIA   VARCHAR(30),
    EMAIL       VARCHAR(30),
    WEB         VARCHAR(30),
    CONTACTO    VARCHAR(50),
    TIPO        INTEGER NOT NULL,
    NOMMAYUS    VARCHAR(50) COLLATE ES_ES
);
ALTER TABLE CLIEPROV ADD PRIMARY KEY (ID_CLIENTE);
ALTER TABLE CLIEPROV ADD FOREIGN KEY (DISTCLIE) REFERENCES DISTRITOS (ID_DISTRITO) ON DELETE SET DEFAULT ON UPDATE CASCADE;
CREATE INDEX IDXNOMMAYUS ON CLIEPROV (NOMMAYUS);
CREATE INDEX IDXRUC ON CLIEPROV (RUC);

Código SQL [-]
SELECT MC.FECHADOC,CI.TIPOGAS,CI.DESCRIPCION,CI.CAPACIDAD, MC.SERIE,MC.DOCUMENTO,
       DC.PLAZO,CP1.ID_CLIENTE,CP1.NOMBRE, CP1.TIPO,DC.LUGAR,DC.FECHADEV,DC.DOCDEV,CP2.ID_CLIENTE, CP2.NOMBRE,CP2.TIPO 
FROM MOVCILINDROS MC 
inner join DETALLECIL DC ON MC.id_mov =DC.movcil 
INNER JOIN cilindros CI ON CI.id_cilindro=DC.cil 
INNER JOIN clieprov CP1 ON MC.nomdestino=CP1.id_cliente 
INNER JOIN clieprov CP2 ON CI.propietario =CP2.id_cliente;

Código SQL [-]
PLAN JOIN (CP1 NATURAL, MC INDEX (RDB$FOREIGN5), DC INDEX (RDB$FOREIGN12), CI INDEX (RDB$PRIMARY1), CP2 INDEX (RDB$PRIMARY2))

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  D: TDateTime;
begin
  with JvSearchFiles do
  begin
    RootDirectory := ExtractFilePath(Application.ExeName) + '\Logs';
    D := EncodeDateTime(2011, 12, 5, 21, 30, 0, 0);
    MFiles.Lines.Add('Searching files modified after ' + DateTimeToStr(D));
    FileParams.SearchTypes := FileParams.SearchTypes + [stLastChangeAfter];
    FileParams.LastChangeAfter := D;
    Search;
  end;
end;

procedure TForm1.JvSearchFilesFindFile(Sender: TObject; const AName: string);
var
  S: String;
begin
  with JvSearchFiles do
  begin
    S := S + AName;
    S := S + '      Modified Time: ' + DateTimeToStr
      (FileTimeToDateTime(FindData.ftLastWriteTime));
    S := S + '      Creation Time: ' + DateTimeToStr
      (FileTimeToDateTime(FindData.ftCreationTime));
  end;
  MFiles.Lines.Add(S);
end;

Código Delphi [-]
procedure TJvSearchParams.SetLastChangeAfter(const Value: TDateTime);
var
  DosFileTime: Longint;
  LocalFileTime: TFileTime;
begin
  { Value must be >= 1-1-1980 }
  DosFileTime := DateTimeToDosDateTime(Value);
  if not Windows.DosDateTimeToFileTime(LongRec(DosFileTime).Hi,
    LongRec(DosFileTime).Lo, LocalFileTime) or
    not Windows.LocalFileTimeToFileTime(LocalFileTime, FLastChangeAfterFT) then
    RaiseLastOSError;

  FLastChangeAfter := Value;
end;

function TJvSearchParams.Check(const AFindData: TWin32FindData): Boolean;
begin
    ...
   
    if stLastChangeAfter in FSearchTypes then
      if CompareFileTime(ftLastWriteTime, FLastChangeAfterFT) < 0 then
        Exit;
    ...
end;

Archivos Adjuntos

JvSearchFiles Test.rar (14,0 KB)

Código Delphi [-]
procedure Tdm.zqrecepcionesNewRecord(DataSet: TDataSet);
begin
  dm.zqrecepcionesfecha.AsDateTime := now();
end;

Código Delphi [-]
zqrecepciones.Append;

Código Delphi [-]
Select COMPRAS.*
From COMPRAS AS COMP
Where 
COMPRAS.NUMFAC =:REFER

Código Delphi [-]
Select COMPRAS.*, CAT_ART.* //Aqui agrego la otra tabla
From COMPRAS AS COMP
JOIN CAT_ART ON COMP.NOM_PRO=CAT_ART.NOM_PRO //Aqui es donde agrego el enlace
Where 
COMPRAS.NUMFAC =:REFER

Código SQL [-]
INSERT INTO existe_destino VALUES (1, 109.00, '$91.00');

Código SQL [-]
INSERT INTO existe_destino VALUES (1, 109.00, '€91,00');

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,UnitDownload, ComCtrls, StdCtrls,Contnrs;

  type TTransferFile = class
    private
        procedure IndyInAThreadComplete(sender: TObject);
    public
     ProgressBar   : TProgressBar;
     ListView      : TListView;
     Item          : TListItem;
     Url           : string;
     Filename      : string;
     TempFilename  : string;
     Path          : string;
     UniqueID      : Integer;
     TotalFileSize: int64; // use 0 if unknown
     BytesPreviouslyDownloaded: int64; // eg. if resuming
     BytesDownloaded: int64;
     //State: TDownloadStateForImages; //para las imagenes
     IndyInAThread: TIndyInAThread;    //variable del thread
     constructor create (URL_ :string; Listview_ : TListView; unique_ID:integer);
     procedure addToView;
     procedure transferfile;
     //procedure UpdateDatos;
  end;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    fNextUniqueID: integer;
    { Private declarations }
  public
    { Public declarations }
    DownloadList : TObjectList;
    function GetNextUniqueID: integer;
    function IndexOfDownloadableFile(UniqueID_: integer): integer; // returns the index of the downloadable file that matches this uniqueid
     Procedure HTTPClientDownloadBeginWork(var Msg:TMessage);Message WM_HTTPClientDownloadBeginWork;

  end;
 type TDownloadfile = class (TObject)
    private
    public
     Url           : string;
     UniqueID      : Integer;
    constructor create (URL_ :string;  uniqueID_:integer);
   end;

var
  Form1: TForm1;

implementation

 constructor TDownloadFIle.create (URL_ :string;  uniqueID_:integer);
    begin
        inherited Create;
        URL := URL_;
        UniqueID := UniqueID_;
        //State := si_Blank;

    end;

    constructor TTransferFile.create (URL_ :string; Listview_ : TListView; unique_ID:integer);
    begin
        inherited Create;
        URL := URL_;
        Listview := Listview_;
        UniqueID := Unique_ID;
        ProgressBar := TProgressBar.Create(nil);

        //State := si_Blank;

    end;
     procedure TTransferFile.IndyInAThreadComplete(sender: TObject);
  begin
      if (Sender = IndyInAThread) then
        IndyInAThread := nil;
  end;

  function Tform1.GetNextUniqueID: integer;
    begin
        result := fNextUniqueID;//obtenemos un ID por cada thread
        inc(fNextUniqueID);
    end;

function TForm1.IndexOfDownloadableFile(UniqueID_: integer): integer;
    var
        i: integer;
    begin
        result := -1;
        i := 0;
        while ( (result = -1) and (i < Downloadlist.Count) ) do
        begin
            if TDownloadFile(DownloadList[i]).UniqueID = UniqueID_ then
              result := i
            else
              inc(i);
        end;
    end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
DownloadList:=TObjectList.Create;
fNextUniqueID:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  newlistitem : TListItem;
  enlace :string;
  download : TDownloadfile;
  transferfile : TTransferfile;
  i: Integer;

begin
   enlace := 'http://www.rtve.es/resources/TE_SAMARE/mp4/6/0/1334332703906.mp4';
   download :=TDownloadfile.create(enlace,GetNextUniqueID);
   DownloadList.Add(download);
   Transferfile:= TTransferFile.create(TDownloadfile(DownloadList[0]).Url,ListView1,TDownloadfile(DownloadList[0]).UniqueID);
   transferfile.addToView;
   transferfile.transferfile;
   end;

procedure TTransferFile.addToView;
var
  RectProg: TRect;
begin
item := ListView.items.add;
item.Caption := Url;
Item.SubItems.Add('');
Item.SubItems.Add('');


//if es_descarga then Item.ImageIndex := 9
//else Item.ImageIndex := 10;

Item.Data := self;
RectProg := Item.DisplayRect(drBounds);
RectProg.Left := RectProg.Left + ListView.Columns[0].Width;
RectProg.Right := RectProg.Left + ListView.Columns[1].Width;
ProgressBar.BoundsRect := RectProg;
progressBar.Parent := ListView;

end;
Procedure Tform1.HTTPClientDownloadBeginWork(var Msg:TMessage);
    var
        uniqueid_: integer;
        totalbytes_: integer;
        i: integer;
    begin
        uniqueid_ := Msg.wparam;
        totalbytes_ := Msg.LParam;

        i := IndexOfDownloadableFile(uniqueid_);
        if i <> -1 then
        begin

           //ShowMessage(IntToStr(totalbytes_));
           TTransferFile(DownloadList[i]).BytesDownloaded := TTransferFile(DownloadList[i]).BytesPreviouslyDownloaded;
           TTransferFile(DownloadList[i]).TotalFileSize := TTransferFile(DownloadList[i]).BytesPreviouslyDownloaded + totalbytes_;
           //TDownloadFile(DownloadaList[i]).State := si_Downloading_Animation1;
           TTransferFile(DownloadList[i]).ProgressBar.Position := 0;
           TTransferFile(DownloadList[i]).ProgressBar.Max := TTransferFile(DownloadList[i]).TotalFileSize; aquí falla
           //ListviewTransfer.Repaint;

        end;
    end;



    procedure TTransferfile.transferfile;
begin
  Self.BytesPreviouslyDownloaded:=0;
  IndyInAThread := TIndyInAThread.Create(Self.Url,'c:\prueba.mp4',false,8080,'127.0.0.1',Self.UniqueID,form1.handle,Ind  yInAThreadComplete);
  ShowMessage(Self.Url);
end;



end.