Kylix/Pascal

Delphi/Kylix + Android + OpenGL

Fórumok

Udv Nektek!

Van Valakinek tapasztalata Delphi rendszerben AndroidOS ala Opengl alkalmazas fejlesztesben? Csak egy egyszeru vonal, vagy pont rajzolo rutinra gondolok.

Sokat olvasgattam a neten, de egy egyszeru, konkret fejlesztoi kornyezetet, vagy forrast nem talaltam, ami pascal nyelven ertoknek is hasznara valna... Persze lehet, hogy csak rossz helyen kerestem.

Minden segitseg jol jonne ebben a temaban.
Elore is koszy Mindent,Mindenkinek!

Delphi XE3 + mysql dátumkezelés fail

Fórumok

Sziasztok!

Már többször is kisegített a Hup társadalom a slamasztikából, remélem most is így lesz.

Adva van egy kis adatbázis, egy Delphi XE3-ban fejlesztendő kis program, illetve egy AIX-Linux admin, aki valaha delphizett és nosztalgiázni támadt kedve.

Firedac komponenssel kezeli a mysql adatbázist a kis program, és szeretném egy gombnyomással lekérdezni egy adott időintervallum között felvett szerszámok listáját a 'szerszam' táblából, amit aztán szeretném megjeleníteni egy dbgrid-be, de az istenért nem hajlandó firedac-al lefutni a query, ami nem lenne más mint:

form3.query1.sql.Clear;
form3.Query1.SQL.Add('select * from szerszam where datum BETWEEN '''+datetostr(dtp1.datetime)+''' and '''+datetostr(dtp2.datetime)+''' ' );
form3.Query1.Open;

(a dtp1 és dtp2 DateTimePicker komponensek)

Kiszedtem belőle, hogy mit akar futtatni szövegként, amit ha lefuttatok konzolból, vagy phpmyadminból, akkor megkapom az eredményt, de a dbgridbe csak olyan rekordokat kapok vissza, ahol szándékosan nem lett megadva a datum mezőbe semmi.

"SELECT * FROM szerszam where datum between '2007-01-01' and '2016-12-29'"

Arra jutottam, hogy a firedac semmilyen dátummal kapcsolatos műveletet nem hajlandó végrehajtani, se insert into, se update, se select.
Valaki találkozott hasonlóval? E programnak az elődje Delphi 2007-ben lett megírva, ott minden tökéletesen működik, de itt sehogy sem akar menni.

Köszi előre is!

Megoldva: Köszönöm a válaszokat, végül megtaláltam mi a megoldást, ami FormatDateTime nevű jóság. Hogy nyalnám meg a fülét, amelyik a jól bevált módszerhez hozzányúlt. Na mindegy, végül jó lett.

adate:= now;
fdquery3.sql.Clear;
fdquery3.SQL.Add('select * from szerszam where datum BETWEEN '''+FormatDateTime('yyyy-mm-dd', dtp1.Date)+''' and '''+FormatDateTime('yyyy-mm-dd', dtp2.Date)+''' ' );
fdquery3.open;

QR kód olvasása (library)

Fórumok

Üdv!
Gépben levő kamerával szeretnék QR-kódot olvasni (és majd tovább feldolgozni).
Ehhez keresek valami library-t (bármit) Lazarus-hoz.
Eddig csak olyan komponenst találtam, hogy sztringből generál QR-kódot (pl. png képet).
Nekem fordítva kellene.

Lazarus, lazreport kérdés

Fórumok

Üdv!
Tud valaki Lazarus-1.4.4/lazreport-0.9.9 témában segíteni? :(
Adott egy masterSQLQuery, detailSQLQuery. Amikor meghívom a lazreport designer-ben a "preview report"-ot, akkor "access violation" hibát kapok.
Ha bezárom a designer-t, majd meghívom ismét (+ "report preview"), akkor nincs hiba. Ez bug lehet?

Normális, full-featured HTTP library?

Fórumok

Keresek olyan HTTP library-t, ami egyszerre fordul Windows-ra és Linux-ra, esetleg Mac OS X-re is. Lazarus-t használok, a legfrissebb stable-t, 1.2.6 (FPC: 2.6.4). Kissé elakadtam és úgy tűnik, hogy a (szerintem) igencsak szimpla elvárásaimnak mintha egyik se felelne meg (vagy lehet, csak az esetenként hiányos / nem létező doksik miatt látom így).

Elvárások:

  • Képes legyen natívan HTTPS-t kezelni.
  • Képes legyen Cookie-kat elmenteni és a szervernek visszaküldeni.
  • Lehessen vele fájlt letölteni (bufferelten, ahogy minden normális letöltő).
  • Redirect támogatás (Moved Permanently).
  • Valahogy lehessen vele fájlletöltést folytatni (Partial Content).

Előnyök:

  • Thread safe.
  • Tud proxy-zni.

Amiket próbáltam:

  • Synapse: Tudja a HTTPS-t. Egyvalami viszont kicsit kivágta a biztosítékot. Tényleg komolyan gondolták, hogy egy fájlt letölteni csak úgy lehetséges, hogy először behúzza az egészet a memóriába TMemoryStream-ként, majd onnan lehet csak lementeni? A hivatalos példája is ezt mutatja, más megoldást nem találtam.
  • lNet: több, mint 3 éve nem került fel új package a repo-ba, doksi hiányos, példaprogramhoz semmi magyarázat. Folyamatosan hsUnknown jön vissza status-nak, ha le akarok valamit tölteni.
  • fphttpclient: Még ez volna a legjobb, ezzel sikerült letöltenem fájlt is, meg cookie-znom is. Igenám, de persze, hogy nem tud HTTPS-t, csak a development verziójában (FPC része és annak a development trunk-jében van olyan fcl-web, ami tud HTTPS-t), azt meg nem volt kedvem felszenvedni. Esetleg ha valaki tudna segíteni abban, hogyan tudom projekthez hozzáadni csak az fcl-web és fcl-net csomagokat, megköszönném. Persze az is lehet, hogy hülyeséget kérdezek és ez nem lehetséges. Nekem az is tökéletes, ha pl. ssl_openssl-en keresztül vagy akárhogy én hozom létre a HTTPS tunnel-t és átadom az fphttpclient-nek. Proxy-zni sajnos nem tud.

Valakinek valami jobb ötlet? :)

RPi Lazarus

Fórumok

Üdv!

Raspberry PI-re használ valaki Lazarus-t? (A cross-compiling miatt gondoltam rá.)
RPi-hez mivel érdemes dolgozni? Választék van: http://elinux.org/Raspberry_Pi_Programming
IR Cam ill. hardveres dolgokat mivel érdemes leprogramozni? Mit választanátok?

Van esetleg valakinek mintája, hogy egy Webcam képét hogy elehet elérni (Lazarusban)?
Pl. a kamera képét (frame-eket) el lehetne menteni valamilyen formátumban (capture)?
Amiket találtam a neten (VideoTest, sysrec) nem tudtam lefordítani Linux-ra, mert Win alá készültek.

--
G.

lazarus string truncate 189

Fórumok

Sziasztok.
VAn egy lazarusban írt program (ami jelenleg win alatt fut). Lazarus verziója 0.9.28.2 és ezt nem is akarom változtatni, mivel van pár cucc, ami csak ezalatt hajlandó menni.
Egy sqlite adatbázisból olvasok be stringeket, amik lehetnek akármiylen hosszúak. Pár órája kezdte el, hogy ezeknek a stringeknek csak az ELSŐ 189 karakterét mutatja. Bármit csinálok ennyi. Nem értem. Ansi string avagy sem, itt levágja és kész.
Annyit tudni kell, hogy dcpcrypt -et használok (ami ugye lehet valami probléma forrása, csak azt nem értem, hogy egyik pillanatról a másikra..?), de más különösebbet nem.
Valakinek valami ötlete???
A releváns kódrészlet:

  • with npl do begin
    active:=false;
    close;
    SQL:='SELECT * from naplo where kereso LIKE '+quotedstr('%'+besecure(passw,elem1)+'%');
    open;
    active:=true;
    if recordcount>0 then begin
    button3.visible:=false;
    panel2.visible:=false;
    memo1.lines.text:=kisecure(passw,fieldbyname('szoveg').asstring);
    showmessage('Szöveg hossza:'+inttostr(length( memo1.lines.text)));
  • Nem egy bonyolult, de számomra titokzatos....

    [rájöttünk] Hová lett Damon Hill?

    Fórumok

    Napkelte, napnyugta számolása.
    Ebben a programban
    http://www.sci.fi/~benefon/SUNDAY.PAS
    hol a bánatban kap értéket kk és pp
    - vagy mit nem tudok?Kiragadott részlet:

    
    PROCEDURE SunUpDown(lat:real;lon:real);
    {Sunrise and Sunset times}
    CONST DayOffs = 10.0;
          HoCor   = 0.033;
    MDays: array[1..12] of Integer =
    (31,28,31,30,31,30,31,31,30,31,30,12);
    
    VAR dekl,fo,Nousu,Lasku:real;
        DayNr,j:              Integer;
    
    BEGIN
         lon:=-lon; lat:=pi*lat/180;
         DayNr:=0;
    
    for j:= 1 to kk-1 do DayNr:=DayNr+MDays[j];
    
        DayNr:= DayNr+pp;
    

    Átírnám bash scriptbe, de TP 6.0 után (Delphi-be már nem másztam bele) már nincs gyakorlatom pascalban.

    Powerpoint irányítás kliens/szerver alapon

    Fórumok

    Hali!

    Kellene írnom egy kliens/szerver rendszert.
    Lenne egy fő gép ill. 3-4 gép, ami projektorhoz kapcsolódik. A fő gépen összeállítanánk egy vetítésprogramot, és a projektoros gépek felé szépen leküldené, hogy mikor melyik prezit kell betölteni v. elindítani.
    A vezérléssel rendben is vagyok és a kommunikációt is meg tudom úgy oldani, hogy a gépek egyszerű szöveges parancsokat küldenek egymásnak.
    Amit nem tudok, az az, hogy vajon melyik megoldás volna a célszerűbb:

    A: A projektoros gépek vannak "szerver" módban, figyelnek egy portot és az irányító gépről kapcsolódunk rájuk.
    B: A fő (vezérlő) gép a szerver és a projektoros gépek kapcsolódnak rá.

    Az volna a lényeg, hogy a rendezvény alatt csak a fő géphez kelljen nyúlni fizikailag, a többi géphez ne, tehát mindent központilag irányítanánk.

    Hibatűrés szempontjából szerintem az A megoldás lenne jobb, de hátha tudtok segíteni pár ötlettel ill. ha valaki írt már hasolót, megoszthatná a tapasztalatait.

    Előre is köszi,
    Moha