Możesz brakujące funkcje bardzo łatwo zaimplementować w Delphi : program Project1; {$APPTYPE CONSOLE} uses SysUtils; {***********************... MAXIMUM(const dane : array of integer): integer; var idx : integer; begin result:=dane[0]; ...
Przed chwilą pracowałem w Lazarusie. Miałem tylko do dopisania jedną małą funkcję w dużym programie... rozmawiałem też z bratem, który na tym pracuje. Moje spostrzeżenia: -IDE jest beznadziejne. Normalnie pracuje w Visual C++ i komfort pracy jest tam nieporównywalnie lepszy. Jedyny mały plus to mając...
No bo masz podać tyle argumentów, ile wskazuje funkcja. Przecież to jest funkcja jak każda inna - nigdy nie napisałeś żadnej funkcji?
No to zrób dwie funkcje; kodującą i dekodującą. Wywołuj każdą z nich z parametrem, którym jest jedna linia z memo. Zwrócony wynik zapisuj z powrotem w tą samą linię. Poprawiony kod masz powyżej ; to samo ale bez dekodowania i osobnych funkcji.
Dziękuję sam bym nie wpadł na to :) Ze zmiennymi globalnymi się nie bawiłem ale były już mi kiedyś potrzebne ale widzę tu pewną rzecz Czy po zdeklarowaniu taka zmienna ma zawsze wartość zero (false) bo domyślnie np w warunkach if wartość prawda uznaje się za domyślną a tutaj nie ma zdeklarowania...
Zrobiłem z tym przesunięciem i jest ok. W Omedze jest podobny komponent z taką samą funkcją.
A moze ktoś umiejętnie przerobi istniejący kod (w załączniku calosc) i dzieki temu programik bedzie uzyteczniejszy o owa funkcję?
Mam Delphi7 (Build 4.453) Personal + zainstalowane indy 9.0 (9.0.19_d7). Indy zostało zainstalowane z automatycznego instalatora, w programie są widoczne, mogę wstawiać komponenty do formy itp. wszystko wydaje się być w porządku. Gdy skasuje .connect i wpiszę kropkę pojawia się lista procedur i...
Przekazując parametr PChar, to z samej jego natury wynika, że kończy się #0 (null-terminated string). W jaki więc sposób wywoływałeś funkcję?
Witam. A więc mam pytanie jak można napisać, po naciśnięciu przycisku wczytywał się wybrany obrazek. Jak narazie mam takie coś: procedure TForm3.Button6Click(Sender: TObject); begin Image2.Picture.Loa... I...
A czym się owo niedziałanie objawia? Jaki jest wynik działania funkcji?
a można jakoś zablokować możliwość przesuwania okna na czas wykonywania kluczowych funkcji ?
Delphi XE2 to pierwsze środowisko wydane przez Embarcadero (dawniej wydawane przez Borland), które pozwala na kompilowanie 64-bitowych aplikacji. Choć samo występuje wyłącznie w trybie 32-bitowym (wszystkie kompilatory Embarcadero są tworzone w... Delphi! Stąd dopiero przyszła wersja prawdopodobnie dostępna...
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...
Turbo Delphi to zintegrowane środowisko programistyczne stworzone przez firmę Borland umożliwiające programowanie w języku Object Pascal. Kontynuacja linii produktowej Delphi. Obecnie dostępne są dwie wersje Turbo Delphi: * generująca aplikacje Win32 (nazywana Turbo Delphi for Windows) ...
Witam, zakładam nowy temat, bardzo proszę o pomoc. Poradziłem juz sobie z samą biblioteką DLL w Delphi a teraz chciałbym wykorzystać jedną z funkcji ale w C++ Bulider. funkcja w DLL napisanym w Delphi ma taką definicję: function ScanStrSP(var Text: PChar; Sep: PChar): PChar; stdcall; i wyeksportowana...
Jeżeli nie chcesz zmieniać programu, aby wyglądał jak normalny program Windows, to możesz go (po kilku modyfikacjach) odpalić jako aplikację konsolową : program macierzowy; {$APPTYPE CONSOLE} uses SysUtils; { uses crt; - nie ma takiej biblioteki w Delphi} const N = 10; var ...
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...
Witam, z pliku .wsdl wygenerowałem sobie kod Delphi z klasami i interfejsem. Powstała jedna funkcja którą wywołuję. commandRequest (ten co trafi jako parametr funkcji) i wywołuję funkcję processCommandRequest . Wiem że serwer otrzymuje mojego XMLa i generuje odpowiedź. Wiem również że komponent...
Jako jeden z tych dwóch pozostałych na świecie programistów Delphi, dorzucę swoje dwa grosze. Błąd jaki otrzymałeś mówi dość wyraźnie: ta funkcja 'tu wstaw nazwę funkcji' nie może być wywołana z tymi parametrami. Dzięki wielkie program się skompilował elegancko;p Zrobiłem tak: ( (strtoint(edit1.text)...
Witam Chcę oprogramować w Delphi 7 port LPT korzystzjąc z biblioteki inpout32.dll. Problem sprawia mi zaimportowanie biblioteki i wywolanie zawartych w niej funkcji. Dostępne sa wszędzie opisy jak to zrobic w Visual Basicu oraz C++ Builder. VB: Public Declare Function Inp Lib "inpout32.dll"...
Listing ktory zamiesciles to deklaracje 5 funkcji. Ogolnie polega to na tym ze do funkcji przekazywany jest parametr (wartosc konta w stopniach) a nastepnie obliczana jest wartosc funkcji trygonometrycznej po przeliczeniu normalnych stopni na radiany. Jako podmianke proponuje listing w takiej postaci Const...
Gdyby był ktoś tak miły i znał się na Delphi oraz C++ to prosiłbym o przerobienie poniżej podanego Unitu Delphi, tak aby był Unitem includowanym dla C++. Oto kod: Delphi unit sensescriptRun; interface uses Classes, Forms; var cod:TStrings; procedure _AddCodeLine(line:PChar);...
Witam, Piszę program w DELPHI obsługujący pomiar dwóch czujników DS18B20. Mikro kontroler to ATMEGA32, program w BASCOM. Wszystko ogólnie już działa: wysyłam po UART ciąg znaków jako string i odbieram wybrane przeze mnie znaki o danej ilości funkcją Copy w DELPHI. Korzystam z biblioteki TComPort. Jedyny...
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...
Te warunki spełniam. Na wirtualnej maszynie udało mi się zainstalować Delphi w systemie Windows 10. Na Windows 7 uruchamiałem instalkę jako administrator, zmienna środowiskowa PATH po dodaniu ścieżek od Delphi ma 406 bajtów. Przypuszczam, że problem jest związany z .NET Framework 3.5, bo w systemie...
Do takich funkcji jest w internecie świetna biblioteka "Delphi Encryption Compendium Part" wersja podstawowa jest freeware, wspiera dużo funkcji hashujących (min. crc16, crc32, md5) oraz funkcji kryptograficznych (min. des, aes) a także gotowe funkcje operujące na strumieniach, buforach i plikach. Można...
Cześć Quine15 Sądząc po odpowiedziach niczego się nie dowiesz tu w kwesti programowania komunikacji w Delphi. Proponuje zajrzeć do książki "RS 232C - praktyczne programowanie. Od Pascala i C++ do Delphi i Buildera" Daniluka. O ile dobrze pmiętam to były trzy wydania tych pozycji. Bardzo przystępnie...
Okij, wyciągnąłem funkcje sterujące FT ze swojego programiku. Ponieważ pisalem go dawno temu, trochę zapomiałem niektore szczegóły, ale powinno to dzialac. W każdym bądź razie u mnie działało. No to po koleii : Na początek wykrywanie podłączonych urządzeń : FT_ListDevices((at)ile,nil,FT_LIST_NUMBE...
Witam! Chcę stworzyć funkcję, w której jednym z parametrów będzie obiekt (konkretnie TProgressBar), jak poniżej: void Funkcja(int Dane1, int Dane2, TProgressBar* ProgressBar); Mam w związku z tym dwa pytania: 1) Wywołując funkcję, co należy wpisać w miejsce parametru ProgressBar, jeżeli...
Witam! Mam sterownik kontrolujący pracę serwerowni. Cechą charakterystyczną sterownika jest to że posiada on możliwość wygenerowania danych poprzez http przy wpisaniu odpowiedniego adresu, np: Powoduje to uruchomienie się funkcji 'home' w sterowniku która za pomocą poleceń 'print' "drukuje" np....
Mógłbyś tylko dodać co jest daną wejściową? Łatwiej będzie o rozszyfrowanie działania. Tzn - jeśli podasz co ma wczytywać funkcja, czyli jakie dane mają być dla (d,m,r) to będzie łatwiej. Domyślam się, że chodzi o dzień, miesiąc i rok, tak? Przy okazji - w Pascalu, tak jak i w Delphi dość łatwo...
Witam wszystkich otóż piszę na zaliczenie program zegar analogowy nie powiem bo także przy pomocy internetu i w pewnym momencie stanąłem niby zegar działa ale... Właśnie wskazówki zmieniają długo przy zmianie godziny minuty wszystko zapewne przez funkcji Canvas.LineTo tylko nie wiem czy to można jakoś...
Komunikuje się z urządzeniem po protokole modbus. Mam problem z obliczeniem sumy kontrolnej. Znalazłem taką funkcję: [syntax=delphi] function TForm1.CRC16(str:string):string; var crc: word; n,i: integer; b:byte; temp,by:string; begi... := $FFFF; for i:=0 to (length(str) div 2) - 1 do begin by...
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,...
czy te dwa łuki są określone jakąś funkcją, czy są rysowane z ręki. Jeśli z ręki to będzie to raczej trudne, bo w delphi też trzeba to będzie napisać z ręki. A jeśli są to jakieś funkcje to trzeba to zrobić tworząc polygon o podanym kształcie (z odcinków) i potem można go wypełnić. Jeśli interesuje...
Spróbuj poszperać w strukturach lub funkcjach dotyczących stanu modemu. W Builderze takowe są ( chyba funkcja GetCommModemStatus() )a czy w Delphi 4.0 też ??? :?: - tego nie sprawdzałem
Cos w rodzaju kopiowania. Podaje sciezke da katalogu, z ktorego dane maja byc kopiowane, sciezke do katalogu gdzie dane maja byc kopiowane i w tym drugim katalogu utworzone zostaja wszystkie te same pliki oraz katalogi, z tym ze te utworzone pliki nie zawieraja danych - sa to puste pliki. Funkcje...
Program wygląda, jakby się zawiesił, gdyż cały czas wywoływana jest twoja funkcja. Powinieneś utworzyć nowy wątek (ang: thread) aby wyprowadzanie mogło działać w tle. Tu masz przykład, jak się to robi: W funkcji, która w podanym przykładzie nazywa się function THreadFunc(P: pointer) robisz...
Witam, do wysyłania poleceń z pod delphi używam dokładnie tej funkcji, którą przytoczyłeś w poprzednim poście (com2.SendStr(command + #13#10);) a do odbierania (Bascom) funkcji Input zmienna; Myślę, że umieszczenie całego kodu tylko utrudniłoby rozwiązanie problemu, gdyż jest dosyć długi...
Witam. Chciałbym zrobić prosty harmonogram, tzn. aby dana funkcja była wykonywana o określonej godzinie. Do wyboru dokładnej godziny służyć ma ComboBox, przyciskiem (Button) wywoływana będzie funkcja. Dokładniej mówiąc po kliknięciu na przycisk ma być wykonane funkcja o godzinie wybranej z ComboBox. Jak...
Algorytm to już jest, tylko interfejs użytkownika zamienić z DOS konsola na Windows GUI. Do tego wystarczy na delphi formularzu, przez kliknięcie myszką wprowadzić dwa elementy edycyjne z palety komponentów GUI, oraz dla wyniku funkcji etykiety Label. wtedy Edit1.Text:= IntToStr(n); // readln(n) oraz n:=...
Bardzo dziękuje za cenne podpowiedzi. Mam jeszcze kilka pytań: procedure DelayM( interwal_w_milisekundach :integer); var Start:longint; begin Start:= GetTickCount ; repeat Application.ProcessMessages; until ((GetTickCount-Start) >= Longint( interwal_w_milisekundach )); end;...
Jeżeli mówimy o wersji VCP (Virtual COM Port) sterownika do Ftdi to rzeczywiście istnieje taka opcja, prosta w implementacji jednak jest ona koszmarnie wolna. Drugą opcją w Ftdi jest D2XX i tutaj jest już lepiej jeżeli chodzi o szybkość, przyzwoita dokumentacja i wiele przykładów więc też nie ma z...
Istnieją również odpowiednie tłumaczenia funkcji całego DirectX na delphi. Wystarczy poszukać. Zresztą i tak wszystko polega na wywoływaniu gotowych funkcji, nie trzeba aż tak krytycznie znać składni danego języka tylko nazewnictwo w bibliotece DX.
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,...
1. Nazwa funkcji nie może pokrywać się z nazwą programu 2. W Delphi niejawną zmienną zwracającą wartość funckji jest zmienna Result 3. Do rozdzielania parametrów procedur/funkcji stosuje się średnik a nie przecinek. 4. Co to za wywołanie bez parametrów (25 linia) 5. Brakuje enda jednego w funkcji...
Witam Szukam czegokolwiek co by było nakierowaniem na trop: "jak programowo w Delphi dodać funkcję pod prawy przycisk myszy w Windowsie", chodzi mi konkretnie o listę operacji na plikach, folderach - czyli klikam na plik/ folder i jest grupa WinZip z funkcjami do wyboru... Nie chodzi o gotowca...
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...
Witam. Dowiedziałem się przez przypadek :), że moja aplikacja napisana w Delphi działa pod linux'em - ale oczywiście nie może być tak pięknie jakby się wydawało i działa wszystko (funkcje WinApi, dokładne odmierzanie czasu wyświetlanie grafiki itp.) oprócz jednego : komunikacja przez port szeregowy...
Witam, Jest jakaś funkcja w Delphi która mi przekaże jaki klawisz myszy jest wciśnięty w obrębie całego pulpitu, nie danej aplikacji? Funkcja mouse_event może symulować wciskanie na całym ekranie. Chodzi mi o coś podobnego, tylko z wykrywaniem przycisków, żeby nie wymagało uchwytów okna. Może dla...
Hm, jeśli stosowało się funkcję RawToBytes to odwrotnie to... hmm... setyBoTwaR? BytesToRaw oczywiście po wcześniejszym wczytaniu do TIdBytes Tak na marginesie, to TidBytes i TBytes to jedno i to samo. Indy po prostu wprowadziło to wcześniej, ale obecnie Delphi też ma ten typ. Można więc używać TBytes...
Witam, mam problem z Delphi ds150 łączy się z butem ale można tylko odczytywać i kasować błędy. Działa w trybie podstawowym i inne funkcje są niedostępne. Wyświetla się komunikat: Engine code and/or diagnostic id unknown. Generic protokół with standard informatorom willa be used.
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...
Witam... Muszę kupić delphi do tworzenia programów w celach komercyjnych i teraz mam dylemat.... Nie wiem na jakiej "minimalnej" wersji mogę pracować - wiadomo im niżej tym taniej ale funkcji mniej. Obecnie pracuję na Delphi 6 Personal i nie wiem czym różniły się poprzednie wersje - z tego co pamiętam...
Wszystkie założenia tego projektu, jakich się doszukałem w wypowiedziach kolegi, można zrealizować w jednym z wybranych języków; albo Delphi albo PHP. Zarówno dynamiczne tworzenie stron, dostęp i modyfikacja baz danych itd. itp. są to funkcje dostępne dla każdego z tych języków. Nie wiem czy...
Nie wiem czy te najnowsze Delphi mają wbudowaną obsługę portu szeregowego czy trzeba dodać jakiś komponent jak to w starym było. Takie komponenty są dostępne w dość dużej liczbie i znalezienie w miarę sensownego to zawsze problem. Generalnie, Delphi działając na Windows jest niewolnikiem systemu i...
Kolega wybaczy, ale zapis do katalogu 'Program Files' został utrudniony już w Windows 95. Potem Vista "dokręciła jeszcze śrubę" i pozwoliła na zapisywanie tylko w folderach typu: 'Application Data". Jeżeli używa kolega
Mam duży problem i nie wiem co z tym zrobić :cry: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ColorGrd, ExtDlgs; type TForm1 = class(TForm) Button1: TButton; PaintBox1:...
Jezeli dane do znaku wielkosci nie zmieniaja sie to mozesz wykorzystac funkcje copy wpisujac stala (liczba znakow do znaku rownosci wlacznie) od ktorego miejsca dana linia ma byc kopiowana, lub jezeli nazwy do znaku rownosci beda sie zmieniac to funkcja copy + funkcja pos
To zrób strtoint ew użyj funkcji val. I jeszcze jedno funkcja ceil nie oblicza zaokrąglenia tylko tzw sufit lub powałę. Zaokrąglenie oblicza funkcja round.
Witam, Mam program, który pobiera mi z procka jakieś dane. Za pomocą funkcji ComPort1.ReadStr(RevS,5); pobieram 5 bitów jakiejś informacji. Jednak mam wrażenie, że kolejne bity są doklejane do pozostałych już odczytanych. A ja chcę, żeby przed każdym wywołaniem funkcji bufor był czyszczony. Nie...
Hej, Mam funkcję która wygląda następująco: [syntax=csharp]public static string zapytanie_zwykle(string [] pola, string tabela, string [] warunki) [/syntax] Chciałbym ją teraz wywołać ale w dosyć specyficzny sposób, który działał mi w delphi, a mianowicie: [syntax=delphi]zapytanie_...
Witam kolegów. Mam małą zagadkę od kilku dni, chciałem się komunikować z np. z IPhone, pobierać informacje i wysyłać dane do niego. Mam Delphi 7, posłużyłem się gotowymi Dll, które są instalowane razem z Itunnes. Zacząłem wywoływać funkcje z jakieś dll, ale za każdym razem "Access violation" Na...
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...
Poniżej znajduje się kod mojego programu: Jeżeli ktoś udzieli pomocnej odpowiedzi, otrzyma 100 punktów
Cześć, używam DLL napisanej w delphi i napotkałem trudność w pobraniu łańcucha znaków. Funkcja interfejsu Delphi pobierająca napis: [syntax=delphi] function Nazwa: ShortString; stdcall; external LibraryDll; [/syntax] moja implementacja w C++ - w miejscu X nie mam pewności co za typ zastosować?...
Niepoprawna odpowiedź od (at)arnoldziq jest skutkiem punktu 2 z pierwszej mojej odpowiedzi. Drogi kolego. Nie wiem o co koledze chodzi, ale procedura w tej formie jest zupełnie poprawnie napisana. I o to się pytał autor tematu. I odpowiedz na to pytanie brzmi : Tak, procedura jest napisana poprawnie. ...
W sumie trochę się zaciąłem. Udało mi się zainstalować komponent, wyświetla się on w tool palette, bez problemu dodaję go do projektu, ale kompilacja kończy się błędem: --------------------------- ... Exception Notification --------------------------... QuickGroup.exe raised exception...
Chodzi mi o diagnostykę aut na obd 2 a nie na obd 1. Chodzi mi o wykazy filtra dpf wypalanie parametry silnika i kasowanie błędów. Chodzi mi o wszystkie funkcje z którymi poradzi sobie program Delphi.
Zgodnie z powiedzeniem :'Kto szuka ten błądzi...', chciałbym uzyskać pewne informacje na temat: Jak przechwycić kontrolę nad odtwarzaczem Bestplayer1.0 (w Delphi 3). Nadmieniam,że jestem po wyczerpującej lekturze artykułu o kontroli aplikacji multimedialnych poprzez delphi z www.webport.pl...
...z wlasnego doswiadczenia moge doradzic MySQL...do polaczenia z serwerem bazy oraz do zapytan i calej reszty wykorzystalem ZEOSLibrary www.zeoslib.net...to taki opensource'owy komponent dla Delphi, ktory w prosty sposob umozliwia polaczenie sie z baza oraz wykonywanie zapytan i czego zapragniesz...jest...
co do statusbara to będzie tak: dodajesz sobie "panele" w statusbarze i piszesz takie coś: form1.StatusBar1.Panels[tutaj nr panela liczony od zera].text:=zmienna typu string; rozbicie daty i godziny na kolejne "stringi" jest pięknie opisane w helpie, służy do tego funkcja "datetostr" i "timetostr" co...
PlaySound("x:\\denerwujaca_muzyczka.wav"... NULL, SND_FILENAME | SND_ASYNC); flaga SND_ASYNC to odtwarzanie asynchroniczne, czyli bez blokowania programu żeby zatrzymać: PlaySound(NULL, NULL, SND_PURGE); Kolega zapomniał jeszcze o fladze SND_LOOP - inaczej muzyczka nie będzie dość "denerwująca" :) A...
Skąd jest ta funkcja?
Witam Najprosciej bedzie (w kazdym ogolnym jezyku programowania) zamienic te daty do postaci tmestamp (liczba sekund od poczatku Epoki Uniksa ;) ) - jest to LongInt - a nastepnie je odjac od siebie a wynik z powrotem zamienic na date. O ile pamietam, odpowiednie do tego funkcje sa albo w samym delphi,...
Witam, nie procedura Delphi, tylko funkcja WinAPI. Możesz każdemu kluczowi przypisać dowolne zabezpieczenia za pomocą funkcji RegSetKeySecurity. Pozdrawiam, Krzysztof
Jest to jak najbardziej możliwe. Jak chcesz zobacz temat: Opracowałem tam program tylko nie w Delphi a C++ Builderze i nie dla Siemensów a dla GE Fanuków ale z tego co napisałeś spełnia te funkcje. Umożliwia odczyt i zapis wartości w sterowniku. Z tego co wiem mój kolega próbował z serwerem...
Mam bibliotekę pod Delphi 1.0 do obsługi drukarki fiskalnej, bo pod 7 nie chce DLL chodzić. Wydaje mi się że jest różnica w funkcji obsługującej port COM i najprostszym sposobem byłoby napisanie programiku do jej obsługi pod Delphi 1.0 lub 2.0. Nie mam za dużo czasu na to więc chciałem to zrobić jak...
Przeciez nic trudnego napisac wlasnego klienta ,nawet wskazane - jestesmy pozbawieni wtedy reklam. Dla przykladu skrobnalem logowanie wg opisu protokolu ze strony podanej wyzej, dziala ,wiec dopisanie reszty nie powinno byc problemem. Na forme 2 edity,button, idhttp i idtcpclient, zakladam ,ze pobieranie...
Podstawowe w takim przypadku pytanie, to : jak masz zdefiniowaną tablicę tbret ? Mnie się wydaje że ta twoja funkcja operuje na typie Single a wywołujesz ją zmienną typu Double . Zmień kod funkcji na taki , i zobacz czy będzie pokazywać błędy. function f_activate( const net: Double):...
Jak zwykle można na kolegę liczyć :) Kod w takiej postaci działa bardzo dobrze :D Blob pobieram ją do stringa i otrzymuje w miejscu polskich znaków pytajniki i nie wiem w czym rzecz kiedy wyświetlam stringa w funkcji SchowMessage mam pytajniki a kiedy wrzucam do Memo polskie znaki zamieniają...
Niezbadane są zasoby Internetu :)
Czemu nie zrobisz tego w ten sposób ? [syntax=delphi]function Swap32(value : dword) : dword ; assembler ; asm bswap eax end ;[/syntax] W ostateczności tak :[syntax=delphi]procedure Swap32(var src, dest) ; asm mov ecx, dword ptr[eax] ; bswap ecx ; mov dword ptr[edx], ecx end ;[/syntax] Przy...
No to jeśli chce PChar,to podaj mu w postaci PChar... [syntax=delphi]SetFileAttribut... +'/System.ini'), FILE_ATTRIBUTE_HIDDEN);[/syntax] Jeśli podajesz tekst wprost, to w rzeczywistości jest to traktowane jak PChar i ewentualnie niejawnie rzutowane na string....
JmL - wg mnie, to czy rejestr czy INI to obsługa jest tak samo łatwa, a klasy obsługujące w dużej części wręcz wymienne :) Ale to tylko taka dygresja. I tu sie wcale nie zgodze... Moze w Delphi nie ma roznicy [Delphi to i tak jedna wielka sieczka w kodzie] ale bazujac na czystym WinAPI - asm/c++...
Witam. Mam 14 lat i interesuję się informatyką oraz programowaniem w Delphi. Mam problem. Od wczoraj przeszukuję internet w poszukiwaniu informacji: 1. Jak obliczyć skutki kolizji 2 ciał fizycznych? :cry: . np. z wysokości 1m zrzucam szklaną kulkę. 2. Jak obliczyć na jaką wysokość się wzniesie...
Zacznijmy więc od ScanLine aby dostać się do punktów obrazu ;) Ponadto nie nadużywaj wywoływania funkcji dla uzyskania tego samego wyniku - zapamiętaj wynik DegToRad(Angle) w zmiennej i używaj we wzorze. Dzielenie, gdzie to możliwe, zastąp mnożeniem. A w ogóle zapoznaj się z tym, [url=]jak pisać wydajny...
Zostanę więc chyba przy HLP. Nie obraź się jak dodam "...a świat pójdzie dalej". Szczerze mówiąc CHM to już też przeżytek. Kto z nas czyta (naprawdę) helpa ? (za wyjątkiem programistów czytających opisy funkcji ). Zrób skrótowy "brief" pliku pomocy (dobry do przeczytania i nie nużący szczegółami)...
Jak czytam je przez terminal by br(at)y ustawionym na hex to otrzymuje 01 03 00 00 00 02 C4 0B jak ustawie na ASCI to mam krzaki. Czyli odbierasz bajty 'binarnie', że tak powiem 'normalnie'. Nie wiem co to za biblioteka, ale strzelam, że masz funkcje "Read" zamiast owego "ReadStr". Coś na...
Robisz zmienną (może to być wspólny zasób, pole klasy lub inne techniki wymiany danych między wątkami), a w reakcji na jej stan wykonujesz metodę uśpienia a po niej funkcję np. wykonania kolejnego przebiegu pętli (continue). Wzbudzenie oczywiście musi zawsze nastąpić z innego wątku. Generalnie to...
Dzięki, rozwiązaniem jest dodanie w moim kodzie stdcall do typu funkcji, czyli tak jak napisał Dżyszla [syntax=delphi]type TGetCredentials = function(aValue: Byte): PWideChar; stdcall;[/syntax]
Witam. Zagadnienie trochę niestandardowe ( chodzi bardziej o logikę niż programowanie ) ale zacznę od kodu: Klasa rodzic a właściwie jej destruktor fDoFree - flaga która miała by oznaczać że klasa jest w trakcie niszczenia i miało by to mieć swój skutek np w procedurze Save. Dla przykładu...
No widzisz. Bo wcześniej pisałeś że funkcji wysyłającej nie ma. Teraz wyszło że jest a jedynie nie działa. A ja bardzo nie lubię jak ktoś robi nieścisłości i nie napisze o nich tylko każe się ich domyślać :D A co do programu. Pętlę indexujesz od 1: [syntax=delphi]For i := 1 to HexEdit.DataSize do[/syntax] a...
Więc przerób na przyszłość na: [syntax=delphi]procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer); var Date1,Date2,Row,Str:string; begin ComPort.ReadStr(Str,Count); Memo.Lines.Add(Str); while Length(Str)>0 do begin Row:=Parse(Str,#13); Label1.Caption:='wynik odczytu...
Programowanie obiektowe (Object Oriented Programming) Tworzysz klasę która operuje funkcjami dostarczonymi przez bibliotekę - czasem takie podejście nazywa się wrapper
Te "linijki" pobierają obraz załadowany do kontrolki "zdjęcie", przeprowadzają na nim operację (Emboss kojarzy mi się z jakimś filtrem obrazu, ale nie sądzę, żeby to była wbudowana funkcja Delphi), a następnie przenoszą "poprawiony" obraz z powrotem do kontrolki.
Co do wysyłania SMS-ów (zgodnie z tytułem postu) z sytemu Android, to jest to banalnie proste:[syntax=delphi]uses FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText, ... Androidapi.JNI.Net, Androidapi.JNI.JavaTypes, Androidapi.JNI.Telephony, Androidapi.Helpers; procedure SendSMS (target,messagestr:string); var ...
A czy można w jakiś prosty sposób ustawić kursor w pozycji x,y na memo, po to żeby pózniej w to miejsce wstawić zawartosc stringa? coś na wzór memo1.pozycja x y , . ? Po prostu chciałbym żeby do czystego memo powstawiać w rózne miejsca kilka stringów tzn w rożne wiersze od rożnych kolumn . Dlaczego...
Podobno są 3 programy do uniwersalnych interfaców będących zamiennikami Delphi ds150 (np. Multidiag, WoW, Snooper). Posiadam dwie najnowsze wersje na płycie v3 (jednopłytowa i dwupłytowa). Osobiście testowałem program "Hexa" o nazwie Delphi 2016.1 (Win7 32bit). Niestety nie komunikuje się z połową...
witam. Mam wielki problem z operatorami RTTI w C++. Pod Delphi to bajecznie proste , a C++ :cry: jakie sa odpowiedniki (is , as) w C++ :?: może ktoś przerobić poniższy program z delphi ==> na C++ lub jakiś inny przykład ==============================... TForm1.Button1Click(Sender:...
Witam Sciągnołem z netu program napisany w Delphi pod XP do czytania i wysyłania danyxh z portu LPT. Program się wywala na funkcjach w asemblerze. Function PortWy(Adres:Word):Byte; asm mov DX,AX in AL,DX end; Procedure PortWe( Dana:byte; Adres:word); asm ...
Zobacz opis funkcji EnumProcesses, w MSDN nawet jest podany przykład jąk ją wykorzystać: #include <windows.h> #include <stdio.h> #include "psapi.h" void PrintProcessNameAndID( DWORD processID ) { char szProcessName[MAX_PATH] = "unknown"; ...
Ok dzieki, sprawdze. Wlasnie potrzebowalem przeciwienstwa ord-a. W swoich probach chyba nawet uzylem tej funkcji ale mi nic nie wyszlo. Widac uzylem jej w zlym kontekscie. UPDATE: Pomoglo, dzieki. Jak sie okazuje mialem tez blad kawalek wczesniej i dlatego wczesniejsze uzycie tej funkcji chr nie przynioslo...
Witam serdecznie :) Jakis czas temu musialem wykonac komputerowe sterowanie 100 urzadzen, zrobilem to za pomoca ukladow PCF 8574 podlaczonych do portu LPT komputera. Pomyslalem, ze rozbuduje biblioteke tak aby mozna bylo sterowac dowolnym ukladem lub urzadzeniem za pomocy magistrali I2C. Oto dostepne...
Witam Co do czyszczenia ekranu to jest funkcja clrscr. Jak chcesz użyć tej funkcji to musisz dołączyć biblioteke crt. Zatrzymanie programu zrealizujesz funkcją delay(czas_w_ms) w programie Turbo Pascal lub sleep(czas_w_ms) w Delphi. Pozdrawiam.
dodaj do uses Windows jesli nie masz.. a funkcje to: GetUserName (GetUserNameEx) - pobiera nazwe usera.. ale nie zawsze dziala poprawnie np. jesli program jest uruchomiony jako service. GetComputerName (GetComputerNameEx) - nazwa kompa GetWindowsDirectory - katalog windowsa GetSystemDirectory ...
A może dasz sobie spokoj z tymi komponentami z delphi i napisz na socketach samemu to połączenie. Będziesz miał dużo większą kontrolę nad tym co się dzieje. Gdzies w necie czytalem ze ten list sie wywala czasami dlatego ze serwer sie kaszani, a w innym miejscu czytalem zeby wlączyć tryb pasywny dla...
Szukałem na internecie, ale nie znalazłem nigdzie rozwiązania, wiec piszę tu. Chcę wydrukować zawartość StringGrida, który ma około 100 wierszy. Korzystam z gotowej funkcji, ale drukuje ona tylko jedną stronę, na której nie są wszystkie wiersze ze StringGrida. Próbowałem różnymi sposobami, ale nie udało...
Witam, Do otworzenia przeglądarki możesz wykorzystać funkcję WINAPI CreateProcess(). Tam możesz podać jaki program z jakimi parametrami ma być uruchomiony. Po utworzeniu procesu przez tę właśnie funkcję masz uchwyt do tego procesu i możesz go zabić (TerminateProcess() o ile pamiętam) po czasie jakim...
Witam serdecznie. Mam pytanie. Czy ktoś tworzył programy w Pascalu, Delphi, Lazarus... itp. z użyciem bibliotek Prodave? Chciałbym stworzyć prosty program odczytujący we/wy ze sterownika s7-300. Chodzi mi o deklaracje bibliotek i wywołanie funkcji odczytu tych we/wy. Jak to powinno wyglądać w...
Jeżeli masz taki zbiór danych nie da się w prosty sposób wybrać kilku największych wartosci.Za pomocą funkcji MAX() mozesz wybrać najwieksza wartosc, a pozniej zsumowac za pomoca funkcji SUM().Mozesz to zadanie rozbic na kilka operacji i ladowac najwieksze wartosci do tablicy a pozniej przeszukac tablice.Nie...
lineto() - laczy ci linie od punktu w ktorym aktualnie jest ustawiony wskaznik poczatku do punktu o wspolrzednych podanych jako parametry funkcji, czyli linie laczy ci razem, bo na koncu ostatniej znajduje sie aktualny wskaznik od ktorego ma zaczynac rysowanie przyklad przyklad Image1.Canvas.LineTo(100,100);...
Pogooglowalem sobie i w Lazarusie masz tylo funkcje Printer, w borlandzie msz jeszcze wlasnie procedure AssignPrn i funkcje SetPrinter
Witam, mam problem, ponieważ program działa pod WinXP bez problemu, pod Vistą już nie. Funkcja InternetOpen zdaje się działać bez problemu, bo zwraca wskaźnik na strukturę hNet, jednak kolejna funkcja InternetConnect zwraca nil. hNet := InternetOpen(PChar(Application.E... INTERNET_OPEN_TYPE_PRECONFIG,...
Witam. Mam pewien problem. Otóż potrzebuje w swoim programie taką funkcję która by sczytywała z bitmapy piksele. Niestety nie poziomo ani pionowo tylko promieniście zakładając że bitmapa to koło utworzone np przez procedurę canwas , i bity mają być sczytywane tylko w zakresie tego koła. Promieniście...
oloam - SSL (a dokłądniej OpenSLL) jest funkcją zapożyczoną, stąd nie możliwe było zawarcie takiego kodu bezpośrednio w Indy. Dlatego też konieczne jest ściąganie dwóch plików DLL, które realizują funkcje SSL. kamm - Pliki te powinny znajdować się przez cały czas korzystania z programu bądź w katalogu...
Funkcja (api) EndTask(HWND, FALSE, bool_force) została chyba zapomniana, działa w dwóch podejściach: WM_CLOSE, TerminateProcess. Ale, zależnie jak masz ustawione WaitToKillAppTimeout w rejestrze, może się pokazać okienko "Program nie odpowiada, zakończ teraz". Gdybyś jednak nalegał na samodzielne...
Funkcja strtofloat bazuje na lokalnych (regionalnych) ustawieniach formatowania liczb. Mozesz albo wymusić konkretny separator, albo pracować na przeładowanej wersji funkcji StrToFloat(const S: string; const FormatSettings: TFormatSettings ): Extended; overload;
Najpierw znajdź sobie wszystkie potrzebne wzory: - nierówność trójkąta - ad1/ wzór Herona na pole; zależność pomiędzy bokami, polem i promieniem okręgu opisanego - ad2/ wzór na pole koła - twierdzenie cosinusów, funkcje cyklometryczne (wyznaczenie kątów, jeśli musi być podany kąt a nie wartość funkcji...
odpowiedź jest banalnie prosta. Masz funkcje która robi tak: wysyła zapytanie i czeka aż dostanie odpowiedź... Niestety albo osobny wątek do obsługi tej funkcji, albo należy: 1. podpatrzyć snifferem dane wysyłane i odbierane 2. napisać samemu obsługę rs232 i wysyłać cyklicznie dane zapytania 3....
Jest Form2.WindowsMediaPlayer1.controls.curre... muszę to sprawdzić. WMP a nie MP, bo MP ma problem z odtwarzaniem filmów - odtwarza ok. 1000 klatek na sec. Chyba, że jest na to jakaś rada. EDIT: przy currentPosition zwraca wartość double (12,403125). Tylko nie bardzo wiem jak prze...
Porównaj własność Text tego obiektu ze zmienną przy użyciu funkcji if..then i operatora porównania = . Jeśli chcesz wyśledzić, czy tekst znajduje się gdzieś w środku zmiennej (czyli jest jej częścią) - skorzystaj z funkcji Pos .
Witam. Stworzyłem coś w rodzaju menu opcji wykonywanego programu. Program działa w zależności od ustaleń kilkunastu "parametrów". Każdy z tych parametrów jest wartością pola Checked na zaznaczone TCheckBox'y i TRadioButton'y. Chciałbym aby program jakoś zapisywał wybrane przez użytkownika "parametry"...
Jeśli chcemy używać tekstowych reprezentacji liczb przecinkowych, to trzeba upewnić się co do użytego separatora dziesiętnego. Funkcja StrToFloat , podobnie jak wszystkie funkcje konwersji liczba <->tekst operują na superglobalnej zmiennej DecimalSeparator
Rozumiem, że masz już program, który skaluje grafikę. Skalowanie odbywa się pewnie poprzez wywołanie jakiejś funkcji. Nie można napisać funkcji odwrotnej, która przywróci obrazek do normalnej postaci? Ewentualnie wczytać obrazek na nowo... Nie rozumiem, w czym problem, skoro większość kodu już jest. Edit:...
Ja aktualnie się z tym męcze i ze swoich doświadczeń to moge polecić książkę o RS programowanym pod delphi i c builderem, dość przejżysta. Sam komponentu raczej nie znalazłem, bo skupiłem się na używaniu funkcji WinAPI, jeśli się nauczysz obsługi w ten sposób, to sam sobie napiszesz komponent skrojony...
Kiedyś popełniłem gniota na temat LPT i Delphi. Opis jest dla programistów i pokutuje na stronie : I przykładowy programik : Nie są to arcydziała, ale pozwalają zorientować się jak program może współpracować z portem. Jak puścisz to pod debuggerem zobaczysz, że jest dość proste. Jeśli używasz...
Przede wszystkim ustaw kursor na lini od której chcesz zacząć debuggowanie i wciśnij F4. Program będzie wykonywał się "normalnie", aż do wywołania linijki z kursorem (ominiesz w ten sposób wszelkiego typu "OnCreate"). Od tego momentu możliwa będzie praca krokowa. Gdy nie chcesz sprawdzać kodu jakiejś...
tylko pamietaj że sterowanie LPT lub COM1 / COM2 z poziomu asemblera jest możliwe tylko dla Windowsa 95 i Win98 Dla sterowania portem z pod W2000 lub XP musisz użyć funkcji WinAPI lub gotowych komponentów np. DLPortIO. działa dla C++ i Delphi
Do pamięci innego procesu możesz się dostać korzystając z funkcji typu "Debugging Functions" windows (odpowiednia literatura MSDN). Tyle że żeby znaleźć odpowiednie miejsce w pamięci musiałbyś nieco się nagrzebać, przy czym może się okazać że to miejsce będzie np w zmiennych lokalnych jakieś funkcji,...
Mam trzy pytania, co do RichEdit: 1. Mam problem z przekopiowaniem całego tekstu z RichEdit1 wraz z RichEdit1.DefAttributes.Style:= czyli pogrubiony tekst i dodanie go do RichEdit2 . Używałem różnych funkcji: 1. RichEdit2.Text:=RichEdit2.Text+RichEdit1... RichEdit2.Lines.Text:=RichEdit2.Lines.Te...
Akurat to nie jest chyba zbyt skomplikowane, chociaż nie programowałem nigdy w Delphi. Podaj swpjego meila, to podeślę Ci kawałek książki o robieniu wykresów z wykorzystaniem komponentu TChart. Ja natomiast borykam się z innym problemem. Chcę robić wykresy punkt po punkcie. Tzn, np klikając w przycisk,...
Podjąłem się zrobienia pracy dyplomowej w której komputer będzie się komunikował z urządzeniem za pomocą portu COM (RS-232). Urządzenie za pomocą tego portu będzie dostarczało dane do programu który wypisuje dane pobrane z urządzenia i na podstawie tych danych powinien narysować wykres Zagadnienia...
Zrób coś takiego w kodzie do Form1, mój zapis to tylko szkic przybliżony do składni Delphi. Memo1_onClick..... begin fo... w kodzie do Form2 dodaj metode: zmien_kolor(zrodlo:Tmemo) be... {trzeba ustawić sobie stary kolor} showmodal; zrodlo.kolor=kolor_u...
Mam zapisane wartości funkcji w tablicy np. tab Umiesz rysować linie? Ja trochę nie pamiętam jak się to robiło... ale chyba były to funkcję na Canvas typu MoveTo(x, y); oraz LineTo(x,y); Więc musisz stworzyć pętle typu: for x:=1 to 199 do begin Obiekt.Canvas.MoveTo(x, tab[x]); Obiekt.Canvas.Line...
Mam problem, wiem że banalny, ale już trzeci dzień nad tym się zastanawiam, szukam i mądrzejszy nie jestem. Z mikroprocesora dostaję stringa w którym jest zapisany w hex bajt (np. F3). Trzeba mi to przekonwertować na integer i na stringa w którym będą zera i jedynki (np. 11110011). To wszystko najlepiej...
Witam. Robię interfejs do mojego "cuda" i stąd moje pytanie. Czy ktoś może zna linki do stron zawierających komponenty (kontrolki) realizujących takie funkcje jak np. wyświetlacz lcd, diody led, różnego rodzaju mierniki analogowe , cyfrowe, pokrętła, sygnalizacja pracy silnika, pompy itp ? Wszystko...
Hmm.. to nie powinno miec zadnego znaczenia.. ale napisz jaka masz wersje delphi.. ale jak dla mnie to masz cos zle w kodzie programu a to nie jest kwestia kompilatora.. byc moze uzywasz jakis funkcji ktorych w win98 po prostu nie ma.. przykladowo Transparentne okna itp. i dlatego sie wykrzacza.. sproboj...
Ja polece coś takiego ..... tam jest biblioteka o nazwie inpout32.dll (bardzo mała 32 kb + źródła w C++) ale jeśli chesz możesz używać już skompilowanej wersji. Teraz zalety: 1. Działa na 98 i na systemach NT 2. Bardzo prosta w obsłudze: a) ładujemy biblioteke i mamy do dyspozycji 2 funkcje: ...
a nie da sie uzyc wzglednej sciezki czyli po prostu podac sama nazwe pliku do odtworzenia ktory znajduje sie w tym samym katalogu co aplikacja? Raczej nie, bo Windows różnie określa początkowy katalog roboczy programu. W Delphi dostępna jest właściwość Application.ExeName, z której można wyodrębnić...
Funkcja RasEnumDevicesA z rasapi32.dll Tutaj masz przykład jak to wykorzystać w Delphi:
Ściągnąłem to Zainstalowałem go w Delphi i użyłem funkcji: SmallPort1.OpenDriver; // ładuje sterownik SmallPort1.Port[$278]:=1; // wypisuje 1 na com1 Skompilował się ładnie, bez żadnych błędów. Podłączyłem miernik, odpaliłem program i mierze. Z pomiarów wynika, że nie działa. Nic się nie zmienia...
Delphi nie znam (może istnieje jakiś cudowny komponent) Ale ogólnie jeśli chodzi o pisanie pod windows-a to istnieje taka funkcja API [url=]SetWindowRgn Którą można namalować każdy kształt okna. Twórcy programów z tzw. skórkami wczytują regiony z dołączonej bitmapy. To tak w skrócie i ogólnie.
Cały czas nie rozumiem dlaczego uparłeś się na plik źródłowy. Masz przecież dostępne dla Delphi 6 skompilowane moduły które mają już wbudowane te same funkcje (albo ich odpowiedniki). Źródło miałoby sens gdyby było coś modyfikowane w nim przez autora programu. Może po prostu zobacz co robi która funkcja...
Witam. Czy wie ktoś co trzeba zrobić aby przy wyłączaniu programu (napisanego w Delphi) program się pytał czy tego chcę. Chodzi mi o jakąś funkcje która "odwoła" zakończenie programu.
Ja bym to zrobił jak wcześniej napisałem, ale można też powiedzmy jak ty chcesz (poniżej program pisany z palca w Builder C++, w Delphi będzie podobnie): Timer1->Interval = 200 ; int zadanie = 0 ; Timer1->Enabled = true ; i w zdarzeniu obsługi Timera: { zadanie++ switch(zadanie){ ... 1: //wykonaj...
Witam, bardzo dawno nie widziałem Delphi, ale nie jest to ciężkie do zrobienia. Kiedy otwierasz plik w eksploratorze, uruchamia on program z nazwą pliku w parametrze, jeśli otworzysz dwa na raz, to poda dwa parametry, musisz je przechwycić. Tu jest bardzo prosty if not openDialog.Execute then ShowMessage('Open...
witam Chcem zrobic wizualizacje na komputerze. Dokładniej wykres temperatury w funkcji czasu. Chodzi o to zeby odczytywac dane z pliku tekstowego gdzie zapisana będzie data i temp, a potem za pomoca delphi wczytac te dane i przedstawić na wykresie (np. punktowym). Temp zczytuke przez mikrokontroler...
Nie trzeba korzystać z serwera OPC(koszty!!!). Najlepiej użyć RS232 ew. modułu Ethernet np. CP443.(jeśli ma dla ciebie znaczenie prędkość transmisji). Wystarczy najtańszy moduł bez żadnych zaawansowanych funkcji. Poszukaj sobie czegoś w dokumentacji siemensa na temat protokołu fetch/write. Służę źródłem...