Poslední příspěvky

Stran: 1 [2] 3 4 ... 10
11
Firebird a Interbase / Re:LEFT JOIN - nemám riadky s null
« Poslední příspěvek od Delfin kdy 21-02-2018, 16:59:37 »
Citace
NULL je stav, nikoli hodnota
To viem. Pomocou = som iba opísal čo chcem.
Delfin: Tvoj variant nefunguje.
Protoze plati to, co napsal zdenek o where klauzuli, takze pokud IS NULL, tak ve where klauzuli:
Kód: SQL [Vybrat]
  1. WHERE
  2.   M.FKMETERTYPES = 16934 OR F.IDFLATS IS NULL;
  3.  

Jiste. Jsem ja to ale kus neceho co by mohlo ztoporit :)
12
Firebird a Interbase / Re:LEFT JOIN - nemám riadky s null
« Poslední příspěvek od vandrovnik kdy 21-02-2018, 16:58:27 »
Pro porovnávání včetně NULL se dá použít:
WHERE (xxx IS DISTINCT FROM yyy)  namísto <>
WHERE (xxx IS NOT DISTINCT FROM yyy) namísto =

KR
13
Firebird a Interbase / Re:LEFT JOIN - nemám riadky s null
« Poslední příspěvek od pf1957 kdy 21-02-2018, 16:57:58 »
Citace
NULL je stav, nikoli hodnota
To viem. Pomocou = som iba opísal čo chcem.
Delfin: Tvoj variant nefunguje.
Protoze plati to, co napsal zdenek o where klauzuli, takze pokud IS NULL, tak ve where klauzuli:
Kód: SQL [Vybrat]
  1. WHERE
  2.   M.FKMETERTYPES = 16934 OR F.IDFLATS IS NULL;
  3.  
14
Obecné / Re:Stream to ZIP
« Poslední příspěvek od Delfin kdy 21-02-2018, 16:57:13 »
Jinak, to cteni mas pomerne prekomplikovane (tusim ze to mas ze StackOverflow). Zase, nevim jak v Delphi XE3, ale v Tokyo muzes pouzit napr.:

Kód: Delphi [Vybrat]
  1. var
  2.   Zip: TZipFile;
  3.   Stream: TStream;
  4.   Header: TZipHeader;
  5. begin
  6.   Zip := TZipFile.Create;
  7.   try
  8.     Zip.Open('C:\MyZip.zip', zmRead);
  9.     Stream := TMemoryStream.Create;
  10.     try
  11.       Zip.Read('MyFile.abc', Stream, Header);
  12.       // ← tady mas Stream naplneny daty
  13.     finally
  14.       Stream.Free;
  15.     end;
  16.   finally
  17.     Zip.Free;
  18.   end;
  19. end;
15
Obecné / Re:Stream to ZIP
« Poslední příspěvek od Delfin kdy 21-02-2018, 16:48:14 »
Nevim jak v Delphi XE3, ale v Tokyo muzes pouzit metodu Add. Napr.:

Kód: Delphi [Vybrat]
  1. var
  2.   Zip: TZipFile;
  3.   Stream: TStream;
  4. begin
  5.   Stream := TMemoryStream.Create;
  6.   try
  7.     // ← predstirej ze je tady Stream naplneny daty
  8.     Zip := TZipFile.Create;
  9.     try
  10.       Zip.Open('C:\MyZip.zip', zmWrite);
  11.       Zip.Add(Stream, 'MyFile.abc');
  12.     finally
  13.       Zip.Free;
  14.     end;
  15.   finally
  16.     Stream.Free;
  17.   end;
  18. end;
16
Obecné / Stream to ZIP
« Poslední příspěvek od RM kdy 21-02-2018, 16:25:11 »
Dobrý den, prosím, poradíte?
Touto procedurou načítám ZIP soubor z disku a převedu ho na MemoryStream se kterým dále pracuji.
Kód: [Vybrat]
procedure TForm1.ZIPFileToPrintPreview(ZipFileDisk:String);
var
  ZipFile: TZipFile;
  DownloadedStream, DecompressionStream: TStream;
  PrintPrevStream:TMemoryStream;
  LocalHeader: TZipHeader;
begin
  DownloadedStream := TFileStream.Create(ZipFileDisk, fmOpenRead); 
  PrintPrevStream := TMemoryStream.Create;                         
  try
    ZipFile := TZipFile.Create;                             
    try
      ZipFile.Open(DownloadedStream, zmRead);             
      ZipFile.Read(0, DecompressionStream, LocalHeader); 
      try
        DecompressionStream.Seek(0,soFromBeginning);     
        PrintPrevStream.LoadFromStream(DecompressionStream);
...
...
...
      finally
        DecompressionStream.Free;
      end;
    finally
      ZipFile.Free;
    end;
  finally
    DownloadedStream.Free;
    PrintPrevStream.Free;
  end;
end;

Bohužel si marně lámu hlavu, jak udělat proceduru opačnou, tedy MemoryStream uložit do ZIPu.
Umím to udělat tak, že ten stream uložím na disk a pak kompresuji na ZIP, ale chtěl bych to udělat v paměti a uložit už jen ten výsledný ZIP soubor.
Mám Delphi XE3. Neporadíte někdo?
Děkuji.
17
Firebird a Interbase / Re:LEFT JOIN - nemám riadky s null
« Poslední příspěvek od Stanislav Hruška kdy 21-02-2018, 15:36:14 »
Citace
NULL je stav, nikoli hodnota
To viem. Pomocou = som iba opísal čo chcem.
Delfin: Tvoj variant nefunguje.
18
Firebird a Interbase / Re:LEFT JOIN - nemám riadky s null
« Poslední příspěvek od Delfin kdy 21-02-2018, 15:04:40 »
NULL je stav, nikoli hodnota a je pro nej treba treba psat ve vyrazech podminku IS (ne =). Cili zahrnuti podminky tohoto stavu by mohlo prinest ovoce (nebo ten vytouzeny zaznam):

Kód: MySQL [Vybrat]
  1.   F.IDFLATS, M.FKFLATS
  2.   FLAT_VIEW F
  3.   METERS M ON (F.IDFLATS = M.FKFLATS OR M.FKFLATS IS NULL)
  4.   M.FKMETERTYPES = 16934
19
Obecné / Re:Přechod na Delphi 10 z delphi 2010 jde načíst reporty RaveReportu?
« Poslední příspěvek od Stanislav Hruška kdy 21-02-2018, 11:06:10 »
Pokiaľ tých zostáv nemáš extrémne množstvo (neviem koľko to je ;) ), tak to odporúčam ručne prehodiť do FastReport. Je to nebo a zem.
20
Firebird a Interbase / Re:LEFT JOIN - nemám riadky s null
« Poslední příspěvek od Stanislav Hruška kdy 21-02-2018, 10:59:04 »
Vrelá vďaka :)
Stran: 1 [2] 3 4 ... 10