Online 320 uživatelů Přihlášení | Registrace | Zaslat heslo | Prohlížení bez přihlášení

 

1 / 48
YODA   23:19:16 03.01.2018
Zdravím,

nahodou nekdo s Delphi a zkušenostma s fungujícím POST na tu NetHTTPRequest komponentu. Za boha mi nejde udělat POST JSON Objectu, na serveru mi to stále hlásí že posílám GET atd.

Zjednodušené volání ...

NetHTTPRequest.Post(url, TStringStream.Create(request.ToString, TEncoding.UTF8));


request je korektní JSOBObject

?
OROPHER   20:57:28 08.05.2013
dobry vecer. prosim, nekdo zkuseny, kouknete se na PŘÍSPĚVEK
JERRY15   11:56:14 22.03.2013
PEPAK [ 15:33:38 21.03.2013 ]: V podstatě jo. Potřebuju otevřít pokladní zásuvku. Už jsem to předělal na výběr tiskáren z comba a ano posílám to rovnou na tiskárnu.Jen jsem prostě nechtěl předělávat starou funkcionalitu, protože ani netuším proč tam je :2) :2)
PEPAK   15:33:38 21.03.2013
JERRY15 [ 14:59:21 21.03.2013 ]: A jsi si jistý, že opravdu chceš "dozvědět se port a z něj odvodit tiskárnu"? Není náhodou tvůj problém o tom, že chceš na uživatelem vybranou tiskárnu poslat nějaký konkrétní (binární) řetězec? Protože to by přesně odpovídalo tomu, co jsem psal o přístupu Windows - tebe nemají co zajímat porty, ty si máš říct Windows, aby pro tebe něco udělaly se zařízením XY, bez ohledu na to, na jakém portu to zařízení je. Zrovna poslání binárního řetězce na tiskárnu jde docela snadno, aniž by člověk musel vědět cokoliv o tom, k čemu a jak je ta tiskárna připojená...
JERRY15   14:59:21 21.03.2013
PEPAK [ 14:41:24 21.03.2013 ]: Zkusím no. Jinak to má historické hledisko - nechci hrabat do "funkčního kódu" po bývalém kolegovi. Jen ho potřebuju rozšířit o USB porty :/
PEPAK   14:41:24 21.03.2013
Zeptej se možná radši tady: http://forum.delphi.cz
Tady to moc nežije.

Když si zítra vzpomenu, tak bych tomu snad pár minut věnovat mohl. Ale spíš bych si tipnul, že to bude potřebovat nějaký ošklivý hack (protože Windows řady NT staví odjakživa na oddělení programu od hardwaru, a za těchto okolností je velká otázka, proč by aplikaci mělo zajímat, jaký port tiskárna používá. Aplikace by měla fungovat tak, že si od uživatele nechá určit tiskárnu a pak s touto tiskárnou pracuje, ne tak, že se bude zabývat nějakými porty...)
JERRY15   14:33:58 21.03.2013
Nesetkal jste se někdo s tímto problémem?

Potřeboval bych na základě vybraného portu (EnumPorts) zjistit, zda je na něm připojena tiskárna a pokud ano, tak její název.
SAMUELSUMEC   21:52:58 16.04.2011
zdravim opat stale s tim istym problemom

PEPAK [ 07:26:37 06.04.2011 ]:
sorry kamo jak som ta rozculil svojim prispevkom, ale neni to tak ako to vizera. delfina sme sa v skole zacali ucit len teraz nedavno, mame 1,5 h za dva tyzdne, z toho nam uz 4x odpadlo. ucime sa to sposobom ze z dataprojektoru kde vidime jej priklad opiseme a potom chodi a skuma preco nam to nejde, to je asi cele. a teraz aby nas pustila k maturite jej mame toto zbuchat. tak preto vas prosim o radu.

nasiel som v skole cosi taketo, len skoda ze som nikdy nekreslil :2)

Príklad 27: Zadajte v editu s Updownom číslo z intervalu 0..10. Na formulár nakreslite toľko sústredných kružníc.

Riešenie: Vytvoríme reakciu na udalosť OnCreate formulára a v tele tejto procedúry zavoláme procedúru    Randomize.
Ďalej zapíšeme reakciu na stlačenie tlačidla.
          procedure TForm1.Button1Click(Sender: TObject);
          var p,n,i:integer;                          n...počet kružníc, p  horná medza cyklu
          begin
              Canvas.Brush.Style:=bsSolid;
              Canvas.Brush.Color:=Form1.Color;
              Canvas.Pen.Color:=Form1.Color;
              Canvas.Rectangle(80,80,280,280);
              Canvas.Brush.Style:=bsClear;
              Canvas.Pen.Color:=clGreen;
              n:=UpDown1.Position;
              for p:=n downto 1 do
                begin
                      Canvas.Ellipse(180-p*10,180-p*10,180+p*10,180+p*10);
                      for i:=1 to 10000000 do;
                  end;
              end;
co tam mam zmenit aby mi to robilo to co mam vo svojom zadani, tu to kresli kruhy, ja potrebujem obdlzniky, v pomere 3:2 :1)
ZEROFUSION   07:41:47 06.04.2011
PEPAK [ 07:26:37 06.04.2011 ]: :THUMBS UP:
PEPAK   07:26:37 06.04.2011
Tak nevím, co mě irituje víc:

1) lidi, kteří jsou líní plnit svoje studijní povinnosti, nebo
2) lidi, kteří jsou neschopní plnit svoje studijní povinnosti.

Obojí ve variantě "zadarmo" nebo "placeně" (taky nevím, co je horší), ve výsledku je to ovšem to samé - dříve nebo později takový člověk nastoupí do vaší firmy a vy budete muset jeho práci dělat za něj.

SAMUELSUMEC [ 21:21:52 05.04.2011 ]: Co už jsi vyzkoušel a co konkrétně ti na tom nefunguje?

Btw., jak tak na to koukám, je to program, ve kterém budeš muset vlastními silami napsat šest příkazů (sedm, pokud budeš chtít inicializovat náhodný generátor pookaždé na jinou hodnotu; osm, pokud to Memo1 budeš chtít napřed smazat).
SAMUELSUMEC   21:21:52 05.04.2011
zdravim vas pani a dami... vedeli by ste mi pomôcť s nasledujúcim programom?

Zadajte v editu s Updownon číslo a z intervalu 0....10. Na formulár nakreslite a obdĺžnikov so stranami v pomere 3:2.
Do Mema1 vypíšte: Stredy obĺžnikov [x, y]
                                  Súradnice rohov najväčšieho obdĺžnika sú:  [x1, y1], [x2, y2], [x3, y3], [x4, y4]

v mojich silách to vytvoriť neni, tak vás tímto prosím o pomoc :4) dakujem vopred
PERVEREZ   17:19:43 27.01.2010
Zapomněl jsem dodat, že používám české Windows...
PERVEREZ   16:28:07 27.01.2010
Nastavení SystemLocale bylo první, co jsem zkoušel, má vliv na menu apod., ale nemá vliv na rozdílné ukládání DFM souborů. Chyba se projevuje nejenom v běžícím programu, ale přímo v GDI.
XOFT   15:34:15 27.01.2010
PERVEREZ [ 13:55:15 27.01.2010 ]: Tipuju, ze nejde ani tak o nekompatibilitu s OS, jako o fakt, ze D7 (pokud vim) nepodporuji Unicode. Takze zavisi na tom, jake systemove locale pro non-Unicode aplikace je nastavene (screenshot je z WinVista):
IMG:http://xoft.cz/img/vista_locale.png
PERVEREZ   13:55:15 27.01.2010
Ahoj, chtěl bych se zeptat, jestli nemáte někdo zkošenost s kompatibilitou Delphi7 s Windows7. Mám vytvořené formuláře z verze Delphi7 ve Windows Vista (a nižších verzí OS), pokud ale formulář otevřu v Delphi7 ve Windows7, tak jsou špatně některé české znaky, např. znak "ě" se do DFM ve Windows Vista ukládá jako #283, ale ve Windows7 se ukládá jako #238, což způsobuje nekompatibilitu jak při vývoji na různých OS, tak i při provozování hotových programů na různých OS. Děkuji za odpověď.
PEPAK   09:49:35 15.01.2010
Naštěstí se ukazuje, že JCL implementace PCRE je pro moje potřeby nepoužitelná, takže to nakonec zřejmě ani nebudu muset řešit.
PEPAK   09:47:36 15.01.2010
XOFT [ 09:38:48 15.01.2010 ]: Vadí, protože už jednu verzi JCL v jednom projektu používám a teď do dalšího projektu potřebuju další verzi JCL.
XOFT   09:38:48 15.01.2010
PEPAK [ 08:21:23 15.01.2010 ]: <ot> A musis to separovat? Dyt' to nakonec nicemu zvlast' nevadi, linker nepotrebne veci vyeliminuje ve vyslednem exe a pokud nemas rad plnou component palette, tak si vsechny ostatni komponenty JCL proste schovas. </ot>
PEPAK   08:21:23 15.01.2010
Je nějaký doporučený způsob, jak z JCL (Jedi Component Library) vyseparovat zvolenou unitu? Připadá mi hloupé kvůli jedné unitě, kterou potřebuju, instalovat celý JCL. Podotýkám, že nehledám "nějaký způsob" (ten mám), ale "doporučený způsob, pokud existuje".
QUENDULUIN   11:04:57 07.12.2009
Tak mi stačilo přidat do kódu Image1.Picture.Bitmap.Width := atd. a totéž s výškou, a funguje to. Žádné další překreslování jsem nedělal. Stejně asi až si s tím budu hrát dál, tak zkusím, jestli by se nedalo použít něco jako TMetafileCanvas a ukládat obrázek do vektorového souboru... :)
1 / 48

Prodej a vykup aut