mutasd a kódot ahol
- a változókat deklarálod
- cellának értéket adsz (ha változóból töltöd fel akkor azt is ahol a cella értékadására használt változó beállítódik)
- a selcol/selrow értéke beállítódik
- próbálod kiolvasni a cella tartalmát

az én példámnál maradva. Ha értéket adsz abszolút módon (grid.Cells[1,1]="asd"; ), majd azt egy showmessage -val kiolvasod (showmessage(grid.Cells[1,1]); ), mit mutat?

[ Szerkesztve ]

Egyszerű életet élek. Ami üres megtöltöm, ami tele van kiűritem

Hali srácok tudom nem a legjobb hely de kéne egy kis segítség!Olyan problémám van,hogy nem birok semmit elindítani a gépemen mert mindenre azt írja,hogy: A program nem indult el mert a CRYPTBASE.dll hiányzik a számítógépről.(pedig találtam 3 ilyen fájlt is a gépemen) a Segítségeket előre is köszönöm!

Valószínűleg vírusod van, de ennek nem sok köze van a Delphi-hez.

How To Fix Cryptbase.dll Not Found or Missing Errors

Például ezzel az ingyenes komponenssel:

Barcode Component v.1.27

Üdv urak!

Nem kispályás kérdésem lenne hozzátok. Egy kapcsolatot kell majd megvalósítani később egy MySQL adatbázishoz ami egy linux rendszerben van. A módszert ki akartam próbálni virtuális szerverrel. Az eltérés természetesen annyi, hogy más az adatbázis név és root-nak nincs jelszava. Wamp fent is van és Delphi 5-öt (azért mert csak ez van) használok hozzá. Az Itt található módon próbáltam a példaprogrammal, de nem működik. Arra gondoltam talán túl régi lehet a Delphi, a Wamp-ban található sql meg túl új neki...? Bármilyen ötletet szívesen fogadok.
Utóirat: próbáltam külső, létező szerverre is kapcsolódni, de úgy sem sikerült.

Szemed az úton, pedál a padlón || Whatever, Im the star

Szia, én írtam a MySql-hez néhány komponenst, amikkel nagyon egyszerűen lehet kapcsolódni az adatbázishoz. Ha gondolod szívesen elküldöm neked. Igaz, hogy 2007-hez és XE-hez van csak csomag, de elvileg a 2007-esnek mennie kell Delphi 5 alatt is.

A kérdésedet inkább itt tedd fel: Milyen program, ami ...?

Erre lehet még visszatérek, addig is köszönöm. Közben sikerült megoldani egy ADO kapcsolattal a dolgot, kb. 3 percig is tartott.

Szemed az úton, pedál a padlón || Whatever, Im the star

Sziasztok!

Processhez tartozó ablakok és azok elemeinek bejárása?

Mivel a google nem nagyon tud segíteni (vagy csak én keresek rosszul), ezért itt kérek segítséget!

A címben feltett kérdésre keresem a választ. Próbáltam a következő API-kat siketelenül:

Getclassname
EnumWindows
Findwindow
Findwindowex
Getwindow

Próbáltam ezeket:
[link]
[link]

és ehhez hasonló kódokat is, de sikertelenül!

Előre is köszönöm a segítségeteket!

ok, köszi!

A téma: Adatfogadás a soros portról DELPHI7 -el, pld. PIC kártya felől, az adatok pc-n történő kijelzése, és feldolgozása miatt.

Történet:
Egy PIC es fejlesztővel készítettem egy AD konvertert, mely az adatokat a saját LCD kijelzőjén kijelzi, és továbbítja a soros porton keresztül a pc felé.
A PIC boardon egy potival modellezem a kimenő értéket. 10bites ad-ról lévén szó 2-től 2023-ig mutat az LCD a pic-kártyán a poti két végállásában.

Probléma:
A pc-n elindított terminal nevű free programocska gyönyörűen kiírja a mért értékeket, alapból Hexában, ahogy küldöm HI_byte, és LO_byte, ill. ha akarom decimálisan is kijelzi.
Ez bizonyítja a PIC oldal működőképességét.
Ha viszont DELPHI7 ben olvasom ki az adatokat, csak grafikus ákom-bákomot kapok, vagy semmit, mely természetesen változik, a küldött számoknak megfelelően.
Mindenféle karakterkonverziót megpróbáltam, de csak nem kapom meg a várt számadatokat (2-1024ig).
Miért természetes a kis terminál programocskának amit a delphiben én nem tudok megoldani?

Delphi kódot mellékelem.

Igen megtisztelnétek, ha megoldást kapnék kezdő létemre a problémámra.

// xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Function ComPortRead:string;
var c,i:integer;
BytesRead:dword;
st:string;
begin
BytesRead:=0;
if not ReadFile(ComHandle, RdBuff, SizeOf(RdBuff), BytesRead, nil) then begin
end;

//st:='';
if BytesRead>0 then begin

for i:=1 to BytesRead do begin

st:=RdBuff[i-1];
end;
end;
ComPortRead:=st;
end;

//hossz:=length(ComPortRead); // HOSSZ ?
//label6.Caption:=inttostr(hossz); // Kiírni

read_ki:= ComPortRead;
kar1:=copy(ComPortRead,1,1); // Kivesszük az első karaktert
kar2:=copy(ComPortRead,2,1); // és a másodikat

// Numerikussá alakítjuk
szam1:=strtoint(kar1);
szam2:=strtoint(kar2);

// Szam1 viszaalakítása. (rotated Hi bits - Make back: to left)
szam1:= szam1 shl(8);

// A Hi ls Lo szám összege adja a küldött értéket, a szám1-be tesszük
szam1:=szam1+szam2;

// A kar1-be tesszük a stringgé visszaalakított számot
kar1:= inttostr(szam1);

label6.Caption:=kar1; // Kiírni

Szia, ezt próbáld ki, nekem működik:

function Execute(FileName, Params : string; Show : integer = SW_HIDE) : boolean;
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
begin
FillChar(SEInfo, SizeOf(SEInfo), 0) ;
SEInfo.cbSize := SizeOf(TShellExecuteInfo) ;
with SEInfo do begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(FileName) ;
lpParameters := PChar(Params);
nShow := Show;
end;
if ShellExecuteEx(@SEInfo) then begin
repeat
Application.ProcessMessages;
GetExitCodeProcess(SEInfo.hProcess, ExitCode) ;
until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
Result := true;
end
else begin
ShowMessage('Program file not found!') ;
Result := false;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Execute('acrord32', 'filename.pdf', SW_NORMAL);
end;

Szia, a paraméterben kell megadni, nem?

szevasztok!
olyan gondba ütköztem, hogy van 1 (raktár)program ami csak simán .dbf fájlba dolgozik, újra kellene dobnom a gépeket, eléggé ősiek, és azt nem tudtam kideríteni, hogy ehhez milyen adatbázis kezelő kellene, ha kell egyáltalán, mert ugye ez delphi adatbázis kezelése. Csak simán kell egy borland shared vagy mi hozzá?
bocs a nyers fogalmazásért, de csak felületi ismereteim vannak....

"Mond szépen angolul: Gyors róka!"

annyit sikerült kiderítenem hogy talán dBASE az adatbázis...

"Mond szépen angolul: Gyors róka!"

1. Ezzel a progival próbáld megnyitni a DBF fájlokat, hogy kiderüljön, hogy valóban adatbázis fájlok, nem csak a kiterjesztésük az. DBF Commander
2. A DBF az csak egy típusú adatbázis a sok közül, nem csak "Delphi-ben" használatos.

UI: Ha az adatbázis jelszóvédett, akkor azt ki kell deríteni, avagy (ez bevett szokás) a raktárprogi esetleg jelszót kér indításakor, amely jelszó egyben az adatbázis jelszava is.

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

köszönöm a választ! és 64 bites w7 nél, ezeknek az "ősi" programoknak, elég ha csak xp módban futtatom?
valamit kell még valamit a raktár program mellé installálni?

"Mond szépen angolul: Gyors róka!"

Már mint a raktár progira írod hogy "ősi" vagy a DBF Commander-re? (Ez utóbbi biztosan fut W8/8.1 x64 alatt is)
Ha a raktárprogiról van szó, azt meg ki kell próbálni. Ha valóban Delphi-ben íródott és telepítős, akkor fel kell települni a Borland Database Engine-nek is (BDE), az meg okozhat meglepetést.
Ettől függetlenül próbáld meg, ha nem menne, akkor meg Virtuális gépen biztosan futni fog(egy ezeréves Delphi 7-ben írt progim szorult fejlesztésre, ami szintén adatbázis jellegű, semmi gond(W8 x64 alatt Virtualbox)

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

ShellExecute(0, PChar('print'), PChar('d:\valami.pdf'), nil, nil, SW_HIDE);

(A PDF-nek társítva kell lennie egy alkalmazáshoz, ami automatikusan megnyitja. Az mindegy, hogy a W8 beépített PDf olvasója vagy a Foxit vagy az Acrobat...)

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Ezen nincs mit "érteni"... Sajnos ez is egy user error. A ShellExecute egyértelmű: [link]

Az, hogy ettől eltérsz vagy nem tudod, hogy hogyan kell alkalmazni, az user errror...

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Foxit-ról beszéltem. A fostalicska Adobe már 1,5 évtizede sem érdekelt....

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Eléggé elpusztultnak tünik a topik, de hátha alapon van egy kérdésem, amit [itt] tettem fel.

Valaki ötlet?

Sziasztok!

Van 1db MaskEdit-em amelynek ez lenne a maszkja : 99999999-9-99;1;
Azt hogy tudom megoldani, hogy amíg nincs kitöltve a helyesen addig ne lehessen tovább lépni, illetve jelenjen meg egy üzenet hogy az adószám nincs jól kitöltve?

Előre is köszönöm.

Sikerült megoldanom.

Sziasztok!

Szeretném megkérdezni a nagyérdeműt, hogy mi a javaslat az alábbiakra.
Az eredeti felállás Delphi6 program ADO-val Oracle Client-el az Oracle 8 adatbázishoz.
Az Oracle 8 kiesett a képletből, helyette Oracle 11g R2 van.
Nem szeretnék Oracle Client-et telepíteni minden kliens gépre, ezért az Oracle Instant Client-et gondoltam használni, de az ADO köp egy nagyot rá.
A legkisebb ráfordítással szeretnék átállni. Vagyis be lehet-e állítani úgy a dolgot, hogy az ADO használja az Oracle Instant Client-et. Ha nem, akkor mi a javaslat? Delphi 7 is szóba jöhet, de az afelettieket már nem ismerem.
Előre is köszönöm a válaszokat!

Már igen régóta próbálkoztam és végső elkeseredésben írtam ide.
A megoldás az volt, hogy beállítottam a path-ba az OCI útvonalát és megadtam az NLS_LANG-ot a rendszerváltozókhoz. Úgy látom, hogy az ADO-s kapcsolat megy rendesen.

Sziasztok!
Olyan problémám lenne, hogy van a Google fordítónak egy felolvasó funkciója
http://translate.google.com/translate_tts?tl=hu&q= ezután meg a szöveg
Az URL-nél átalakítja a spacet, meg az ékezetes karaktereket %+hexadecimális ASCII-kódszám formátumba
Bekérek egy szöveget, és azt akarom átalakítani úgy, hogy az ékezetek az URL formátumában legyenek.
A space az így néz ki: %20 , azt át is alakítja, de az ékezeteseket máshogy kódolja
pl.:árvíz %C3%A1rv%C3%ADz --> á=%C3%A1
Hogyan tudom az ékezetes karaktereket ilyen formába átalakítani?

Данное сообщение (материал) создано и (или) распространено иностранным средством массовой информации, выполняющим функции иностранного агента, и (или) российским юридическим лицом, выполняющим функции иностранного агента.

Szia, így:

Uses HTTPApp;

procedure TForm1.Button1Click(Sender: TObject);
const S : string = 'Árvíztűrő tükörfúrógép';
begin
Memo1.Lines.Add( S );
Memo1.Lines.Add( HTTPEncode( UTF8Encode(S) ) );
end;

A példa kimenete:

Árvíztűrő tükörfúrógép
%C3%81rv%C3%ADzt%C5%B1r%C5%91+t%C3%BCk%C3%B6rf%C3%BAr%C3%B3g%C3%A9p

Köszönöm a választ!
Még abban kéne segítség, hogy Lazarus IDE-hez használom a Synapse libraryt, hogy letöltse a hangfájlt a Google fordítóról, de hiába a jól lefordított url link - a böngészők jól lejátszák a vágólapozott linket -, továbbra is beleolvas speciális karaktereket/más betűket az ékezetes karakterek helyére (a letöltött mp3-ban).
Mit kéne csinálni, hogy a normális hangájlt töltsön le?
(VLC-nek is van Chromehoz egy lejátszó-pluginja és az is ezt produkálja egyébként)

[ Szerkesztve ]

Данное сообщение (материал) создано и (или) распространено иностранным средством массовой информации, выполняющим функции иностранного агента, и (или) российским юридическим лицом, выполняющим функции иностранного агента.

Szia, ez ugyan a Delphi fórum, de talán:

uses
SynaCode;
..
begin
s := EncodeUrl( str );
//
s := DecodeUrl( str );
end;

Ezzel is jól alakítja át az URL-t, de nem az a baja, hanem a letöltéssel van valami.
Synapsesal is, meg most ezzel is.
A karakterkódolással lehet a baj, mert ilyeneket mond bele a szövegbe a robothang (ékezetes betűk helyére), hogy "szerzői jog", "negyed", "bekezdésjel", "plusz", "mínusz" ,stb.
Böngészőbe jól menti le és jól játssza le a program vágólapozott linkeit.

Данное сообщение (материал) создано и (или) распространено иностранным средством массовой информации, выполняющим функции иностранного агента, и (или) российским юридическим лицом, выполняющим функции иностранного агента.

sziasztok, én abszolut nem vagyok jártas programozásba, ezért kérnék egy hatalmas segítséget.
Scar divi be kellene futattnom egy adott forráskodot.
ez egy bot program lenne, a lényeg h vhogy rá kellene illesztenem a koordinácios paramétereket de nem tudom hogyan és hova.
ezuton kérnék egy programozó segítségét aki elmondaná hogy kell csinálni.
A forráskodot el is küldeném hogy tudja miről van szó.

Köszönöm

Sziasztok

Van nekem egy A könyvtárba txt és db kiterjesztésű file-k.
Ezeket szeretném a program kilépésekor átmásolni egy B könyvtárba, és ha már ebben a könyvtárban létezik olyan nevű file, akkor azokat felül írja.

Előre is köszönöm.

onClose eseményben:

begin
CopyFile(PChar('c:\A\*.txt'), PChar('c:\B\'), False);
CopyFile(PChar('c:\A\*.db'), PChar('c:\B\'), False);
end;

Egyébként az is megoldás lehet, ha készítesz egy batch fájlt a program indítására, amibe a végén megoldod a másolást a copy paranccsal.

"Nem gond ha nem vágod a párologtatók bináris nyelvét..."