Poslední příspěvky

Stran: [1] 2 3 ... 10
2
Obecné / 10.3 Release 3 je dostupný
« Poslední příspěvek od Radek Červinka kdy 21-11-2019, 11:58:06 »
3
Obecné / Re:Image a načtení obrázku z internetu a zmenšení
« Poslední příspěvek od < z > kdy 20-11-2019, 17:39:46 »
Kony, vážně ti nevadí, že si obrázek stáhuješ do stringu?
Zkus se podívat na
idHTTP1.Get('url', memStream)
4
Obecné / Re:Image a načtení obrázku z internetu a zmenšení
« Poslední příspěvek od pepak kdy 20-11-2019, 07:44:14 »
Tak to hlavně nepoužívej pro Delphi 2009+.
5
Obecné / Re:Image a načtení obrázku z internetu a zmenšení
« Poslední příspěvek od Kony kdy 19-11-2019, 21:58:14 »
našel jsem toto a je funkcni :

uses ..., jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
  strStream: String;
  memStream: TMemoryStream;
  jpegimg: TJPEGImage;
begin
  try
    strStream := idhttp1.Get ('http://www.delphipages.com/images/backplain.jpg');
  except
    ShowMessage('Image was not found');
    Exit;
  end;
  memStream := TMemoryStream.Create;
  jpegimg   := TJPEGImage.Create;
  try
    memStream.Write(strStream[1], Length(strStream));
    memStream.Position := 0;
    jpegimg.LoadFromStream(memStream);
    Image1.Picture.Assign(jpegimg);
  finally
    memStream.Free;
    jpegimg.Free;
  end;
end;
6
Obecné / Re:Image a načtení obrázku z internetu a zmenšení
« Poslední příspěvek od Jirka kdy 19-11-2019, 21:47:17 »
Ve zkratce
Pro stažení použít Synapsi - příklad je zde  https://delphi.cz/post/Download-upload-HTTP-Synapse-Delphi.aspx
a u TImage použít vlastnost Stretch
7
Obecné / Image a načtení obrázku z internetu a zmenšení
« Poslední příspěvek od Kony kdy 19-11-2019, 19:59:32 »
Ahoj, je nějaká možnost vložit do TImage obrázek přímo z internetu když znám internetový odkaz a potom aby se obrázek zmenšil a nebo zvětšil dle velikosti okna Timage ? ve většině se bude jednat o jpg
8
Obecné / Re:Získať premennú - neviem, lebo vytvorím kruhový odkaz
« Poslední příspěvek od Stanislav Hruška kdy 19-11-2019, 12:09:37 »
Už som to vyriešil. Ale ak to budem potrebovať, tak si na to snáď spomeniem :)
Minimálne by som to mohol využiť na presunutie definície FForm do koreňového predka.
9
Obecné / Re:Získať premennú - neviem, lebo vytvorím kruhový odkaz
« Poslední příspěvek od starous kdy 19-11-2019, 09:25:11 »
V tom případě si přesuň "uses subMonthDeposit" z interface do implementation
To by som rád, ale mám tam
Kód: [Vybrat]
type
  TDepositState = class(TVstTableData)
    FForm: TfrmsubMonthDeposit;
To som predtým nezverejnil. Preto sa neviem zbaviť kruhového odkazu.

Nahraď to zápisem:
Kód: [Vybrat]
type
  TDepositState = class(TVstTableData)
    FForm: TForm;

Při použití to pak přetypuješ na správný typ:
Kód: [Vybrat]
var
  SubForm : TfrmsubMonthDeposit;
begin
   SubForm:= FForm as TfrmsubMonthDeposit;
   ...
end;
10
Obecné / Re:ClientDatset insert field
« Poslední příspěvek od IBAG2008 kdy 19-11-2019, 08:30:43 »
Tak jsem to nakonec udělal přes ten insert, nějak mi to předtím nechtělo fungovat, ale takhle je to již ok.

Kód: Delphi [Vybrat]
  1. ClientDataSet1.FieldDefs.Assign(QueryPracovniCyklus.FieldDefs);
  2. ClientDataSet1.FieldDefs.Insert(0);
  3. with ClientDataSet1.FieldDefs[0] do
  4. begin
  5.     DataType := ftInteger;
  6.     Name := 'CHECKED_RECORD';
  7. end;
  8. ClientDataSet1.CreateDataSet;

Ahoj Zdeněk
Stran: [1] 2 3 ... 10