(...) jak uwzględnić zmianę kąta w jednostce czasu, W timerze przyrost kąta? Tak i nie. Jeżeli kąt będzie stale rosnął, to w końcu braknie Ci precyzji i zaczną dziać się dziwne rzeczy (najpierw ruch będzie nierównomierny, a potem pewnie się zatrzyma). Po każdym pełnym obrocie (kąt >= 2*PI) trzeba wartość kąta sprowadzić z powrotem do zakresu 0..2*PI...
bardzo fajne, mi to jak na razie zbytnio nie wychodzi... ale można tak wprowadzać kody 3 i 4 cyfrowe?? Wszystko można. Trzeba tylko napisać odpowiednią procedurę. Wrzuć wszystkie materiały (mogą być na PW), abym wiedział jakie jeszcze mogą być problemy. Czy np. wszystkie opisy są takie jak na obrazku, czy mogą być dłuższe, kilkuzdaniowe. To wszystko...
TEMAT NIEAKTUALNY !!!! - wystarczy zadeklarować wszystkie biblioteki utworzonych form w nowej bibliotece! To straszne że na to nie wpadłem ... Dzięki dla tych którzy tu zaglądnęli zeby pomóc Witam, tych którzy tu zaglądnęli chciałem zapewnić że nie mam problemu z utworzeniem nowego Unitu. Mój problem to: po utworzeniu formy i biblioteki z nim związanej...
Napisałem sobie prosty program na procesor, który po otrzymaniu danego znaku przez RS232 wystawia jedynkę na określonym pinie. gdy podłączam układ do komputera i w aktywnym oknie Hyper Terminalu naciskam np. 1 na klawiaturze, to procesor wykonuje określoną akcję, zgodną z tą zaprogramowaną. Jednak, gdy wywołam z delphi procedurę: ComPort.WriteStr('1');...
Na szczęście C++Builder korzysta z tej samej biblioteki, co Delphi i przeniesienie powinno sprowadzić się do zmiany składni pomiędzy językami. (mam nadzieję że znasz podstawy składni jednego i drugiego). Jeżeli będziesz miał jakieś kłopoty, spróbuję coś jeszcze pomóc. Na razie parę podpowiedzi: C++ nie uznaje zagnieżdżania procedur, procedurę DrawCross...
Witam. Poniżej standardowa procedura do ściągania pliku, która chciałbym usprawnić, mam nadzieję że nie przestarzała, ale u mnie się na razie sprawdza. Szukam informacji na temat jak ograniczyć prędkość ściągania a konkretnie idealne było by: 1. Jak sprawdzić prędkość pobierania z danego stanowiska np. SpeedNet=?B. 2. Jak zabezpieczyć się przed zawieszeniem...
Witam. Szukam osoby, która napisze dla mnie procedury rysujące (na dowolnym canvas'ie) rysunku z pliku grafiki wektorowej DXF (tylko krzywe - kontury rysunku 2D) przy czym zależy właśnie na funkcjach rysujących czyli używając tylko i wyłącznie "stawianie" pojedynczych pikseli a nie np okręgu (należy go narysować własną procedurą punkt po punkcie). Ewentualne...
Tworzę własną procedurę, ale nie mogę w niej np. zmienić parametrów komponentów. Zapewne coś muszę dopisać w deklaracji procedury, tylko co? Mam Delphi 7 Enterprise.
witam mam problem - mianowicie napisalem program i zawiera on min. 5 procedur z ktorych chciałbym wylosowac podczas jakiegos zdarzenia 1 z nich ale nieardzo wiem jak to zrobic mimo usilnych pob nieudalo mi sie uzyskac tego efektu prosze wiec o pomoc. programuje w delphi.
Witam. Może ktoś kto ma odpowiednią wiedzę mógłby napisać komponent do delphi do obsługi termometru 18b20. albo ktoś kto ma już gotowe procedurki o zamieszczenie ich w tym dziele. Jeśli ich nikt niema to może niech mi ktoś pomoże jak obsłużyć ten układ (bo na razię podpinam układ do komputera bez żadnego mikroprocesora) Mam delphi 7. Czy komponent cport...
Witam. Do tej pory stosowałem beep bezparametrowo i wszystko działało poprawnie - był odgrywany przez kartę dźwiękową domyślny dźwięk z windowsa (wave). Wczoraj zainstalowałem nowszą wersję TurboDelphiExplorer i teraz "beep" wymaga dwóch parametrów - częstotliwości oraz czasu trwania dźwięku i jest odgrywany przez speaker.... hmm - teraz wszystkie programy...
Witam, Jestem początkującym i nie wiem jak napisać procedurę zmieniającą kolory w editach w zależności od warunku. Zmiennymi są komponenty Edit1, Edit2, Edit3. if (Edit1.Text = '1') and (Edit2.Text ='WYL') then begin Edit3.Color := clRed; Edit2.Color := clRed; end; end; Będę wdzięczny za pomoc. pozdrawiam
Witam od razu przyznaję że marny zemnie programista tworze sobie katalog części oparty o firebirda, całość powstaje w Lzarusie :) Napisałem taką procedurę do wyszukiwania [syntax=pascal]begin if CheckBox1.Checked then begin try if SQLQuery1.Active then SQLQuery1.Close; // jesli SQLQuery1 wlaczony to wylacz // uaktualnianie DBGrida if IBConnection1.Connected...
Witam! Mam nadzieję, że problem opiszę wystarczająco dokładnie. Z wielu FAQ próbuję nauczyć się rysowania w swoim TForm. Używam do tego oczywiście Canvas. Napisałem kilka procedur, które mają wyświetlać formy graficzne. Dopóki wywołuję je np. poprzez jakiś TButton (Button1Click(Sender: TObject);) to znaki się wyświetlają zgodnie z planem. Nie potrafię...
Witam; mam taką procedurke zapisująca mi dane do pliku .txt z pola Memo: [syntax=delphi]procedure TForm1.Button3Click(Sender: TObject); var TF : TextFile; i : Integer; begin AssignFile(TF,extractfilepath(applicatio... ); try Rewrite(TF); for I := 0 to Memo1.Lines.Count do Writeln(TF, Memo1.Lines[i]); showmessage('Zapisano w pliku:...
Witam nie mogę sobie poradzić jak wywołać procedurę jej prototyp tak wygląda [syntax=delphi]procedure TForm1.TrackBar1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: integer);[/syntax] W przypadku buttona sprawa była prosta [syntax=delphi]Button1Click(Sender);[/sy... niestety w tym przypadku nie mam pomysłu jak to ma być wywoływane....
Witam !, Interesuję się jako hobby programowaniem w delphi.Jak poprawnie zapisać w tym języku procedurę losującą aby żadna wylosowana liczba nie powtarzała się jak np. w lotto. U mnie wychodzą takie "dziwolągi" jak np. 0,0,9,15,32,32 lub 16,29,31,42,42,49 itd. Bardzo proszę o pomoc ! Pozdrawiam !
Witam, Jak mogę pokryć procedurę ReadLN z dodaniem do niej kilku rzeczy? Mam z pozoru prosty problem, ale nie mogę wykombinować co robię źle. W aplikacji za każdym razem gdy wczytuję linię przetwarzanego pliku chciałbym dodać kilka rzeczy. Za wiele razy wywołuję w różnych miejscach programu tę funkcję, więc pomyślałem, że sobie po prostu pokryję procedurę:...
Dzień dobry Nie wiem jak pokryć procedurę nie będącą konstruktorem danego obiektu. Mam następujący obiekt: S = TCheckListBox i dodaję do niego elementy poprzez S.Items.Add(element). Chciałbym pokryć procedurę dodania elementu, żeby każdy dodany element był przekazywany także do innego stringa, więc wykombinowałem, że wraz z procedurą tego obiektu powinno...
Proszę o wylogowanie radia cd 30 i odczyt kodu z pliku 24c32
Witam, może temat brzmi dość nietypowo, ale nie wiem jak to zwięźlej ująć. Konkretnie chodzi mi o elastyczny wskaźnik na zmieniającą się funkcję lub procedurę, czyli możliwość dynamicznego przypisywania zmiennej typu proceduralnego różnych funkcji (raz procedura innym razem funkcja o zupełnie odmiennych parametrach). Pewnie w dalszym ciągu jest to dość...
W Delphi mam coś co sie nazywa TBitmap. I mam gotowe procedury do rysowania linii, rostokątów. To mi się podoba. I mogę także dostać się do każdego pixela z osobna. Ale to jest strasznie powolne. I to mi się juz nie podoba. Szczegulnie jak chcę porównywać ze sobą jakieś dwa fragmenty 2 bitmap pixel po pixelu. Może i do tego jest procedurka, ale nie...
Potrzebuję w Delphi program do sterowania pinami GPIO układu PL2303HXA. Nigdzie nie mogę takiego gotowego znaleźć. Jest sporo przykładów jak tym sterować w C/C++ jednak ten język jest mi obcy ;( Zamieszczam źródło przykładowego program w C++. Jeśli ktoś potrafiłby to przerobić na delphi to byłbym bardzo wdzięczny. Może ktoś ma gotowe procedury do obsługi...
Dobra. Widzę, że zaczynamy się kręcić w kółko. A tego nie lubię. Zmieniłem odrobinkę twój skrypt PHP. Wywaliłem wszystko co jest związane z bazą danych, bo nie jest to tematem tego wątku. Jak widać, skrypt zwrócił poprawną odpowiedź, sprawdził hasło i napisał, że hasło jest poprawne. W przypadku, gdy podasz złe hasło, odpowiedz serwera jest odpowiednio...
Dodano po 16 przepraszam, ta procedura ostania (procedure TForm2.Button1Click(Sender: TObject);) , to mój bład, niepotrzebnie ja wkeliłem, to ostatnie mojej wypociny,niedokończone, własnie tu szukałem błedu Dodano po 56 problem jest opisany przez Cyfowego Barona w temacie Tekstowa baza danych, ale rozwiazanie jest w c++, niestety dla mnie przekonwertowanie...
Witam. Mam do zrobienia na studia liste jednokierunkową w Delphi. Jest to mój początek w tym języku programowania. Czytałem kilka poradników i analizowałem różne kody. Dla lepszego zrozumienia tego zadania postanowiłem sobie napisać to w języku C++. Jednak nadal nie mam pomysłu jak to przetworzyć na Delphi. Ogólne założenia programu: 1.Lista z pliku...
Witam. Oto poprawiona procedura; Const maxx=1024;{maksymalna szerokość obrazka w pixelach} maxy=768;{maksymalna wysokość obrazka w pixelach} Type punkt=record red:byte; green:byte; blue:byte; end; var InvertRys:Array[0..3*maxx*mxxy]of Byte; Tablica:array[0..maxx,0..maxy]of punkt;{zmienne globalna} procedure LoadBMP(FileName:String;var W,H:Word); var...
1. Zrób nową formę. 2. Wstaw na formę 3 Edit-y. (Edit1, Edit2, Edit3) 3. Wstaw na formę 1 Memo. (Memo1) 4. Wstawiasz jeden przycisk. (Button1) 5. Zmodyfikuj swoją procedurę liczącą w ten sposób : [syntax=delphi]procedure P(var A: string; B: string; R : integer); //zmiana var J: Word; C, D: string; begin { P(N,N) >> R=Slen } if Length(B) = SLen - R then...
Powiem tak: W Delphi jest masa innyhc przydatnych rzeczy niz stare dosowe procedury. Myślę, że lepiej zrobic to obiektowo, zdarzeniowo, komponentowao, czy jak tam jeszcze chcesz. Przede wszyskim znajdz komponenty TFileList, albo jakos tak. Do tego masz komponenty TDriveBox i jeszcze jakies, obecnie nie pamietam. Na tego podstawie, mozesz zbudowac cos...
ListBox1.Items.Strings umieszczone np. w procedurze onClick. Nic dodać, nic ująć ;P
Chcę, aby po włączeniu programu pojawiał się na jego oknie obraz jpeg. Wpisuję odpowiednią procedurę do zdarzenia OnCreate, ale obraz się nie wczytuje. Jak to zrobić? Proszę o pomoc. P.S. Kiedy tę samą procedurę dam do zdarzenia OnClick to wszystko jest OK i obrazek się wczytuje.
Musiałbyć podczepić własną procedury pod obsługe mysze, jest to jaknajbardziej wykonalne (można nawet ruszać myszką albo zablokować jej ruchy). Własną procedury musisz umieścić w zewnętrznej bibliotece dll (to jest po to żeby wszystkie programy miały do niej dostęp). Poczytaj dokładnie tutorial iczeliona
Mam problem z procedurą: procedure otworz_projekt; var i,z,j,znak:integer; linia,linia2:string; tablica:array[0..23,0..79] of string; begin assign(p,nazwa); reset(p); {ZABEZPIECZ PRZED NIEPOPRAWNĄ NAZWĄ !!!!!!!!} readln(p,linia); ile_zakladek:=strtoint(linia); memo[0].lines.add(inttostr(ile_zakladek)... if ile_zakladek>=30 then ile_zakladek:=29; z:=1;...
Wykonałem program testowy z Twoją procedurą wydruku i działa jak należy. Próbowałem wydruk na drukarkę laserową i do pliku *.pdf. W załączniku przykładowy wydruk. Pozdrawiam... Edit: sprawdź wartość RowCount w StringGrid .
W Timerze ustawionym na 100ms jest wstawiona procedura wytwarzająca 4410 próbek dzwięku stereo (44100 próbek na sekundę). Próbki są typu Word (0..65535 z wartością średnią 32768). Jak je teraz w czasie rzeczywistym odtworzyć w systemie? Nie chodzi mi o odtwarzanie wav-ów z dysku ani o coś innego podobnego tylko o bieżace odtwarzanie danych generowanych...
Witam, najprościej chyba będzie wrzucić dodatkowe trzy kontrolki ComPort, będziesz miał wtedy ComPort1,ComPort2,ComPort3,ComPort4, i teraz albo masz jedna procedurę (zdarzenie) podpiętą pod wszystkie kontrolki albo dla każdej osobne zdarzenia, lub też bardziej zamotać i zrobić tablice obiektów TComPort i kombinować w tym kierunku. Trudno mi tak z fusów...
Witam was, To znów ja Karek. Mam taki problem znalazłem Listę kontaktów. i nie wiem jak ją przerobić kod pod mój program ,ponieważ mój program bot, dzieli się na bota i komunikator, chciałbym tak aby Mam Memo2 i Send z procedurą procedure TForm1.Button8Click(Sender: TObject); begin hgg1.SendMessage(strtoint(edit5.... memo2.text,...
Hm... Popróbuję później i dam znać jaki jest rezultat. A jakby ktoś miał jeszcze jakieś pomysły to piszcie :) EDIT. Wiem że do zmiennej temp wczytuję bez znaku. Jest to celowy zabieg bo ja odcztuję pojemność (zawsze dodatnia) :) A gdybym odczytywał ze znakiem to w przypadku wartości dodatniej pierwszy znak temp'a były spacją więc wymagałoby to dodatkowych...
Witam. Piszę program w Delphi, który steruje urządzeniem z przekaźnikami przez port USB, jednak pojawił się jeden problem - nie wiem jak przypisać do przycisku pewną "rzecz". Chodzi o to, żeby po naciśnięciu buttona program załączył przekaźnik, ale tylko wted, gdy jest wciśnięty. Załóżmy, że jest procedura1, która włącza przekaźnik i jest procedura2,...
Siedzę już chwilę na elektrodzie i podczytuję porady mgr inż Dżyszla i staram się korzystać z każdych dotyczących Delphi. Nie zauważyłem jednak jakiejś zmiany wydajności działania programu. Testu dokonywałem dla średniego czasu działania stu pełnych symulacji i średnie nie różnią się właściwie między sobą. Powinny? Może różnica jest jeszcze mniejsza?...
Czesc Chcialem zapytac jak pobrac tekst z komponentu edit, by pozniej dokonac na nim zmieny na bitach. Chodzi o to, ze pobieram sobie jeden znak z ciagu np z:=edit1.text Przeniosłem z działu Komputery Software
Po pierwsze primo: wypelniasz stojac poza prostokatem (patrz wartosc FloodFill(275,574,red); :!: :!: :!: Po secundo: skorzystaj z Rectangle(int,int,int,int) o czym mozesz poczytac tu : albo: procedure prostokat(x1:integer; y1:integer; x2:integer; y2:integer); begin line(x1,y1,x2,y1); line(x1,y2,x2,y2);...
Witam ! Proszę o pomoc w wykonaniu programu w Delphi. Do tej pory zajmowałem się głównie programowaniem mikrokontrolerów w asemblerze. Projekt który obecnie wykonuję wymaga jednak aplikacji PC wyświetlającej wynik wysłany z mikrokontrolera przez RS. Calość wygląda mniej więcej tak: 1. Mikronotroler zlicza impulsy z enkodera 2. Po stosownych obliczeniach...
Witam Na samym początku przepraszam za banalne pytanie ale jestem raczkujący w Delphi. Do rzeczy. Piszę prosty programik do komunikacji z układem ft232. Jak dotąd poradziłem sobie ze wszystkim i programik działa ale chciał bym aby zamiast klikania CheckBox zastąpić go Buttonem i tu mam mały problem. To jest procedura: [syntax=delphi]procedure TForm1.CheckBox1Click(Sender:...
Od kilku godzin próbuję rozpracować komponenty InterBase. Potrzebuję utworzyć bazę danych bezpośrednio z poziomu kodu w delphi. W IBDataBase jest procedura CreateDatabase jednak po za wyrzucaniem błędu nie robi ona nic. Oczywiście wcześniej ładuję do DatabaseName ścieżkę gdzie ma być utworzona nowa baza, do Params wrzucam nazwe użytkownika i hasło,...
Rozmumiem, że jesteś na poziomie programowania proceduralnego, Delphi to język programowania zorientowany obiektowo, dlatego proponuję również książkę z innej beczki, tj. " Symfonia C++ " Jerzego Grębosza, chyba tom trzeci. Autor w bardzo przystępny sposób wyjaśnia zawiłości programowania. Podaje ciekawe przykłady. Pojęcia takie jak polimorfizm, hermetyzacja,...
Chelloł ! Mam problem z rejestracją czcionek z poziomu Delphi. Moje pytanie jest następujące: Jak z pliku *.ttf odczytać wewnętrzną nazwę czcionki oraz jej typ, np: plik arialn.ttf zawiera wewnątrz nazwę Arial Narrow Normalny (TrueType). Te dane potrzebne są do zarejestrowania czcionki w rejestrze systemowym. Moja procedura działa następująco: 1. kopiuje...
Witam wszystkich i proszę o jakikolwiek namiar na porządne forum dotyczące programowania w zakresie grafiki w środowisku Delphi. Potrzebuje kilka poważnych procedur i funkcji. Z góry wszystkim dziękuję za pomoc. Pozdrawiam
Witam. Zaczynam dopiero opanowywać temat przechwytywania wideo w programach pisanych w Delphi. Korzystam z komponentów DSPack. Piszę program, który ma przechwytywać obraz z kamerki podłączonej pod wejście AV w tunerze i zapisywać w odstępie 1 minuty w formacie JPG. Potrafię już to zrobić :) ale mam pewien problem: Gdy wrzucam obiekt VideoWindow z pakietu...
Witajcie, zostałem poproszony o pomoc przy projektowaniu systemu wtyczek do aplikacji w Delphi. Wydaje mi się że najsensowniejszym rozwiązaniem jest udostępnianie interfejsów "nakładek" (wrappers) na funkcje aplikacji... jednak pozostaje pytanie jak przechwytywać zdarzenia z aplikacji we wtyczkach, czy lepiej by wtyczka implementowała jakiś interfejs...
Witam, piszę właśnie obsługę Modbusa (master) w Delphi. Do komunikacji przez RS używam komponentu TComPort. Problem w tym, że około 10% odebranych ramek ma ucięty początek. Procedura odbioru(bez dalszego przetwarzania) wygląda następująco: procedure TFkomunikacja.ComPort1RxChar(Sender&... TObject; Count: Integer); var odebrane:Ansistring;...
Może zacznij od obejrzenia źródła tej strony? Można np. z Firefox-a (wcisnąć Ctrl-U i pokaże), albo ściągnąć na plik wget-em (z Linux-a), czy htget-em (z Windows). Chyba, że dokładnie wiesz, co ten serwer wysyła. Firefox ma około 150 MB bibliotek używanych do parsowania tego, co dostaje, więc może lepiej nie próbować naśladować wszystkiego, co on robi,...
Piszę program którego zadaniem jest wyświetlenie dowolnego obrazka wiązką lasera. Dlatego, że laser potrafi wyświetlić tylko 100ptk/s z obrazu czarno-białego muszę wyznaczyć tylko te ważne punkty. Przykładowo dla lini, musiałbym wyznaczyć jej brzegi, a linia już wyświetli się sama. Dla kwadratu,albo trójkąta byłyby to wierzchołki i sprawa jest załatwiona....
Jezeli sie nie myle to wlasnie kod zrodlowy comport opiera sie na winapi,wiec mozesz go przejzec i skopiowac procedury i funkcje tak aby pasowaly do twojego programu ;) a wlasnie dlatego ,ze mialem problmy z przechodzacymi danymi w winapi przeszedlem na komponenty wiec przynajmniej ja nie pomoge
Rzeczywiście wcześnie pisałem a teraz zgubiłem.Ten komunikat dotyczy tej samej procedury.Czy źle tworzyłem Menu, że się czepia akurat do komponentu z kolorem czerwonym? Normalnie już szału dostaje przez to ,a zależy mi na tym bo to ma być na zaliczenie semestru :cry: Dodano po 2 W celu sprostania programu to ja robię to w ,,Lazarus" podobny do Delphiego...
Już to kiedyś robiłem z tą małą różnicą, że wysyłałem dane na RS. Aby wysłać to na LPT wystarczy zamiast komponentu ComPort użyć SmallPort i dokonać kilku zmian w procedurach. Pozdrawiam...
Chodzi Ci o coś takiego: Ustaw: Form1.BorderStyle:=bsNone; Pozdrawiam... Nie bardzo o to :cry: W twoim przykładzie tło znika całkowicie, a ma być półprzeźroczyste. Poza tym efekt jaki przedstawia zamieszczona przez ciebie procedura można uzyskać w samym Object Inspectorze ustawiając tło forma na clFuchsia (różowy) i ten sam kolor ustawić jako kolor...
Witam znajomy dał mi ostatnio program który pozwala na dzwonienie telefonu pod różne nr o różnym czasie który napisał pod delphi, sprawa ma się następująco że ten program działa tylko pod 95/98, ja bym potrzebował uruchomić go pod xp lub windows 7 znalazłem tam komponent o nazwie PortTools zródło zamieszczam poniżej.Serdecznie proszę o pomoc Proszę...
Witam Pisząc program do obsługi systemu sterowników natknąłem się na problem komunikacji. Sterownik komunikuje się standardowo z kompem przez RS232. Nowe Laptopy mają tylko USB. Jak w Delphim 6 można obsłużyć port USB. Jakie procedury i jakie LIB-y i skąd je pobrać. Pozdrowionka
Version info jest umieszczane w pliku podczas kompilacji i w efekcie masz - prawym klawiszem na pliku (exe oczywiście) - właściwości - zakładka wersja pliku. Jak w opcjach włączysz automatyczną inkrementację wersji to przy każdej kompilacji "build" zwiększy się. W kodzie już nie jest tak łatwo gdyż musisz odwołać się do całej struktury TFileVersionInfo...
juz robilem... Można wiedzieć w jaki sposób, procedura?
A rysowanie w takich aplikacjach? poprzez procedury z dll? I jak wstrzyknąć moją dll-kę napisaną w delphim do gry ? by wszystko działało.
Witam, Procedura dopisania to Append (dla plików tekstowych). Co do zawartości stringa, spróbuj może zamienić poszczególne znaki na ich kody. Przynajmniej będzie wiadomo dokładnie co się zapisało. Pozdrawiam
Dalej mam problem. Jak w tej procedurze wyświetlić zawartosc pliku w Memo. Dzieki
Jak to się mówi: prosił pan, zrobił sam :). Rozwiązanie okazało się bardzo proste. Tym sposobem można rysować zarówno na TMediaPlayer oraz oknach, pulpicie, itp. Oto główna procedura dla wszystkich, którzy w przyszłości będą mieli z tym problem. Temat uważam za zamknięty. Dziękuję i pozdrawiam... procedure TForm1.Button1Click(Sender: TObject);...
Chelloł ! Przeczytałem specyfikację formatu RTF i sam wykonałem niezbędne procedury (generacja nagłówka pliku, tekstu, tabel wraz z dowolnymi atrybutami). Nie wiem po co traciłem tyle czasu na szukanie komponentu jeśli generacja plików RTF jest dość łatwa. Temat (monolog) uważam za zamknięty :) Pozdrawiam...
Witam! Piszę program w Delphi7. Potrzebuję wykonywać pewną procedurę we w miarę równych odstępach 10ms - co jak się okazało nie jest możliwe przy użyciu komponentu TTimer (jego dokładność wynosi 55ms - tego doczytałem się w innych tematach na Elce). Z innych tematów nawiązujących do mojego problemu nie wywnioskowałem żadnego rozwiązania. Ma ktoś pomysł...
Cześć Komunikację realizujesz gotowym komponentem ComPort Library czy sam napisałeś procedurę ? Pozdrawiam
Utworzyłem DB w IB i tabelę user, wpisałem do niej dwie kolumny (login,haslo). Utworzyłem Form na którym umieściłem 2 szt TMaskEdit i TBitBtn. W procedurze przycisku wpisałem: begin IBQuery1.Close; IBQuery1.SQL.Clear; if IBQuery1.SQL.Add // ????? begin ShowMessage('poprawne'); Close; end; end; ciąg if ma porównać daną z kolumnę login z oknem login a...
Ta procedura wygląda mi na niezbyt poprawną. - W procedurze jest tworzony tymczasowy, lokalny, nie przekazywany gdzieś dalej, obiekt bmp ale brak destruktora na końcu procedury: [syntax=delphi]bmp.Free;[/syntax] - linijka: [syntax=delphi]bmp := Zdjecie.Picture.Bitmap;[/syntax] nie kopiuje obiektu, tylko zmienia wskaźnik bmp na wskaźnik tej drugiej bitmapy,...
Mój problem jest następujący: Napisałem program, w którego oknie przesuwają się dwa kwadraty (obiekty tshape), przesuwają się one w czterech kierunkach (góra, dół, prawo, lewo), kierunek dla każdego z nich wybierany jest losowo, co 1 milisekundę z szansą zachowania poprzedniego kierunku 99%. Procedura losowania kierunku: procedure tform1.klocek1; begin...
Włączanie poszczególnych Pinów LPTWitam Od jakiegoś czasu szukałem jak podać sygnał(5v) poszczególne Piny LPT np.żeby załączać diody...Aż w końcu do tego doszedłem i postaram się podzielić z wami moją wiedzą. Na początek jest nam potrzebny Adres portu.Przeczytamy go w tabeli: U mnie jest to LPT1 więc będę posługiwać się adresem 378. Możemy wykorzystać...
Witam. Musze dopisać do programu [syntax=delphi] program Project1; {$APPTYPE CONSOLE} uses Unit1,{wywolanie uzycia modulu 1} VAR x,y,z:mac; {3 macierze} w,k:byte; {wymiar macierzy w-wiersze k-kolumny} wyjscie:char; {wartosc konczaca program} BEGIN REPEAT {petla konczaca program} repeat {petla dla ilosci wierszy} write('PODAJ ILOSC WIERSZY MACIERZY a...
Cóż - w takim razie mam coś nie tak z programem. Jutro spróbuję przeinstalować. Możecie wierzyć lub nie - ale OI wskazuje obiekt ProgressBar, a odwołanie przenosi do Formy. Ale zrobiłem tak jak pisał Dżyszla (mgr inż): Ręcznie dopisałem do Formy trzy procedury: [syntax=delphi] type TForma = class(TForm) procedure KlickBar3(Sender: TObject; Button: TMouseButton;...
To co zostało skompilowane w Delphi for Windows nie będzie działać na serwerze Windowsowym Wręcz odwrotnie. To co zostało skompilowane do pliku EXE lub DLL, będzie działać tylko w środowisku Windows. B) Samodzielnie postawić prosty serwer oparty o architekturę Windows który będzie po prostu odpytywany a serwer firmy będzie tylko przekierowywał. Nie...
Poniższy komentarz jest zamieszczony dla tych, co nie rozumieją lub nie wiedzą, jak skorzystać z tego, co jest widoczne powyżej. Ja przedstawiam to trochę inaczej, chyba prościej, posługując się działającym przykładem. Przykład wszystko wyjaśni. Zrób tak. 1.Otwórz nowy projekt i umieść na formie pole Memo , dwa pola Edit i dwa przyciski Button 2.W sekcji...
SDK to jest Software Development Kit, czyli zestaw narzędzi do tworzenia oprogramowania. Generalnie chodzi o narzędzia, jako pliki pomocy, w których są opisane wszystkie funkcje i procedury występujące w danej bibliotece. Jest to plik helpa ( .hlp lub .chm niepamiętam ) gdzie wszystko jest szczegółowo opisane, czasami z przykładami. Dostęp do tegeo...
Witam. Mam taki problem, że Borland Turbo Delphi Explorer podczas próby generowania jakiegoś zdarzenia (dowolnego) wywala mi błąd - cały czas działało, i stało się to nagle :( - co mogłem nabroić? zdarzenia wygenerowane wcześniej działają. Dodano po 43 w pozostałych projektach wszystko działa poprawnie hmmm - co mogłem zepsuć ? - tylko ten jeden projekt...
1. Co zrobić żeby w Delphi 2007 po uruchomieniu projektu (lub jak uruchamiać projekt), żeby były otwarte automatycznie tylko te okna modułów na których mi zależy (które były otwarte przy zamknięciu; a nie tylko głównego modułu. 2. Delphi 2007 ma fajna funkcję zwijania kodu do jednej linijki z deklaracją procedury. Co zrobić aby po zamknięciu modułu/...
Witam mam programik w delphi do wysyłania tekstu przez ftp do pliku txt na serwerze Używam komponentu wymagającego chillkatSSh.DLL Więc program działa tylko wtedy gdy ktoś posiada tą biblioteke a kodzik wysyłający wyglada tak procedure TForm1.Button1Click(Sender: TObject); var handle: String; begin sftp := TChilkatSFtp.Create(Self);...
Witam. Mam procedurę napisaną w C++, którą umieściłem w bibliotece DLL. extern "C" { __declspec (dllexport) void testStr (char *strP) { MessageBox(0, strP, "-", 0); } } Usiłuję tą procedurę wywołać w Delphi procedure TMainForm.est1Click(Sender: TObject); var F1 : Pchar;...
Witam, Chciałbym usunąć n-ty element z listy jednokierunkowej, Definicja typu: [syntax=delphi] hak = ^pudlo; pudlo = record klucz : real; tytul : String[50]; rok : Integer; opis : String[255]; ocena : Integer; nastepny :hak; end;[/syntax] kod procedury [syntax=delphi]procedure TForm1.Button1Click(Sender: TObject, n: integer); var i : integer; akt,poprzedni...
Na formie Form1/ Unit1.pas mam komponent Image1, w module Unit2.pas nie chcę wstawiać Uses Unit1; bo tworzę "pokręconą"/uniwersalną klasę która chcialbym wywoływać z dowolnego modułu; W jednej z procedur np. UmageDraw(const FileName: String); chcę wczytać plik JPG o nazwie FileName i zamieścić go na TIMage albo poprzez uchwyt albo w ostateczności jakoś...
Witam. Czy ktoś może rzucić okiem co robię nie tak, w jednym programiku obsługuję tabelę w komponencie ZeosLib i wszystko jest ok, a w drugim jest podobne zapytanie - ale inna tabela i nie wyszukuje mi rezultatów. Używam Delphi 2007 ZEOSDBO-6.6.6-stable z [syntax=Delphi] Query.Active := False; Query.SQL.Clear; Query.SQL.Add('SELECT nick=:nick2 FROM...
Witam. Posiadam pewien problem. Jak na razie ''tworze'' w timerze. - Robię procedury + określam ich warunki. Jeżeli ich warunek zostanie spełniony wtedy wywołuję ów procedury. Niestety timer jest dość niedokładny, a nie wiem czy można//czym go zastąpić. Np. połączyłem mój ''program'' (o ile można to tak nazwać) z pewnym plikiem. W tym pliku co jakiś...
Musisz zrobić procedurę w klasie, bo ta co pokazałeś jest "na zewnątrz" (metoda globalna), o tak: [syntax=delphi] // na gorze pliku type TForm1 = class(TForm) // tu zawartosc klasy, przykladowo button Button1: TButton; // itd itp // ..... // TA LINIJKE DODAJ - TWoja procedura procedure Moja(); // ..... // itp itd procedury // TA LINIJKE DODAJ - Twoja...
Witam. Walczę już kilka dni i ciągle nic. W AutoIt wystarczyło dosłownie kilka linijek i katalog utworzył się na Chomiku bez problemu. A w Delphi 7 + Synapse, w którym piszę ciągle dostaję odpowiedź <500 Internal Server Error>. Poniżej gotowy kod, który loguje do Chomika prawidłowo, prawidłowo "klika" w ikonkę dodaj folder (jest prawidłowa odpowiedź),...
Cześć! Twoje błędy i niedociągnięcia: 1. Nie zainicjowałeś zmiennej czas0 . Przed rozpoczęciem obliczeń wszystkie zmienne powinny mieć określone przez programistę wartości. W Twoim programie przy pierwszym kliknięciu wartość czas0=0 , przy następnych wartość z poprzednich obliczeń. W procedurze Button1Click przed pętlą while wstaw czas0:=0; 2. Źle...
Zastanawiam się też, czy da się nie tyle stworzyć własne procedury, co właśnie zmienić te już istniejące - chodzi mi o to, żebym dalej wywoływał np. Bitmap.Canvas.LineTo, Pixels itp, z tym, że właśnie metoda LineTo będzie nadpisane - tak, aby najpierw nastąpiło odjęcie od wysokości bitmapy parametru Y, podstawienie pod Y tego wyniku i użycie już zwykłego...
Witam, mam taki oto kod: if PrinterSetupDialog1.Execute then begin Drukarka.Title:= 'Tytuł drukowania' ; Drukarka.Orientation:= poPortrait ; Drukarka.BeginDoc; ProceduraDrukowania ; Drukarka.NewPage ; Drukarka.EndDoc; end ; i jest ok, wywołuje mi się okienko z ustawieniami drukowania, wybieram wydruk szybki roboczy w skali szarości, a drukarka...
Postawiłem Timer na formę i w procedurze taimer'a wpisałem takie coś: procedure TForm1.Timer1Timer(Sender: TObject); begin canvas.Pixels[100,100]:=clwhite; sleep(500); canvas.Pixels[100,100]:=clblack; sleep(500); end; efektem tego jest migająca kropka jako proforma kursora...program jednak nie działa prawidłowo ponieważ ttimer uruchamia co chwilę swoją...
Witam mam pytanie jak uruchomic program przed ekranem logowania windows tuż po starcie systemu (po za ładownaiu shella) Jest to dość proste, pod warunkiem że jest to twój własny program. Musisz ten program przerobić, aby stał się usługą systemową (System Services). Wtedy możesz taki program zarejestrować jako SS i system będzie go uruchomiał wraz ze...
Drogi kolego ekomont . Rozumiem, że chciał kolega pomóc, ale proszę mi wytłumaczyć, jak zamieszczana przez kolegę procedura ma się do procedury CRC16 zamieszczonej w języku C, w poprzednim poście ? Pozwolę sobie sam odpowiedzieć na to pytanie : nijak! Poza wspólną nazwą oraz ogólnym zastosowaniem (kontrola błędów) obie procedury nie maja nic wspólnego....
A to przez USB jest? To sprawdź, czy masz sterownik poprawny. W końcu już się wkurzyłem i zrobiłem kilka eksperymentów Najpierw zacząłem wysyłać dane przez terminal i także było źle potem dopisałem do wysyłanych danych #13#10 do wysyłanych i zapętliłem program sprzętowo , i także źle W końcu "zapętliłem" dwa wynikowe programy na dwu różnych komputerach...
Witam. Przymierzam się do przygotowania różnych wersji językowych dla mojego programu i pomyślałem, czy można napisać procedurę, która powiedzmy do pliku csv wyrzuci mi wszystkie caption'y / hint'y (generalnie wszystkie widoczne teksty) z przycisków/labeli itp, a inna procedura działała by w odwrotny sposób pobierając dane z odpowiedniej kolumny......
W kodzie jest pokazane jak załadować z DBGrida do Edita więc mając już taki kod wszytko powinieneś sobie wykminić :) Pozdrawiam Tylko pod jakie zdarzenie to podpiąć? Korzystam z komponentu scalabium software - SMDBGrid jest tam zdarzenie OnGetCellParams które wykorzystuje do zmiany koloru komórki gdy komórka ma wartość mniejszą od założonej. Ale nijak...
Program do odzyskania skasowanych danych nic tu nie da.Ja zmieniłem zawartośc tego pliku.A zresztą dość dużo już kombinowałem i nawet ślad po tym nie został. :evil: A może idzie to z tego asemblera przetłumaczyć? W sumie to i tak były procedury z wstawkami asemblerowymi pzd
Nie musi tu być uses. Wcześniej (przed var) musisz zadeklarować ten typ gg_revc_msg w taki sposób jak opisałem wyżej, czyli: type gg_revc_msg=record sender:integer; seq:integer; time:integer; class:integer; message:string; end; var zmienna:gg_revc_msg; W uses podajesz jedynie nazwę biblioteki w której masz definicje typów, zmiennych, procedur i funkcji....
napisalem taki kod w delphi procedure TForm1.Button1Click(Sender: TObject); var hCOM:THandle; nrWrit:DWORD; nrRead:DWORD; Errors:DWORD; Dcb:TDCB; ComStat:TComStat; buf:array Dodano po 42 DOŁOŻYŁEM PETLE POMIEDZY WYSYŁANIE ZNAKÓW DO BUFORA A ODBIERANIE I WTEDY TO DZIAŁ, ALE CAŁY PROBLEM POLEGA NA TYM ŻE POWINIENEM CHYBA DANE WYSYŁANE Z MIKROKONTROLERA...
Zerknij na to: procedure TForm1.Button1Click(Sender: TObject); var Indeks: integer; begin with ListBox1 do for Indeks:=0 to Count-1 do Application.MessageBox(PChar(Ite... end; Procedura wyświetla MsgBox'y z każdym wpisem zawartym w ListBox'ie. Pozdrawiam...