Co o tych powiecie? 3.1.18. (10.11) Zabronione jest publikowanie informacji do źródeł, które po pewnym czasie wygasają (publikowanie odnośników do stron o charakterze krótkotrwałym) - arnoldziq. Sugeruję skorzystać z tego :
Witam, sprawdź jaki typ zwraca zapytanie, bardzo możliwe że jest to wartość numeryczna a Ty pobierasz ją jako string...
Application.ExeName ( string )
Jak zwykle wyrzuca mi błąd Connection.Params.Append('Database=N... Nazwa błędu to "Unterminated string"
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...
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);...
Niestety program klient nie dostaje odpowiedzi z serwera. Nie wiem czy błąd jest po stronie serwera czy klienta. wysyłanie dancyh na serwer przez klienta działa. Proszę o pomoc. Poniżej kod serwera i klienta. Z góry dzięki za pomoc Klient Proszę pamiętać o używaniu znaczników syntax . Opcja...
Witam, chciałbym użyć DLL'ki napisanej w C# w programi pisanym w Delphi. W związku z tym w Visual Studio Express 2012 napisałem klasę i metody z atrybutem DllExport po to by były dostępne dla Delphi. Chcę docelowo aby funkcja GetCredentials przyjmowała 3 argumenty typu string i zwracała typ...
Wspomniana wyżej biblioteka ZLib zdaje się, że występowała w postaci modułu .pas w "pełniejszej" wersji Delphi jako "ukryte wyposażenie". Jeśli występuje jako moduł, to odpada problem instalowania jako komponentu. Musiałbyś sprawdzić (wyszukiwanie plików) czy w Twojej wersji Turbo Delphi Explorer też...
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...
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...
Ma ktoś jakiś przykładowy kod z" CreateProcesAsUser" dla delphi bo nie mogę go znalesc:/ Dodano po 2 Próbowałem przenieść kod z procesu na usługę systemową, niestety wystąpiło parę błędów o to kod: unit Unit1; interface uses Windows, Messages, SysUtils,Variants, Classes, Graphics,...
Cześć! Zacząłem pisać program w Delphi do obsługi protokołu gg, korzystam z tej dokumentacji: i napotkałem problem loguje się w ten sposób: [syntax=delphi] var s,p:string; ziarno:Longword; login:tlogin; nagl:theader; bufor:string; host:string; port:integer; begin ms:=idhttp1.Get(''...
Witam, mam taki kod w Pascalu, który robi permutacje: P(n,r) = n! / (n-r)! [syntax=pascal]program Permute; {$APPTYPE CONSOLE} uses SysUtils; var R, Slen: Integer; procedure P(var A: string; B: string); var J: Word; C, D: string; begin { P(N,N) >> R=Slen } ...
Korzystam z JvInterpretatora który umożliwia wykonywanie kodu Delphi napisanego w skompilowanej już aplikacji. Niestety, z tego co widzę to dodawanie unitów z których chce się skorzystać jest utrudnione. Polega to na napisaniu unitu w procedurze GetUnitSource samego interpretatora, np.: Source...
Pascal jest podobny do delphi a że nie mam skąd wziąć delphi to robię to w pascalu i tak chodzi tylko i wyłącznie o kod środkowy. Mam ten program tylko że w C++ a potrzebuje to mieć w delphi albo pascalu :/ [syntax=c] #include <iostream> using namespace std; int main() { int...
a Data Module to specjalna formatka w Delphi na którą kładziemy komponenty związane z bazami danych Dodano po 9 a Unit1 w całości wygląda tak Dodano po 13 Dziękuję zadziałało takie proste [syntax=delphi] with Unit2.data.IBQuzytkownicy, SQL do begin Close; ...
Witam, Robię obsługę po RS-ie miernika Motech MT 4090. Miernik Ustawiony na Tryb Remote. I teraz kilka dziwnych rzeczy. Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
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...
Dzieki. Teraz jest git :) Mam jeszcze jeden problem. Pisze wlasnie program w delphi, ktory ma duzo zmiennych i chcialbym te zmienne pogrupowac w klasy lub jakies struktury. Na codzien programuje w VisualC++ ale ten program musze zrobic w Delphi i krew mnie zalewa. Robie cos takiego: dane = class ...
Długo szukałem sposobu komunikacji z multimetrami UNI-T w Delphi. Nie znalazłem gotowego rozwiązania, ale za to znalazłem program dmm, który jest serwerem dde. Problem komunikacji programu w Delphi (czy też innym języku programowania) sprowadza się do napisania klienta dde. Ja zrobiłem to tak: Link...
Jak działa ten kod .Proszę o wytłumaczenie dokładnie pod częścią pogrubioną Dzięki Dragas a to poniżej mógłbyś wytłumaczyć [syntax=delphi] nazwa.Text:=tabButow[StrToInt(naszeButy.... rozmiar.Text:=tabButow[StrToInt(naszeBut...
Niezbadane są zasoby Internetu :)
A nacisnąć F1 i zerknąć do pomocy to nie łaska? procedure Delete(var S: String; Index: Integer; Count: Integer); Description Removes a substring from a string. In Delphi code, Delete removes a substring of Count characters from string S starting with S
czytam czytam i nie moge nic znaleść o tych zapytaniach :cry: query : PChar = 'CDAT?'+#13+#10; // przykładowe zapytanie // zakończone parą znaków CR LF Czy ktoś pomógłby mi to zrozumieć (dodam że sam się tego ucze i nie mam z nikąd pomocy). Sama ksiązka...
Witam szanownych kolegów Na wstępie powiem, że jestem początkującym programistą Delphi (tyle co w szkole nauczyli podstaw), a z Rsem w ogóle nie miałem do czynienia. Chce napisać program który będzie zbierał sygnał od miernika (sygnał napięciowy 0-2V). Na początek poszukałem jakiś przykładowych...
Zdarzało mi się tworzyć bardzo złożone interface WAB API w Delphi 2009. Np coś takiego : [syntax=delphi]unit CARASWebIntf; { Invokable interface ICARASWeb } interface uses InvokeRegistry, Types, XSBuiltIns; const {Event Prerequisite Source} esNone = 0; {No source present} ...
ja bym to zrobił mniej więcej tak: najpierw bym wyszukał średnika ";" oraz wyciął daną linie (bez średnika). wyszukał pierwszą spacje lub eol text od początku do spacji lub eol to polecenie, dalej mogą sie znajdować argumenty.. z argumentami: poszukać przecinka, rozciąć dane na 2 części i zamienić...
czesc jak myslicie co w tym kodzie jest nie tak bo nie moge znalesc bledu. Pisalem go na podstawie innego kodu napisanego w C. Dziwne jest to, ze po przekodowaniu pierwsze dwa znaki sie zgadzaja z tym wygenerowanym przez program z sieci. Chcialem jeszcze zapytac czy dlugosc smsa powinna byc w hexie...
Sorki , ale naprawdę zależy mi na tym , a w bcb nie widzę nic co mógłbym wykorzystać enum TTypeSort {tsIncrease, tsDecrease}; int __fastcall CustomSortIncrease(TStringList *Lista, int idx1, int idx2) { String cTemp1 = Lista->Strings[idx1]; String cTemp2 = Lista->Strings[idx2]; ...
Witam! Faktycznie namieszałeś, ale to tylko błędy składni, które Delphi sygnalizuje i pokazuje miejsce gdzie coś jest nie tak. Jest tam kilka błędów typu: = zamiast := w instrukcji podstawienia : zamiast ; na końcu instukcji wcięło jeden end. Tu masz poprawiony plik: Nie umiem załączyć pliku...
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...
Zgodnie z obietnicą przedstawiam wyniki eksperymentu: w DLL #1 zdefiniowałem następujące funkcje: [syntax=Delphi]function NewPChar(const Len: Integer): PChar; stdcall; begin GetMem(Result,Len+1); ... FreePChar(const S: PChar); stdcall; begin if S<>nil then FreeMem(S,Length(S)+1); end;[/s...
Piszę program, który ma służyć za dziennik lekcyjny. Oceny, sprawdzanie obecności, uwagi i ma mieć zakładkę dla każdego przedmiotu. Jednak utknąłem i nie wiem co robić mam problem z zapisaniem pagecontrol stringgrida do pliku, odczytaniem tego i działaniem klawiszy na otwartych zakładkach. Oto kod [syntax=delphi]unit...
w tym wypadku na początku wiersza większe i mniejsze od szukanej o np. 100 Nigdy nie używałem Delphi :) Właśnie pobrałem Lazarusa (też go jeszcze nie używałem) i załączam uzyskany program. Już prawie zapomniałem jak to się pisało w Pascalu (sławne ":=" zamiast "="). Okropnie wielki...
Witam, piszę program będący moją pracą inżynierską i jednym z jego elementów jest skaner sieci lokalnej pod kątem aktywnych hostów. Skanowanie miało być szybkie dlatego zrobiłem je wielowątkowo. Niestety z jakiś powodów metoda execute wątków w której wykonuje ping zamula cały program co nie powinno mieć...
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 ...
No właśnie helper służy do takich rzeczy, jak m.in. nadpisywanie (override) metod. Przykładowo umieszczasz w swoim unicie: [syntax=Delphi]type THStrings = class helper for TStrings function Add(s: String): Integer; end; ... fucntion THStrings.Add(S: String): Integer; begin ...
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ż...
Faktycznie tak tez mozna. Przyklad troche niezdarny ale dziala :-) #include <cstdlib> #include <iostream> #include <string> #include <vector> using namespace std; int main(int argc, char *argv[]) { // clear system( "cls"...
Napisałem parser dla twoich wymagań.. cały bufor to jeden string.. dane zamiast pobierać z rs232 to są pobierane z pliku (dla lepszego testu w porcjach o losowym rozmiarze od 1 do 10 bajtów) i przekazywane do parsera... jedyne co musisz zmienić to źródło danych przekazywanych do AppendToBuf oraz samą...
Mam pewien problem z odczytem danych w delphi nadawanych przez RS232. Do nadawania danych wykorzystałem mikrokontroler który nadaje mi siedmio-znakowy string z częstotliwością co 500ms. Do odczytu w delphi wykorzystałem funkcje WIN API od obsługi Rs232, sam odczyt realizowany jest na timerze ustawionym...
Dasz radę sam coś napisac w c#\vb\vf? Masz kawałek kodu, którym wyciągniesz dane - ShowTableContent i przykład jak wrzucić dane - AddNewItem [syntax=csharp] private void button2_Click(object sender, EventArgs e) { OpenFileDialog openFileDialog = new OpenFileDialog(); ...
A jaka to jest liczba "123milisekund" ? Delphi wyrzuci wyjątek o niemożności przekonwertowania. Jeśli już chcesz tak zrobić aby w edit'cie mieć liczbę i stringa to z powrotem musisz sobie tą liczbę odzyskać. Możesz zrobić tak: 1. szukasz na którym miejscu w stringu pobranym z edita jest ' ' <-spacja,...
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 ...
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...
Poniżej znajduje się kod mojego programu: Jeżeli ktoś udzieli pomocnej odpowiedzi, otrzyma 100 punktów
Da się :) Deklarujesz pomocniczy typ, który zawiera w sobie tabelę Variantów, co oznacz w skrócie że możesz tam wysłać dowolną liczbę argumentów o dowolnym typie. FunkcjaZTryIFor oraz ją samą: [syntax=delphi]{ Private declarations } procedure proc1(myArray : array of Variant); procedure...
Dzięki, szukałem w nie tej połowie internetu co trzeba :D Udało mi się wyświetlić to okno wywołując funkcję CredUIPromptForWindowsCredentialsW z biblioteki credui.dll - funkcja ta jest wersję Unicode, natomiast wersja Ansi CredUIPromptForWindowsCredentialsA zawsze zwraca wynik 31 w związku...
Już dawno nie bawiłem się w Delphi ale jak dobrze pamietam używa sie tam Pascala. 1. Więc jeśli się nie myle pliki powinno otwierać cię tak jak w Pascalu. var pliki:array[1..16] of string; i:integer; p:text; li... sie powinno znaleść wypełnienie...
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...
Witam :) Zacytuje Kasie18 ale odpowiadam atomowi1477 ;) Procedura wyglada tak: HINSTANCE ShellExecute( HWND hwnd, // handle to parent window LPCTSTR lpOperation, // pointer to string that specifies operation to perform LPCTSTR lpFile, // pointer to filename or folder name string ...
Znalazłem dość ciekawy kodzik w delphi, i mysle ze przydałby się wielu osobom ale trzeba go przetłumaczyc z delphi :) Niestyety sam sobie z tym poradzić nie dam rady :( function ExecuteConsole(Executable:PChar; CommandLine:PChar; Directory:PChar):boolean; const bufSize...
Proszę bardzo: address { std::string city; std::string street; unsigned int no; }; class user { unsigned int age; std::string name; address addr; public: user();// konstruktor ~user();// destruktor // akcesory unsigned...
Wrzucam całą procedurę type TBaza = record nazwa : string[30]; data : string[19]; rynek : string[5]; odniesienie : real; otwarcie : real; max : real; ...
Witam ostatni w dziedzinie delphi dostałem ochrzan na forum i przyniosło to skutki :) Za co dziękuję niektórym użytkownikom. Chce w swojej aplikacji zastosować wysyłanie e-mail, poszukałem przykładów jak jest to wykonane i znalazłem na komponentach indi. Wszystko było by w porządku gdyby nie to,...
Spróbuj zadeklarować TObject zamiast rekordu, a te obiekty umieszczać jako elementy TList. To powinno rozwiązać wiele z twoich problemów. Możesz dane sortować, usuwać z listy puste obiekty, dodawać nowe i nie musisz się martwić, że ci się rozmiar tablicy wyczerpie. Masz tutaj przykładowy kod takiej...
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...
Napisz fragment kodu dla przykładu. coś ze starych zasobów [syntax=pascal]Program BazaTeleadresowa; Uses Crt; type TData = record {definicja typu danych strukturalnego} Imie: String[10]; {dane - stringi o okreslonej dlugosci} Nazwisko: String[15]; ...
SetFileAttributes to WinAPI, a FileSetAttr to Delphi ;) Robią dokładnie to samo z tą różnicą, że do tej drugiej możesz przekazać Stringa. Z pomocy Delphi: Sets the file attributes of a specified file. Unit SysUtils Category ... management routines Delphi syntax: function FileSetAttr(const...
Witam, exek ma z dllki wywołać funkcję, do której przekazuję parametr. Parametr jest stringiem i funkcja również ma zwrócić stringa. Kod dllki: [syntax=delphi] function funkcjaDLL(parametr:PChar):PChar:stdcall... tekst '+parametr+'koniec dowolnego...
Wysyłam dane po UDP na ip komputer z innego komputera. Jak uruchomię UDP terminal - nie ma problemu wszystko doczytuję, a wiec komunikacja działa. Natomiast jak te same dane chcę odczytać to w TMemo w Delphi niestety nic się nie pojawia, nie pojawia się nawet status Servera. Nie wiem czy przypadkiem...
function GetLastFromPath(const FileName:string):string; var s:string; begin s := ExtractFileDir(FileName); result := ExtractRelativePath(ExtractFileDir(s), s); end;
Poszukuje prostej, dzialajacej procedury pingujacej do DLL pod delphi, napisalem cos takiego ale nie dziala, zawsze zwraca 0 function IcmpCreateFile:THandle;stdcall;exter... 'icmp.dll'; type PIPOptionIinfoormatio... record TTL:byte; Tos:byte; Fl...
Witam Piszę prosty serwerek z wykorzystaniem TidHTTPServer. Mam problem z uploadem plików do serwera, tzn. upload działa ale plik zapisany na serwerze jest większy od wysłanego przez przeglądarkę. Okazuje się że doklejony zostaje nagłówek. W jaki sposób „wyłuskać” sam plik bez nagłówka? Proszę...
nie wiem jak działa instanceof w javie ale przechowywanie referencji do innych obiektów czy klas to żaden problem. Deklarujesz sobie jakikolwiek obiekt, który zawiera tablicę wskaźników nawet typu Pointer. W najprostszym z możliwych przypadków bierzesz sobie zwykłą i popularną StringList'ę. Można w niej...
Witam, skorzystałem z komponentu Indy Clients/Servers oraz programu jaki znalazłem na poniżej załączam kod: unit UDP; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdUDPClient, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer,...
Siemanko, nie musisz korzystać ze zdarzeń aby doczytać dane z bufora, możesz np. rozwiązać ten problem przez osobny watek który będzie odczytywał dane, może napisz do czego to chcesz wykorzystać. Tu masz namiastkę kody jak możesz to zaimplementować. Ps. tu akurat wykorzystałem do komunikacji klase...
Na jakiej wersji Delphi pracujesz? bo całe rozdzielanie jest tutaj dość czasochłonne a można by uprościć. Ponadto nie bardzo mi się podoba mieszanie funckcji pracujacych na null-terminated string ze stringami. Druga rzecz - bezpieczniej jest używać przy konwersji separatora dziesiętnego systemowej...
Oczywiscie chodzi programowanie w Delphi a Memo to jeden z komponentów. Algorytmicznie to tak masz rację tylko jak programowo. Próbowałem użyć Buff var txt, ln: string; poz: integer; intxt: string; begin txt := memo1.Text; while pos(chr(13), txt)>0 do delete(txt,pos(chr(13),...
witam Po napisaniu programu w oparciu o artykół : ły/Obsługa_portów_COM_z_poziomu_Delphi_(... napotkałem na błąd, który wyskakuje za każda próbą naciśnięcia przycisków otwórz, i wyslij,a także przy próbie zatwierdzenia settingu cportu. ten błąd to różni się tylko liczbami....
Co prawda w WebBrowser stawiam dopiero pierwsze kroki i czuje sie nie pewnie. Gdzie mogę poczytać o tej kontrolce, do czego ma dostęp itp. Co do tego linku to jest w tabelce i jest "goły" nie ma żadnych id ani name tak jak na przykładzie, tylko że zamiast link jest obrazek a w onclick są jakieś...
Nie wiem co macie źle w swoich projektach. Wstawię swój kod, który działa na 100 %. Jedno co mi się w nim nie podoba to jak odczytuje dane na przykład ze skanera kodów kreskowych to wstawia mi do Memo 8 znaków, dalsze są w kolejnej linii. Próbowałem to rozwiązać ale na razie bez rezultatu. Udało...
A sprawdziłeś swoją metodę z folderem sieciowym ? Np. : \\pbsbs\users\Aplication Data\plik.exe Bo tylko podajesz dodatkowo ustawienie lpDirectory. Skracając nazwę katalogu do formatu 8.3 (usuwając spacje z nazw katalogów), nie musisz stosować żadnych dodatkowych parametrów. HINSTANCE ShellExecute( ...
Cześć. Mail mi się udał więc przechodzę dalej. Zainstalowałem komponent THGG i zrobiłem klienta GG, jednak mam pare problemów. Po pierwsze: Muszę przyspamować z 5-10 wiadomości by coś się "odblokowało" i potem wiadomości wchodzą normalnie, zauważyłem też, ze pierwsza wiadomość od danego numeru (po "odblokowaniu")...
Witam poniżej zamieszczam znaleziony gdzieś w internecie kod do Wake On Lan. Niestety nie działa on prawidłowo. Wysyła na broadcast ale dane różnią się od danych z komercyjnego programu do WOL, który działa prawidłowo. Skutek komputer zdalny przy pomocy tego kodu się nie uruchamia. procedure TForm1.WakeUPComputer(aMacAddress...
Witam mam taką procedurę: [syntax=delphi] var S: String; H: THandle; ProcID: Integer; // numer procesu przydzielony przez system pmc2: TProcessMemoryCounters; pMemSize: String; begin ProcID:= _proc.th32ProcessID; pmc2.cb := SizeOf(pmc) ; if GetProcessMemoryInfo(ProcID,...
używam delphi 2009 a ty? Dodano po 1 [DCC Warning] s_stream.pas(139): W1047 Unsafe code 'GetMem' [DCC Warning] s_stream.pas(150): W1047 Unsafe code 'FreeMem' [DCC Warning] s_stream.pas(160): W1047 Unsafe code '^ operator' [DCC Warning] s_stream.pas(182): W1047 Unsafe code '^ operator' [DCC...
Witam! Potrzebny do szkoły jest mi program który będzie krótkim testem jednokrotnego wyboru, program mam zrobiony do momentu w którym powinien wypisać wynik, i tu pojawia się mój problem jaki powinien być kod, aby program odczytał poprawne odpowiedzi i przypisał +1 punkt za odpowiedź a na koniec wyświetlił...
Przyznam się, że utknąłem :/ Robiłem to wcześniej setki razy, a teraz, z nieznanych przyczyn nie mogę odczytać przychodzących Event-ów :( Zacznę może od początku. Tworzę cobie na dysku bazę za pomocą Firebird 2.5, takim skryptem :[syntax=sql]CREATE DATABASE '127.0.0.1:d:\BAZADANYCH.FDB' user 'SYSDBA'...
Witam potrzebuje dopisać do programu służącego do obliczania równań tetodą gaussa procedure służącą do odczytu/zapisu wyników do pliku. Narazie skupiłem się na zapisie do pliku lecz i to mi wychodzi z marnym skutkiem. Prosze o pomoc i ewentualne wskazanie błędów. To jest kod programu:[syntax=delphi] ...
To działa ShowMessage(FormatFloat('#.###', StrToInt('$000182B8'))); Działać to to może i działa, ale kod jest zupełnie bez sensu. Po co formatować Float skoro liczna jest typu Integer? Zależy od zapisu tej zmiennej. Jeżeli zapisana jest w formacie liczby, to wystarczy jedno Inttostr, jeżeli w formacie...
Na szybko i na kolenie to może być tak: [syntax=delphi]function Lottery(ARange, ACount : Integer) : String; var lCount : Integer; lST : TStringList; lValue : Integer; lStrValue : string; begin if ACount > ARange then raise Exception.Create('Wymagana...
1 234 567 890 czyli z odstępami co 3 znaki? Jeśli liczby całkowite to na przykład taką funkcją: [syntax=delphi] function IntToStrSepSp(i: int64): string; var ii: int64; s, s1, sign: string; begin if i < 0 then begin i := abs(i); sign := '-'; end else begin ...
Delphi to pascal . Praktycznie wszystkie programy napisane w paskalu są kompilowane i uruchamiane w Delphi . Różnica istnieje w pewnych typach .Np. w pascalu typ ineger był 16 bajtowy natomiast w delphi od wersji 2 jest 32 bajtowy .Tak samo w pascalu real był 6 bjtowy ( odpowiada to w delphi real48)...
Dodano po 1 Problem leży gdzieś tutaj: Dodano po 10 Już doszedłem do tego co zrobiłem źle. :) Otóż cały wklejony przeze mnie kod jest dobry. Po prostu chwilowo wpisywałem zamiast: [syntax=delphi]LiteraDysku + ':\Tapety'[/syntax] to (nie chciało mi się czekać za każdym razem na...
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...
function IPAddrToName(IPAddr : String): String; var SockAddrIn: TSockAddrIn; HostEnt: PHostEnt; WSAData: TWSAData; begin WSAStartup($101, WSAData); SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr)); HostEnt:= gethostbyaddr((at)SockAddrIn.sin_addr.S_... 4, AF_INET); if...
Witam Mam taki problem: Chciałem zrobić tak, żeby po kliknięciu np. na button uruchomił mi się explorator windows z otwartym katalogiem (banał). Problem jest tego typu, że ścieżkę dostępu do katalogu mam w zmiennej String. Po wpisaniu: WinExec ('explorer.exe /select, katalog/podkatalog', SW_ShowNormal);...
function FileGetAttr(const FileName: string): Integer; function FileSetAttr(const FileName: string; Attr: Integer): Integer;
Witam, Na forum ten temat przewija się co chwilę w różnych kontekstach. Wystarczyło poszukać. Ale skoro się nie udało, to jeszcze raz: Np: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Math; type TForm1 = class(TForm) ...
Z zapisem tekstu wielolinijkowego do pliku INI już sobie poradziłem, poniżej zamieszczam przykład, jakby ktoś miał z tym problemy: procedure TForm1.Button1Click(Sender: TObject); //Po kliknięciu na przycisk zapisu var I: integer; ciag: string; begin linie := memo1.Lines.Count; ...
Wielkie dzięki za kod :!: Lekko przerobiłem kod, i prawie dobrze działa. Najlepiej wyjaśnie co chcę osiągnąć. No więc moim celem jest odczyt wartości, z plików takich jak ten wyżej, porównanie ich z wartościami zawartymi w StringGrid1, i na koniec wyświetlenie tej wartości razem z ilością wystąpienia...
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...
Cześć To się może przydać : ... uses SysUtils; ... var en : string; pt : string; begin ... en:=Application.ExeName; // w en masz teraz nazwę Twojego exe-ka pt:=ExtractFilePath(en); // w pt masz teraz ścieżkę dostępu do katalogu exe-ka ...
Wklepałem taki kod i nie wiem jak przesłać dane z serwera do klienta. Wie ktoś jak to zrobić? unit Serwer; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdUDPBase, IdUDPClient, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,...
Witam. Mam prosty program w Delphi. Wykorzystuje on TStringGrid. Potrzebuję go jednak zmodyfikować. Wprowadzone w siatkę wartości potrzebuję zapisać do notatnika do pliku txt za pomocą kliknięcia na button. Potrzebuję także za pomocą buttona załadować zapisane wartości z pliku txt. Nie wiem jak to ruszyć....
Nie wiem jeszcze jak potem z tych utworzonych komponentów sczytać dane, ale myślę że sobie poradzę, czy w razie problemów jesteś w stanie mi pomoc? Wszystkie rekordy są przechowywane w pamięci, w dynamiczej tablicy Dane, która zawiera rekordy typu TDane, które zawierają trzy zmienne: type ...
Witajcie unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm3 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Button2: TButton; GroupBox1: TGroupBox; Label4:...
Witam potrzebuję zrobić program z 3 pytaniami i 3 wyborami odpowiedzi do każdego z pytań. Wybór pytania zrealizowany ma być checkboxami (z tym że po zaznaczeniu jednej z odpowiedzi nie będzie można już zmienić wyboru,oraz kolejne pytanie ma mieć nie zaznaczone chceckboxy i ma pojawić się button "Dalej",...
Witam Moja propozycja jest następująca: mając string z poszczególnymi bitami dzielisz go na kawałki 4-ro znakowe. I wtedy taki czteroznakowy string zamieniasz na odpowiadającą wartość HEX. Potem pobierasz kolejne cztery znaki i znów zamieniasz. Możesz sobie zrobić np. tablicę w której umieścisz np....
Witam. Mam komponent Cport i chciałbym przy jego pomocy wykonać serię pomiarów a wynik każdego kolejnego zapisać w tablicy. Jednak coś się sypie i nie wiem czemu. Mógłby ktoś zerknąć na kod i powiedzieć gdzie mogę popełniać błąd? Kod poniżej: Wysłanie do METEXa literki D (zmienna bajt): procedure...
Witam, Próbuje zapisać dane z rs232 do bazy firebird 2.0, niestety cały czas otrzymuje błąd konwersji. Pola MASA, RATE w bazie typu Float, poniżej przedstawiam procedurę zapisu: procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var Str : String; masa_str1,rate_str1,masa_str11,...
oloam -> a mógłbyś w kilku słowach napisać jak to się robi? na przykladzie klasy TMemoryStream: 1 na poczatku deklarujesz sobie zmienna globalna : plik:Tmemorystream; 2.pozniej tworzysz obikt gdzies na poczatku programu : procedure TForm1.FormCreate(Sender: TObject); begin ...
cześć Próbuje zrobić programik, który wyciągnie parę danych z okien aplikacji tzn handle, class name oraz text z belki programu. Wszystko to po najechaniu myszką na jakieś okno. Mam, że po najechaniu myszką np na okno gg pojawią mi się dane w programie: procedure TForm1.ShowHwndAndClassName(CrPos...
cześć Czy ktoś zna może sposób aby jak najprościej wyciągnąć dane z memo tzn do memo wczytuje plik ini S : String; NewStr, OldStr : String; begin S := memo1.lines[1]; OldStr := 'imie='; NewStr := ''; edit1.text:= StringReplace(S, OldStr, NewStr,...
Problem jest taki ,ze ja tez dekodowalem przez indy10 ten string co podales w pierwszym poscie i niestety po zdekodowaniu jest zaledwie kilka znakow - jednak jak dekodowalem jakis string znaleziony w sieci to bylo ok
Musisz bardziej wczytać się w dokumentacje, ale już widzę że trzeba najpierw wywołać którąś z funkcji zaczynających się na open_ Function Open_USB_Device : FT_Result; Function Open_USB_Device_By_Serial_Number( Serial_Number : string ) : FT_Result; Function Open_USB_Device_By_Device_Description...
Zamiast wysyłać przez RS232 binarnie - co często przy przesyłaniu większych porcji danych przez początkujących będzie się kończyło samymi problemami - to nie łatwiej ci zamieniać przesyłane liczby na stringi a po odebraniu ze stringów na liczby. Dzięki temu twoja ramka będzie mogła być po ludzku zakończona...
Witam! 1.Z kodu źródłowego trzeba usunąć '{$APPTYPE CONSOLE}' 2.Zamienić wszystkie 'writeln' na odpowiednią metodę komunikacji z użytkownikiem np. 'memo1.Text:= 'Obliczanie pierwiastka funkcji - metoda Newtona';' 3.W zamian za 'readln;' wpisywać dane w pole 'Edit' 4.Przed obliczeniem konwertować...
Witam W programie do zmiennych przypisuje zawartość z label. s:string; s:=label1.caption; Załózmy, że na początku zawartość label to - poznan12 po kliknięciu w button label zmienia się na - poznan34 Czy można sprawdzić czy string uległ modyfikacji ??
Panowie i Panie Trafiło mi się napisanie malutkiego programu drukującego paragony na drukarce Innova Profit. Ze strony producenta pozyskałem instrukcję programisty (gdyby ktoś chciał rzucić okiem to proszę: [url=]Instrukcja programisty. Trochę poczytałem i zabrałem się za pisanie. (mam drukarkę na...
Z rejestru odczytujesz 'Default User ID' z klucza HKEY_CURRENT_USER\Identities, jeżeli nie będzie 'Default User ID', to odczytaj 'Last User ID', ewentualnie funkcją RegEnumKeyEx pobierz kolejno wszystkie możliwe podklucze z HKCU\Identities (z pierwszego poziomu). Jeżeli odczytasz jedną z tych wartości,...
Witam, jako że dopiero zaczynam swoją przygodę z programowaniem, przy pierwszym problemie lekko się zniechęciłem. Mam tu dość dziwny program, zapisujący do pliku po linijce wpisanego tekstu. Zapisywanie jest w 100% poprawne. Gorzej z odczytem. Najzwyczajniej w świecie mi nie działa, i nie wiem co z tym...
Witam, próbuję czytać dane z pewnego urządzenia podłączonego do portu COM. Posługuję się wielokrotnie już tu opisywanym komponentem TComPort. Również kod obsługujący poszczególne akcje wiele razy się przewinął. Jest tylko taki problem, że w większości przypadków programy w końcu zadziałały tak, jak...
W jakis sposób w comport4 odczytać, ciag bajtów z bufora jako typu bajtowego? Instrukcja comport1.rea... dane ,count) oraz z tego co sprawdziłem, także polecenie comport1.read(dane,count) , czyta kolejne bajty jako znaki. Kompilator wymusza zadeklarowanie wcześniej zmienną dane jako ansistring,...
Nazwę aktywnego okna, możesz pobrać w ten sposób : function ActiveCaption: string; var Handle: THandle; Len: LongInt; Title: string; begin Result := ''; Handle := GetForegroundWindow; if Handle <> 0 then begin Len := GetWindowTextLength(Handle)...
Otóż zrobiłem sobie program wzorując się na innych podobnych test w delphi i mam taki drobny problem bo nie za bardzo wiem jak dodać do niego podliczanie punktów. Mam taki pomysł żeby za dobra odpowiedź przyjmowało wartość 1 a za złą 0 i na koniec sumowało i pokazywało wynik o to kod programu: unit...
Delphi 2009 jako standard używa kodowania Unicode. Musisz tak przerobić kod, żeby używał Unicode, lub dostosować go tak, aby wyświetlał "normalne" znaki. Podstawową różnicą jest deklaracja zmiennych znakowych. W Delphi 5 to był Char i zajmował w pamięci 1 bajt, w Delphi 2k9 zmienna Char zajmuje...
Błąd mi się wydaje dość prosty: Instrukcja CASE!? Jej się używa do danych liczbowych integer, ewentualnie pojedynczych znaków w zmiennej typu Char, ale nie WideChar. Nie możesz piszać w case : ' + ': ' - ': ' * ': ' / ': itd nie może być ' + ' - może być co najwyżej...
Witam! Mam następujący problem. Otóż złożyłem następujący układ komp(rs232) => max232 => atmega8 => LCD. Dane wysyłam z Delphi przy pomocy kontrolki ComPort. Po wysłaniu znaku do Atmegi , na wyświetlaczu oprócz znaku, pojawia się dziwny znak III na początku linii i w żaden sposób nie mogę go usunąć....
Dodano po 1 [syntax=basic4gl] $regfile = "m32def.dat" $crystal = 1000000 Config Lcd = 16 * 2 Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 , E = Porta.1 , Rs = Porta.0 $baud = 1200 Config 1wire = Portb.0 Dim Adresy(16) As Byte Dim Temp As Byte Dim Temp_wew...
Odczyt FLASH z VALEO opanowany. ALE: O ile odczytywanie eeprom po 1 ramce CAN ( 32kb) trwa 62sec. ( 1 minuta) i jest to do zaakceptowania. O tyle flash jest 48x większy od eeprom Zatem odczyt w takiej formie trwa ok 50minut. Nie robi się tego codziennie i tez można by to zaakceptować...
Witam. Koniecznie INDY 10. Znalazłem z milion artów i tysiące dem ale w żadnym, nawet w tym przy instalce Delphi nie mogę znaleźć w jaki sposób IdTCPServer1 ma wysyłać tekst do jedynego IdTCPClient1 z którym ma połączenie; było by miło jak wysyłać do jednego z kilku, ale cudów nie oczekuje, po prostu...
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...
Wiekszosc zmiennych, to zmienne globalne. [syntax=delphi] var Form1: TForm1; usb:dword; pbDriverInstalled :integer = 0; lpguid:tguid; bufer: array[0..255] of byte; buferin: array[0..255] of byte; ib,dl,odczyt:word; poz:TstringList; ini:tinifile; rf:TRodzajflasha; [/syntax] W...
Chłopaki czy zna się ktoś na C i może mi to przetłumaczyć na Delphi, gdyż C dla mnie to szlaczki :) Z góry dzięki [syntax=c] class Program { private static byte GenerateChecksum(byte[] data) { int offset = 1; byte ret = data[offset]; ...
Może mi ktoś wytłumaczyć dokładnie co robi ta procedura z tym casem ? Wiem że użytkownik podaję ścieżkę która jest zapisana w zmiennej "dostęp" czy mam rozumieć że zmieniam ścieżkę do mojego pliku ? [syntax=delphi] PROCEDURE sciezka(dostep:string); begin assign(plik, dostep); end; [/syntax] [syntax=delphi] .....
Witam, Nie mogę znaleźć ani na polskich ani zagranicznych forach jak zaimplementować obsługę Google Speech Recognition w Delphi. Załóżmy że po naciśnięciu klawisza następuje nagranie dźwięku z wejścia mikrofonowego, następnie programem zewnętrznym konwersja nagranego wav do flac o odpowiednich parametrach...
Interesuje mnie procedura, która wyszukiwałaby określone pliki na dysku, a jeśli już je znajdzie, to wtedy powiedzmy skopiuje je w inne miejsce na dysku. Znam kod na wyszukiwanie plików na dysku, ale nie potrafię zrobić czegoś takiego, że jeśli np. już znajdzie plik powiedzmy 1.jpg, to wtedy coś (jakąkolwiek...
Dzień dobry, mam taki kłopot z delphi 10.2 + komponent Comport do komunikacji RS232. Czy ktoś spotkał się z takim problemem: Odbieram dane z urządzenia, które przez cały czas co 1 sekundę wystawia ramkę "#01;" lub "#02;" ( każde urządzenie wystawia swój adres). W terminalu ramki są bez problemu...
W moim programie pisanym w Delphi mam nastepujacy problem i prosil bym o rade Mianowicie mam dwie formy , forma glowna Form1 i druga forma Form2 ktora wyskakuje gdy trzeba podac pin kod w Form2 jest jedno edit w ktore wisujemy pin i ponizej jest Bitbtn "OK" po ktorego nacisnieciu zamyka sie Form2...
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...
Jest sobie taki oto kod: var PageContent: String; begin try IdHTTP.Head(... (IdHTTP.ResponseCode<>200) or (Copy(IdHTTP.Response.ContentTyp... then Exit; PageContent:=IdHTTP.Get(...
Witam. Cy możecie mi podpowiedzieć jak wywołać w programie napisanym: 1. w Delphi kompilację całego (lub moduły po kolei i na końcu EXE) projektu napisanego w Delphi (mam Delphi 2007)? 2. w Pascalu kompilację (lub moduły po kolei i na końcu EXE) projektu napisanego w Pascalu? ścieżka do kompilatora: ...
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 ...
Mam urządzenie, które wysyła przez rs232, ciąg bajtów i na końcu sumę CRC. Odbieram te sześć bajtów w delphi comportem. Wsyswietlając je jako string otrzymuję: Xo_ wg hex będzie to kolejno 58 01 02 6F 5F 08 Ostatni bajt 08hex to suma CRC. Próbowałem obliczyć samemu tę sumę wg róznych...
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ć...
Witam! Mam taki problem otóż mam programik klient-serwer gdzie wysuwanie stacji dysków i wsuwanie działa wyświetlanie błędu także działa ale mam prblem co do zakmnij system windows , wyłącz/włącz monitor, pokaż/ukryj ikony oraz kursor. Mam przypisany kodzik ale nie chcą mi działać te komendy mógłby...
Witam Mam problem z zamainą StrToFloat. Otóż napisałem program w vcl w delphi 7 który ma rozwiązywać układ równań metodą gaussa. Równania zapisujemy w jednym stringgridzie a wyrazy wolne w drugim stringgridzie. W kolejnych dwóch stringgridach wyświetlana ma być macierz górnotrójkatna a w 5 stringgridzie...
Witam. Próbuję odczytać poprzez ComPort ramkę tzn. ze stringami nie ma problemu, ale ramka wysyłana jest w postaci: byte 01 03 00 00 00 02 C4 0B. ComPort.Read(dane, Count); ale jak dane przepisać np. do: Buffer_I : ARRAY [0..20] of byte;
Na delphi to mocno się nie znam ale standardowo należy dopasować do siebie typ stringa oraz dodatkowo może być jeszcze różnica z cdecl po jednej stronie i stdcall po drugiej. więc trzeba to wyrównać. W DLL'ach C pewnie to ANSII czyli prosta tablica zakończona NULL czy podobnym asciiz (nie pamiętam...
Mam problem gdyż na moim Form chcę wyświetlić kilkanaście ramek TFrame. Oczywiście tworze je sobie następnie chcę je wyświetlić dynamicznie oraz przekazać do nich moją zmienną ale przesyłam kod przykładowy: [syntax=delphi] unit Unit1; interface uses Windows, Messages, SysUtils, Variants,...
Witam Spróbuj podobnej konstrukcji: [syntax=pascal] SQL: TSQLDataSet; procedure TMainForm.btnAddClick(Sender: TObject); var SQLQuery : String; begin SQLQuery := Format('INSERT INTO users SET name="%s", mail="%s"', [edtLogin.Text, edtMail.Text]); SQL.CommandText := SQLQuery; if SQL.ExecSQL(True)...
Dzięki za pomoc! Dokładnie stąd go wziąłem :D Jak widać, kod przydaje się wielu osobom :) Ale mam jeszcze jeden problem. Chciałbym haszować te kombinacje MD5, jednak za nic nie mogę się pozbyć błędu . Jakbym nie próbował Hasz:=md5.HashString(Kombinacja); zawsze generuje taki błąd. Wpisywanie...
Teraz perocedura jest kompletna, mógł by mi to ktoś poprawić co jest źle i opisać żebym mógł to zrozumieć ? [syntax=delphi] procedure TForm1.Otwrz1Click(Sender: TObject); var ex:String; jpg:TJPEGImage; bmp:TBitmap; png:TPNGImage; begin if OpenPictureDialog1.Execute then begin ...
To do proste: [syntax=delphi]procedure TForm1.Button1Click(Sender: TObject); var I : integer; s : string; begin for i:=0 to self.ComponentCount-1 do if (self.Components[i] is TEdit) then begin s:=TEdit(self.Components[i]).name+'='+TE... //store...
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...
Witam. Poniewaz Google zwrocily mi moj adres, postanowilem zareagowac i pomoc. Skoro ma byc open, niechaj bedzie:) Oto maly listing modulu symulujacego interfejs Girdera (jest on nieco uproszczony pod katem biblioteki Igora Cesko...): {target: Delphi 3.0} {author: NopSoft (Janusz U.)} {wersja...
Witam! Mam następujący problem: przesyłam dane pomiędzy uP a PC w Delphi przy pomocy komponentu vacomm32. Prędkość transmisji wynosi 115200b/s, odebrane dane z uP zapełniają tablicę stringów. Do pewnego momentu wszystko działa (przesłanie ok. 4kB nie nastręcza problemów), lecz po pewnym czasie poszczególne...
