Hirdetés
- Vezetékes FEJhallgatók
- Fejhallgató erősítő és DAC topik
- 5.1, 7.1 és gamer fejhallgatók
- Azonnali informatikai kérdések órája
- Házimozi belépő szinten
- AMD Navi Radeon™ RX 9xxx sorozat
- Milyen billentyűzetet vegyek?
- TCL LCD és LED TV-k
- Azonnali notebookos kérdések órája
- Impozáns lesz a következő Intel CPU generáció csúcsmodellje - is
Új hozzászólás Aktív témák
-
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.

-
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!
-
RootRulez
félisten
válasz
RootRulez
#1804
üzenetére
És meg is válaszolnám a kérdésemet:
uses COMOBJ;
//Deklarálás
procedure Shell_MinimizeAll;
var
Shell : OleVariant;
begin
Shell := CreateOleObject('Shell.Application') ;
Shell.MinimizeAll;
end;//Használata
procedure TForm1.Button1Click(Sender: TObject);
begin
Shell_MinimizeAll;
end; -
RootRulez
félisten
Sziasztok!
Hogyan tudnám megoldani, hogy a programom azt érje el, mintha az Asztal megjelenítésére kattintottam volna? Tehát, mindent levigyen a tálcára...
Arra gondoltam, hogy a program szimulálná, mintha lenyomtam volna a win+d billentyűkombinációt. De sajna vagy csak a Win billentyűt, vagy csak a D-t tudom szimulálni külön, egyszerre nem megy.
Tudnátok vmi megoldást a problémámra?Köszi: RR
Új hozzászólás Aktív témák
- Z790 Strix-A, 14700K, 2x16GB 7200 mhz, Tuf 4080, Corsair H1000i
- -ÚJ,2 ÉV GAR- GAMER PC: RYZEN 7 5700/5800X +RX 6600/6700XT +16-64GB DDR4! SZÁMLA! 70 féle ház!
- Üzletből, garanciával, DeLL Inspiron 16 5630 -i5-1340P-16 szál/16RAM/512SSD/16,1"FULLHD IPS
- -ÚJ,2 ÉV GAR- GAMER PC: i5-14400F (10mag/16szál) +RX 6600/6700XT +16-64GB DDR4! SZÁMLA! 70 féle ház!
- Thrustmaster T-GT II bázis - Thrustmaster Sparco P310 - Thrustmaster T3PM pedál - Playseat Evolution
- GYÖNYÖRŰ iPhone 12 mini 256GB Red -1 ÉV GARANCIA -Kártyafüggetlen, MS3627
- HIBÁTLAN iPhone 13 Pro 128GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3667 100% Akkumulátor
- DELL Precision 5540 Workstation i7-9850H Nvidia Quadro T2000 32GB 512GB 15.6" 1év garancia
- Azonnali készpénzes INTEL CPU AMD VGA számítógép felvásárlás személyesen / postával korrekt áron
- Lenovo ThinkPad L16 Gen 1 - 16" WUXGA IPS - Ultra 5 135U - 16GB - 512GB - Win11 - 2,5 év gari
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő
Ezzel az a baj, hogy ami addig benne volt, azt is letörli belőle. 
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.


