Hirdetés
- Házi hangfal építés
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Milyen belső merevlemezt vegyek?
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Nvidia GPU-k jövője - amit tudni vélünk
- Fujifilm X
- AMD GPU-k jövője - amit tudni vélünk
- Milyen egeret válasszak?
- Blu-ray lemez tapasztalatok
Új hozzászólás Aktív témák
-
dany27
őstag
hali
Egy olyan kérdésem lenne hogy a komponensek közt lévő böngészőnek a kapcsolat beállításait hogy lehet változtatni?
Ha az Internet Explorer kapcsolat beállításait változtatom akkor változik az övé is. Ezzel nem is lenne gond de valamiért amikor a 3ik proxyt betölti akkor utánna hiába jelzi azt nekem a progi h sikeresen cserélte az explorerben maradt a régi....
Előre is köszi!
Itt a kód:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Registry, WinInet, OleCtrls, SHDocVw, ExtCtrls;
type
TForm1 = class(TForm)
btn_start: TButton;
btn_stop: TButton;
btn_exit: TButton;
Label1: TLabel;
WebBrowser1: TWebBrowser;
Timer1: TTimer;
lbl_now: TLabel;
procedure btn_exitClick(Sender: TObject);
procedure btn_startClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure btn_stopClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
proxys:Tstrings;
temp:string;
i:byte;
implementation
{$R *.dfm}
procedure TForm1.btn_exitClick(Sender: TObject);
begin
application.Terminate
end;
Procedure EnableProxy(const Server: String);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.WriteBool('ProxyEnable',False);
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',False);
Reg.WriteString('ProxyServer',Server);
Reg.WriteBool('ProxyEnable',True);
Reg.CloseKey;
Reg.Free;
end;
Procedure DisableProxy;
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',False);
Reg.WriteBool('ProxyEnable',False);
Reg.CloseKey;
Reg.Free;
end;
procedure TForm1.btn_startClick(Sender: TObject);
begin
i:=0;
timer1.Enabled:=TRUE;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i+1;
proxys:=TStringList.Create;
proxys.LoadFromFile('D:\proxys.txt');
temp:=proxys.Strings[i];
EnableProxy('http='+temp);
lbl_now.Caption:='Jelenlegi proxy: '+temp;
end;
procedure TForm1.btn_stopClick(Sender: TObject);
begin
DisableProxy;
timer1.enabled:=FALSE;
end;
end. -
zka67
őstag
Gondolom (remélem) már nem XP-re fejlesztesz. Vista és 7 alatt a Registry-t már nem engedi "csak úgy" írkálni, meg olvasgatni sem, csak a következőképpen:
with TRegistry.Create(MAXIMUM_ALLOWED) do
try
...
finally
Free;
end;Van még egy hiba a programodban, az EnableProxy-ban az OpenKey előtt van egy WriteBool, az szerinted hová ír?
-
dany27
őstag
Sziasztok!
Egy olyan kérdésem lenne hogy néhány beállítást szeretnék eltárolni de nem tudom pontosan, vagyis nem tudom melyik lenne legmegfelelőbb nekem. Nos csak néhány egyszerű bellítást kellene elmentenem(pl.: nehézségi szint, feladatok száma stb..). A programfutása során szükségem van arra hogy rögötön hozzáférjek az éppen szükséges beállításhoz. Így gondoltam hogy típusos fileba letárolnám az egyes beállításokat és akkor egyszerűen hozzáférnék az egyes beálított értékekhez! (a sima txt file nem játszik mert macera belőle kiszedni a cuccokat!)
Szerintetek melyik lenne a legjobb??
Előre is köszi!
-
zka67
őstag
Használj ini fájlokat:
uses IniFiles;
...
var Ini : TIniFile;
IniPath : string;
...
IniPath := AppDataPath; // célszerűen az APPDATA könyvtár
Ini := TIniFile.Create(IniPath+'\programnév\settings.ini');
param_int := Ini.ReadInteger(Section,Item,default_value);
param_str := Ini.ReadString(Section,Item,'default_value');
Ini.WriteInteger(Section,Item,param_int);
Ini.Free;Szerintem magáért beszél a dolog. Pl. egy settings.ini az ablakpozíció megjegyzéséhez:
[Main]
Left=200
Top=50És a hozzá tartozó kód:
// FormCreate
Left := Ini.ReadInteger('Main','Left',Left);
Top := Ini.ReadInteger('Main','Top',Top);
// FormClose
Ini.WriteInteger('Main','Left',Left);
Ini.WriteInteger('Main','Top',Top);[ Szerkesztve ]
-
dany27
őstag
Hali!
Framekkel büvészkedek de akadt egy kis gondom ebben szeretnék egy kis segítséget kérni.
Szóval van egy formom amin az éppen aktuális framet teszem láthatóvá és a régit meg elrejtem. De ez valahogy nekem nem akar összejönni. Illetve menni megy de mikor egy framet kétszer megjelenítettem nem akarja elrejteni hanem dob egy szép kis hibát:
"" is not valid integer value!
Így nézz ki egy új frame megjelnítése, régi elrejtése(megnézi melyik az épp látható azt elrejti majd a végén ami kell az meg megjeleníti):
procedure TForm1.menu_gykivonClick(Sender: TObject);
begin
if frame_osszgyak.Visible=TRUE then
begin
frame_osszgyak.btn_feladClick(Sender);
frame_osszgyak.Visible:=FALSE;
end
else if frame_osztgyak.Visible=TRUE then
begin
frame_osztgyak.btn_feladClick(Sender);
frame_osztgyak.Visible:=FALSE;
end
else if frame_szorgyak.Visible=TRUE then
begin
frame_szorgyak.btn_feladClick(Sender);
frame_szorgyak.Visible:=FALSE;
end
else if frame_config.Visible=TRUE then
frame_config.Visible:=FALSE;
frame_kivongyak.Visible:=TRUE;
frame_kivongyak.load_config(Sender);
end;Mi lehet a gond? Amikor először rejti el akkor nem dobja csak másodszorra
-
dany27
őstag
hali
Egy programot kell készítenem amiben egy StringGrid segítségével különböző adatokat lehet felvinni. Egy olyan gondom lenne hogy nem tudom hogy mi lenne a legjobb megoldás a stringgridben szereplő értékek letárolására. Mivel dinamikusan tudja növelni a user az oszlopok számát illetőleg szabadon tudja módosítani azok sorrendjét ezért valami olyan módszer kellene amivel egyszerűen feltudom cserélni a két oszlopot a fileban, illetve tudom törölni a törölt oszlophoz tartozó értékeket, vagy lehet hogy nem is kellene csak a megfelelő oszlophoz a megfelelő sort kellene kiolvasni a fileból és akkor a fileban nem is kell sorrendbe lennei a oszlopok tartalmának. Ha nincs sorrendbe akkor tipusos fileal könnyen tudnék dolgozni csak annak nem tudom dinamikusan változtatni a szerkezetét. Vagy mégis?
Ezek az 5letek jutottak eszembe csak nem tudom hogy melyik lenne az egyszerűbb..
Ui: egy iskolai naplóról lenne szó, egy lenyiló menüből kiválasztja az osztályt, select eventre betölti a legelső tanuló adatait majd egy stringgridbe a jegyeit, tantárgy és hónapra leosztva.
Egy külön beállítások részbe lehet felvinni az egyes osztályokat, és a hozzájuk tartozó órákat, tanulókat!Előre is köszi!
-
TAZ155
csendes tag
Üdv mindenkinek.
Delphi 2005 vagy Delphi 7.--------kategória.
Fájlt szeretnék töröltetni delphi alatt.
Kritérium, van egy Edit7.text-em amiben megjelenik a törölendő fájl neve.
A megjelenités megvan oldva, az Edit7.text-ben.
Csak fájltőrlésre nem találtam leirást.
Hogyan tudok fájlt töröltetni hogyha a fájlnevet egy Edit7.text-be adom meg??
Hali
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
Gyuri16
senior tag
-
TAZ155
csendes tag
válasz Gyuri16 #1861 üzenetére
Üdv.
Nos nekem ez a törlés éppen megfelelne.
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteFile('FILE.MDX');
end;end.
Csak hogy a fájlnevet, amit törölni szeretnék azt egy edit7.text-ben adom meg.
Bármi lehet bejegyzéstől függően.A program leirása.
Van egy listbox-om amiben vezetek egy listát.
A listába amikor hozzáadok egy bejegyzést, akkor abban a pillanatban létrehoz egy fájlt
a vinyón a programom.A bejegyzés neve = a létrehozott fájl nevével.
Pl:
A listához hozzáadtam a Mario... bejegyzést akkor a vinyón létrehozok egy Mario.tr1-fájl.De ha én a listából tőrlöm a Mario bejegyzést akkór törölni kellene a Mario.tr1 fájlt is.
A listában sok másnéven szereplő bejegyzések is vannak.A törlendő fájlnevet már ki iratom a kijelőlés pillanatában egy edit7.text-be.
Na ilyen jellegű fájltörlésről lenne szó.
Tehát ez nekem jó lenne, csak nem ilyen fórmában.DeleteFile('FILE.MDX');
Amúgy nemrégen kezdtem programozni Delphi 7 Lite változat alatt.
Jó könyvet meg sajnos nem találtam Delphi-hez.Tehát ez az én olvasatom szerint igy nézne ki.
procedure TForm1.Button1Click(Sender: TObject);
Var
x: integer;begin
x:=StrtoInt(Edit1.Text);
DeleteFile('x');
end;end.
Tudom ez egy nagy hülyeség amit irtam, de a könyvekben semmi nincsen szinte ami használható lenne.
Sok esetben ez a megoldás münködni szokott.Deklarált változók kellenének????? x$...stb
Ösrégen Basic-ben programoztam egy kicsit, nameg ASM-ben.
De csak nagyon kezdő szinten.Hali
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
Gyuri16
senior tag
az edit1.text egy stringet ad vissza. a DeleteFile pedig egy stringet var parameterkent, igy mukodnie kellene:
procedure TForm1.Button1Click(Sender: TObject);
begin
DeleteFile(Edit1.Text);
end;itt nem art meg ellenorizni mivel ter vissza a fuggveny (sikerult e a torles) illetve hogy mi van az edit1.textben
Nem vagyok egoista, csak uborkagyalu!
-
TAZ155
csendes tag
válasz Gyuri16 #1863 üzenetére
Üdv Gyuri16.
Köszönöm a segitséget, ez a megoldás jó vólt nekem arra a célra amire kelett.
Idézet:
DeleteFile(Edit1.Text);
Sikerült a saját, megirt szoftverembe alkalmazni.
Jól műnkődik.
Egyébként a DOSBOXPortable változathoz irtam, igény szerint egy Grafikus felületet, szoftvert.
Ha téged érdelel, elküldöm neked privátban az egészet forrással együtt.
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban.
Hali.
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
TAZ155
csendes tag
Sziasztok.
Gondolom a megoldás igen egyszerű lessz.
A következő kérdésem az lenne hogy.....Adott egy Then, Else ággal megirt feltétel.
A Forrás:
unit szamol;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
Button2: TButton;
Label2: TLabel;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
varZ1,Z2 : Integer ;
begin
begin // Feltétel irás
// integráljuk az z1, z2-es értéket
Z1:=StrtoInt(Edit1.text); // hivatkozás a cellá-ra
Z2:=StrtoInt(Edit2.text);if ( z1 = z2 )
// ha z1 egyenlő z2-értékével akkor
// akkor then-ág lép érvényben.then
begin
ShowMessage ( 'Az értékek MEG eggyeznek ' )
end// ha z1 NEM egyenlő z2-értékével akkor
// akkor az else-ág lép érvényben.else
begin
ShowMessage ( 'Az értékek NEM eggyeznek meg ' )
end ;end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;end.
A program vége.
Alap állapotban a Delphi csak a számokat ismeri fel. (1,2,3 stb)
Melyik a helyes módja, hogy rá tudjuk beszélni hogy a betü karaktereke is gond nélkűl kezelje.
Meglátásom szerint , de ez csak az én véleményem.1. megoldás.
A Betű karakterekből ASCII értéket csinálunk.( Tehát szám érték lessz a végeredmény)
Hogyan????2. megoldás
A programozzunk Delphi 7 rendszerben cimű könyv szerint lehet integrálni a karakter készletet, és onnantól kezdve már nem okoz gondot hogy Betűt,vagy számot irunk be a programnak. Ezt a megoldást meg nem sikerült felélesztenem.
Hogyan????Ebben kérnék segitséget, infót.
Hali
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
Gyuri16
senior tag
delphiben charbol az ascii kodjat az ord fuggvennyel lehet megtudni, forditva pedig a chr fuggvennyel.
ha csak ossze akarod hasonlitani a ket edit tartalmat, akkor azt csinalhatod egyszeruen stringekkel (az edit.text egy stringet ad vissza). tehat ilyen if mukodik:
if edit1.text = edit2.text then valami
vagy elmentheted ezek tartalmat egy string tipusu valtozoba es csinalhatsz vele valami bonyolultabbat.ezt az integralas dolgot nem teljesen ertem, ebben a kontextusban nem hasznaltam meg ezt a kifejezest..
masik dolog a programodban az application.terminate. szerintem hasznalj helyette close-t. utobbi vegulis meghivja az application.terminate-t viszont elotte vegrehajtodik az onClose event, amit tobbnyire akarsz (mar ha irtal hozza fuggvenyt ami lekezeli). szerintem mindenesetre szebb megoldas, raadasul leirni is rovidebb.
legkozelebb a forraskodot amit ide beillesztesz tedd programkod blokkba (a hsz irasakor lent katt a programkod gombra), ugy jobban olvashato.
[ Szerkesztve ]
Nem vagyok egoista, csak uborkagyalu!
-
Flashback
addikt
Hogy tudom figyelni hogy a mouse bal gombja lenyomódik, mármint globálisan a program területén kívül?
Bocs nincs hosszú ö, ü és néha az á is ä :)
-
félisten
-
Flashback
addikt
válasz Fire/SOUL/CD #1870 üzenetére
Az oké, de attól még nem tudom hogy lenyomták-e a bal gombot!
Bocs nincs hosszú ö, ü és néha az á is ä :)
-
félisten
válasz Flashback #1871 üzenetére
Ja, Én úgy vettem ki, hogy az a gondod, hogy form-on kívül vagy belül kattintottak, bocsesz.
procedure TForm1.FormMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState;
X, Y: Integer) ;
begin
case Button of
mbLeft:
begin
end;
mbRight:
begin
end;
end;
end;[ 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)
-
Flashback
addikt
válasz Fire/SOUL/CD #1872 üzenetére
A jó megoldás így néz ki, közben megtaláltam az MSDN-ben...
function IsBtnPressed(ABtn: integer): boolean;
//ABtn can be either VK_LBUTTON, VK_MBUTTON, or VK_RBUTTON
begin
result := (GetAsyncKeyState(ABtn) and $8000) = $8000;
end;Bocs nincs hosszú ö, ü és néha az á is ä :)
-
Fetyoka0
tag
Sziasztok!
Segítség kellene egy olyan problémában hogy:
Delphi 5ös verzióval akarok ORACLE adatbázisból lekérdezést csinálni. De Delphi 5ben nincsenek meg az ADO komponensek. Hogyan lehet ez belevarázsolni az 5ös verzióba?
7est nem tudok fölrakni mert 5ösben lett írva és fordítva az eredeti program és különböző hardware elemeket használ(mérőberendezések). Ha 7essel fordítanám újra nem működe megfelelően. -
RootRulez
félisten
Sziasztok!
Talán páran láttátok, hogy android programokat honosítok. A frissülésekkel könnyebb lenne mennem, ha nem kéne átnyálaznom a nyelvi fájlokat, hol vannak eltérések az újabb verzióban, hanem ami benne volt a régiben, azt már át is emeli a többit meg lefordítom.
Tehát
Egy olyan programra lenne szükségem, ami két XML fájlt hasonlít össze és az azonos kulcsokat átmásolja egyikből a másikba. Illetve ha talál olyan kulcsot a másodikban, ami benne van ez elsőben is, annak az értékét átírja.Például az új (még angol) nyelvi fájlban benne van, hogy:
<string name="create">Create</string>
De a program korábbi verziójában ez már magyarítva lett, hogy:
<string name="create">Létrehoz</string>
Szóval meg kéne keresni ezt a "create" kulcsot a korábbii fájlban és a "Create" helyett át kéne emelni a "Létrehoz"-t
És szépen végig kéne mennie ez új XML-en kulcsonként, megkeresve a párját a régiben.
Szóval ezt hogy lehetne megvalósítani?
...
Delphi-vel szoktam "bohóckodni". Nincs nagy programozói tudásom. Amit tudok fórumokból szedtem össze, könyveket olvasgattam. Szóval nem tanultam, egy kis Turbo Pascal ismeretem volt gimiből. Épp ezért hajlamos vagyok egyszerű dolgokat túlkomplikálni, mert ugye nem vagyok tisztában az egyszerűbb parancsokkal, megoldási lehetőségekkel.
Az első gondolatom például az volt hogy TXT-ként megnyitom és seltext, sellenght, selstart-okkal mahinálva kikeresem a kulcsokat, majd megkeresem a másik fájlban, benne van-e ugyanaz, majd a csibecsőrök közötti részt átemelem...
Utána nézelődtem és kiderült, egyszerűbb lenne, ha kulcsos XML fájlként kezelném őket, nézegettem is XML komponeneseket hozzá, de nem tudom telepíteni, lehet a 64-bites windows7 szívat.
Bár úgy láttam a Delphi 7-ben van gyári XML komponens, csak nem tudom használni
Aki jobban benne van, hogy oldaná meg?
Üdv!
═════════════════════════════════════════
-
TAZ155
csendes tag
Sziasztok.
Soros port programozásban kérnék egy kis segitséget tölletek.
A port (rs232) rövid leirása:
Nos ami a legfontosabb ezzel kapcsolatban, hogy a serial port nem TTL, CMOS feszültségszintekkel dolgozik, hanem felszültséglogikával.
Ez azt jelenti, hogy a kimeneten megjelenő logikai '1' szint +5 - +12V közötti feszültségértékeket vehet fel, a loikai '0' szint pedig -5 - -12V közötti értékeket vehet fel.Leirás vége.
Haladjunk lépésről, lépésre.
Gondolom meg kell határozni hogy melyik port legyen aktiv. ( COM1 )
Gondolom én hogy szükségünk lesz a port cimekre. ( De pin szerint mik is ezek?)
Nekem az is elég,egyenlőre hogy át tudjam billenteni az alapban 0-ás Logikai
értékü pint, 1-es értékre.! A példa kedvé ért legyen a COM1-en, az 1-es pin( Data Carrier Detect ) !
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
progi vége.
Ezután a port 1-es logikai értéken marad.
Ezt le kellene zárni.Biztosan valami ilyesmi lesz a megoldás: (Com1close
Hai
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
TAZ155
csendes tag
Sziasztok.
Annyit sikerült kideritenem hogy fel kell telepiteni egy csomagod delphi alá.
A fájl neve: comport411c.zip
Ebben a zipben található a soros port kezeléséhez a telepitő csomag.
Megpróbáltam feltelepiteni Turbo delphi 2006-alá, de hibaüzenet-et kaptam.
A telepitési sorrend.
1. Turbo Delphi elinditása.
2. Open Project. (itt kiválasztjuk a neküknk szükslges fájlt.)
3. Source\CPortLibD2005.lib ..... gondolom én...
4. megnyitás
5.jobboldalt a Project Managerbe CPortLib2005.bpl-re egér jobb klik.
6.InstallNa ezután én hibaüzenet-et kapok a Turbo Delphi 2006-tól.
Hiba üzenet.
Error message ablak.
This version is not licensed to load third-party component or IDE addins.Nagyjából a magyar forditás.
Ennek a verziónak nem engedélyezik, hogy betöltse a harmadik félhez tartozó összetevőt vagy IDE addins.Tehát nem lehet alátelepiteni??
csak kicsit értek angolul.Hali
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
zka67
őstag
Először megnyitod a CPortLibD2006.dpk fájlt, lefordítod (Alt-P B).
Utána megnyitod a DsgnCPortD2006.dpk fájlt, azt is lefordítod.
Utána Install Packages, megkeresed a CPortLibD2006.bpl fájlt és telepíted.
Ennyi.Hozzátennék még annyit, hogy a soros port nem egészen úgy működik, ahogy te azt elképzelted. Neked nem kell biteket röcögtetned benne, bízd azt a hardverre, azért van.
Javaslom, hogy előbb olvasgass utána a soros port működésének.
-
TAZ155
csendes tag
Üdv zka67.
Köszönöm a leirást, de a hiba üzenet megmaradt sajnos.
!!Error message ablak.
This version is not licensed to load third-party component or IDE addins.Nem értem.
Megnézem egy másik delphi alatt a csopmagot, hátha felmegy.
A soros port.
[link]Végül is nekem, először az is elég lenne hogy ha a COM1-en
a 3F8H-cimen az RTS lábra valahogyan kikerülne a Tápfesz.
Ezen a csatlakozót a hardver táp-ellátáshoz kell csak.D egyenlőre keresek egy másik delphit, ami alá fel tudom telepiteni a csomagot.
Azért köszi a segitséget.
Hali.
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
TAZ155
csendes tag
Igen tudom.
Nekem max 5V 2mA kell róla.
Most olyan megoldást keresek, a soros port kezelésre amit igy csomagként nem kell telepiteni.
Elég csak bemásolni egy *.pas-fájlt a delphibe, és elég egy Dll-t bemásolni az exe mellé.
LPT-hez van, gondolom soros port-hoz is van már ilyen megoldás.
Hali
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
TAZ155
csendes tag
Sziasztok.
Megoldottam a soros port komponens feltelepitését, másik delphi alatt.
ComPortLibary 4.11C ( Dejan Crnila)-Komponens.
És most már hogy ezt fel tudtam rakni,
a kérdésem az lenne leső lépésben hogy hogyan lehet meghivni a soros port -ot manuálisan.
Be épitett Comport componens nélkül.A fix portbeállitásokat majd egy fájlban fogom tárolni.
A második lépés, hogy a Pin-ek közötti cimzés, meghivás hogyan is müködik.
Ezt a táblázatot találtam eddig.
[link]
Ez a táblázat használható??Hali
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
-
RootRulez
félisten
Szaisztok!
Lenne egy program, ami egy fájlt töltene fel FTP-n. Teszi is a dolgát rendesen, azonban amikor tűzfalon le van tiltva, akkor a fájlt létrehozza a szerveren, ám az üres marad. Ezzel az a baj, hogy ami addig benne volt, azt is letörli belőle.
Szóval hogy lehet megállapítani, hogy csatlakozva vagyok-e és fájlt módosítani is tudok?
Ez nem jó:
procedure TForm1.Button1Click(Sender: TObject) ;
begin
try
IdFTP1.Connect ;
except
ShowMessage('Hiba') ;
end;
end;Vagy hogy lehet az, hogy csatlakozva vagyok (a fentebb írt ellenőrzéssel), de a fájlt nem tudom feltölteni a korábbi helyett?
Ha a tűzfalat letiltom (átengedem a progit), meg megy gond nélkül.
═════════════════════════════════════════
-
félisten
válasz RootRulez #1886 üzenetére
Nem mostanában FTP-ztem, de ha jól rémlik, akkor ez az Indy FTP Component lesz ugye?
Ha igen, akkor a PUT-al lehet feltolni fájlt, ezt ellenőrizd, mert ott meg fog jelenni a hiba.
Kivédeni ilyen eseteket úgy lehet, hogy más néven tolod fel a fájlt, majd ha az sikeresen lezajlott, akkor törlöd a régit, ezt az utóbbi feltöltöttet meg átnevezed a szerveren.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)
-
Brown ügynök
senior tag
Szeretnék létrehozni egy az Access-hez hasonló lekérdezés tervezőnézetet.
Kérdéseim:
Hogyan tudom megoldani grid-nél, hogy a fejlécek, egymás alatt a bal oldalon legyenek?Hogyan lehet cb-t berakni egy rácsba, aminek értékeit az adatbázisból kinyert adatokkal töltjük meg?
"hacsak nem jön a jó tündér break utasítás képében..."
-
oliwaw
csendes tag
Üdv. Hogy lehet TTimer nélkül órát irni :
-
nihill
őstag
Jó régi topic, de most felhoznám.
Hogy tudnék olyat csinálni, hogy egy Excel táblázat adott cellájában szereplő képet beolvassak, átvegyek valahogy a programomba? -
sanzi89
addikt
Valaki tud valami trükköt arra, hogy SQL parancs futása közben ne szaladjon a hozzá kötött BDGrid? A lényeg az volna, hogy ha mondjuk keresek egy sort, akkor a keresés folyamata közben ne szaladjanak a sorok és amikor megtaláltam a rekordot, akkor alljon oda. Illetve még valami olyasmi is jó volna, hogy az aktualis rekord mindig a Grid közepén legyen, ne menjen le a Grid utolsó sorára. Vagy bilibe lóg a kezem?
"Mindent azért kell tudni mert kérdezik, nem azért mert hasznos."
-
D@ni88
addikt
Sziasztok.
A munkahelyemen sajnos Delphi 6-ban fejlesztünk. Arra lettünk figyelmesek, hogy maga a fejlesztett program sokkal gyorsabb XP-n mint Win7-en.
Esetleg nem tudjátok mitől lehet?
Köszi.Dani
-
Delphi-hez nem értek, de annyit tudok javasolni, hogy nézzétek meg, a Windows mely részeit érinti a program akármilyen szempontból (fájlrendszer [hová ír], regisztrációs adatbázis, ilyesmi). Általában, ha valami XP-ről nem megy rendesen Windows 7-en, akkor valami alap működési elver sért.
-
sanzi89
addikt
Delphiben mivel lehetne egy string-et megfelelő elválasztó karakter segítségével szétdarabolni? Ezer meg egy Split-es szirszart próbáltam, de egyik se ment. A franc se gondolta volna, hogy 7.0-ás Delphiben ez ilyen nagy feladat...
"Mindent azért kell tudni mert kérdezik, nem azért mert hasznos."
-
drkbl
őstag
válasz sanzi89 #1892 üzenetére
A D7 helpjéből:
DisableControls method (TDataSet)
Usually DisableControls is called within the context of a try...finally block that reenables the controls even if an exception occurs. For example:
with CustTable do
begin
DisableControls;
try
First;
while not Eof do
begin
{ Process each record here }
Next;
end;
finally
EnableControls;
end;
end;[ Szerkesztve ]
-
drkbl
őstag
válasz sanzi89 #1895 üzenetére
WrapText MaxCol=1-el?
Description
WrapText scans a string for occurrences of any of the characters specified by nBreakChars and inserts a line-break, specified by BreakStr, at the last occurrence of a character in nBreakChars before MaxCol. Line is the text WrapText scans. MaxCol is the maximum line length.
-
sanzi89
addikt
Köszi az ötleteket, végül karaktertömbként kezeltem a Stringet, és végignéztem minden karakterét. Elég gány, de működik.
Újabb gondom akadt, hogy egy Image komponensbe, ami álló tájolású beszúrok egy fekvő tájolású képet, akkor önhatalmúlag elforgatja a képet. Ez mitől lehet?
"Mindent azért kell tudni mert kérdezik, nem azért mert hasznos."
-
sanzi89
addikt
válasz sanzi89 #1898 üzenetére
Kérdésem tárgytalan, a köcsög IrfanView szopatott meg. Ha elforgattam vele egy képet és elmentettem, akkor nem mentette el valójában a képet, csak gondolom valamilyen bejegyzést állított, így elforgatva nyitottam meg. Ha például megnyitottam Paint-ban, akkor elforgatás nélkül látszódott.
"Mindent azért kell tudni mert kérdezik, nem azért mert hasznos."
-
sanzi89
addikt
válasz sanzi89 #1899 üzenetére
Újabb kérdésem lenne. van egy Form-om, amin semmi sincs, csak 1 darab kép megjelenítése. Az lenne a cél, hogy a Form mindig akkora legyen, mint a monitor, tehát töltse ki a teljes képernyőt. Ezt meg is tudtam csinálni a WindowsState wsMaximized-re állításával. Ezen a Form-on kellene egy kép, ami megjelenjen, de teljes felbontásban, görgetősávokkal a szélén. Na, ez nem akar sehogy se összejönni. Ötletek?
u.i.: Sőt, a legkirályabb az lenne, ha először teljes képernyőben jelenne meg a képet teljes képernyő méretre kicsinyítve, majd kattintás után a valódi méretben jelenne meg a kép.
[ Szerkesztve ]
"Mindent azért kell tudni mert kérdezik, nem azért mert hasznos."
Új hozzászólás Aktív témák
- Eladó egy komplett PC (RTX 3070, Ryzen 5 3600, 32GB RAM)
- !! AKCIÓ !! 1 ÉV GARANCIA !! Független Apple Iphone 12 Mini 128GB.
- Samsung Galaxy S23 Ultra 512GB 5G Dual Sim + fólia, Spigen Rugged Armor tok
- Dolby Atmos / DTS:X hangprojektor HT-G700
- Bomba ár! Lenovo Miix 700-12ISK : m7-6G I 8GB I 256GB SSD I 12" QHD Touch I Cam I W10 I Garancia!