Nie wiem, czy nie bezpieczniej byłoby użyć wyłącznie wskaźnika i rzutowania (timer: Pointer; TTimer(timer).Enabled:=false). Biblioteki DLL bardzo nie lubią niestandardowych rozwiązań, jako choćby nawet Stringi :) Pamiętaj, ze DLL nie widzi wywoływanego jej programu, stąd zapis form1.timer1 jest zupełnym nonsensem dla DLL.
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 znakiem ENTER a co za tym idzie wszystko co...
Te rekordy są stałej czy zmiennej długości? Czy znana jest ich ilość? Generalnie, przekazując z/do dll dane można to na kilka sposobów zrobić. Najczęściej preferowany przez MS, to odpytanie DLL o to, ile danych potrzebuje (jeśli nie jest to stały rozmiar), rezerwacja pamięci i przekazanie wskaźnika do tego obszaru, w którym DLL zapisuje, a caller sobie...
kolego no ale gdzie dodałeś? ;) .... ..... form4.Edit8.text := sList.Strings zobacz najpierw próbujesz odczytać coś ze stringlisty i to normalne że wywali się błąd index out of bound bo nie ma do niej nic wczytane najpierw wczytaj zawartość pliku do stringlisty sList.LoadFromFile(NazwaPliku); {dodałem} a potem odczytuj z niej poszczególne stringi form3.label1.caption...
Zrobiłem serwer http, który czyta dane wysyłane z atmega (jakieś temperaturki). Jezeli jestes autorem skryptu zapisujacego dane na serwerze i mozesz dopisac sposob odbierania dasnych przez aplikacje w delphi, to mialem podobne doswiadczenia i rozwiazalem to w nastepujacy sposob: - po stronie serwera skrypt php, ktory w zaleznosci od pol zapisywal dane...
sposób który podał mirekk36 jest świetny staram sie tylko go przełozyc na bascom dopiero zaczynam z delphi :(
A przekazywanie typu Pchar nie działa? Zmień stringi na Pchar i nic w strukturze programu sie nie zmieni. Pchar tez jest formą wskaźnika.
Natomiast co do obsługi np. portu szeregowego pod Win trzeba się zapoznać z WinAPI.... Zapoznać sie z użyciem w .NET. Nie wykonuje tam się żadne "zmienienia API na WinAPI" że niby to port szeregowy. WSZYSTKO jest dostępne obiektowo z C# .NET w sposób spójny bezpieczny, właśnie listenerami jakie zacząłeś pokazywać, tylko musisz je zrozumieć. Np po głębokiej...
Dzień dobry. Załóżmy, że mam dwa stringi s1 i s2. Za pomocą funkcji Pos sprawdzam czy s1 występuje w s2 Pos(s1,s2) Po sprawdzeniu okazuje się, że s1 występuje w s2. I teraz chodzi mi o wyświetlenie w Edit1 dziewięciu znaków, które występują w s2 ale bezpośrednio za tym znalezionym s1. Pozdrawiam i proszę o pomoc.
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 nrfab:string; nsi:string end; potem po var: d_o:dane;...
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 jest nazwa ScanStrSP . Gdy korzystam z niej w Delphi...
No to musisz rozdzielić liczby na liczby a tekst jako tekst :) zawsze możesz zmienić moją procedurke type PDane =^TDane; TDane = record cena:real; nazwa:string; end; function Sortowanie(item1,item2:Pointer):integer; begin if PDane(Item1).cena<Pdane(item2).cena then result:=-1 else if Pdane(Item1).Cena>Pdane(item2).Cena then result:=1 else result:=0;...
Stringi w pascalu zaczynaja sie od 1. Na bajcie zerowym jest dlugosc stringa. maxymalna dlugosc stringow w pascalu, wlasnie z tego powodu to 254 znaki. W delphi zostalo to poszerzone do 32 bitow o ile sie nie myle. Problemem z dodawaniem stringow bedzie to, ze readln czeka na CR, wiec bedzie trzeba dwa razy klepac enter. Natomiast czytanie znak po znaku...
1.Wstaw IdGlobal do Uses to będziesz mógł korzystać z formy jaką Ci napisałem; 2.Zrób odczyt w oddzielnym wątku (TThread) to program nie będzie się wieszał; 3.Ustaw ConnectTimeout i ReadTimeout dla TCPClient1 (w milisekundach); 4.Program oczekuje na string'a zakończonego CRLF. Jak ustawisz timeout'y (pkt.3) to będzie czekał tylko zadany czas. Pozdrawiam...
Witam Mam wyświetlacz LCD 4x20 (oznaczenie ABC020004B21-BIW-R-01) i chce uzyskać na nim polskie znaki wysyłane jako stringi poprzez czy to port szeregowy i mikrokontroler czy też bezpośrednio przez LPT. Wiem, że ma napewno polskie znaki ale niestety nie mam do niego dokumentacji. Przepuszczałem w programie w Delphi w pętli wszystkie kody znaków od 0-255...
Probowales mimo to ,ze nie mogles ustawic flag uzyskac polaczenie na comport? Kiedys napisalem programik ,ktory komunikowal sie z urzadzeniem ale nie chcial wlasnie wspolpracowac ze standardowym onrxchar. Wklejam tu fragmenty powycinane (postaram sie zeby stanowily jakas calosc) i mozesz sprobowac zrobic wg tego: for i:=1 to 1023 do begin //wysylam...
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]; Tel: String[12]; Ulica: String[20]; Mieszkanie: String[5]; Miasto: String[15]; Kod: String[5]; end; const...
Ależ jak rozumiem dokładnie to sprawdza, zmień jedną literę i wynik będzie inny (o ile pamiętam zero). Jakoś nie rozumiem pytania, może chodzi o sprawdzenie równości stringów; wtedy wystarczy (str=str).
msg + #13#10 + s to konktatenacja ( łączenie ) stringów msg łączysz z #13#10 ( nowa linia ) i ze stringiem s, który tworzysz za pomocą:Str(x1:0:6, s); x1 - liczba z której tworzysz stringa 0:6 to chyba zakres s - zmienna do któ¶ej zapisujesz to pzdr.
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 do tray'a to najlepiej jest zastosować jakiś komponent...
W przypadku bibliotek dynamicznych, jak wcześniej pisałem, trzeba zrezygnować z tak wysokiego poziomu abstrakcji na rzecz WinAPI i najlepiej standardów przekazywania parametrów zgodnych z Windows (nie z Delphi), szczególnie tyczy się to stringów. W przypadku funkcji graficznych, jak wcześniej pisałem, trzeba operować na DC obiektów i rysować z użyciem...
Liczba i opis błędów będą raczej stałe. Otwórz je jako stałe. Nie wiem, czemu chciałbyś je tablicować i w jaki sposób odwoływać się do tej tablicy. Numerami błędów ? [syntax=delphi]const IE_BADID = 'Błąd otwarcia portu COM'; IE_OPEN = 'tekst błędu'; [...] try //operacje na porcie except On E : EBADIDError do StaticText1.Test:=IE_BADID; On E : IEOPENError...
A może po prostu wczytać cały plik, każdą linijkę jako osobną komórkę tablicy stringów. Zmienić pierwszy element tablicy i zapisać ponownie wszystko do pliku. Nie trzeba nawet używać Memo. Polecam TStringList: http://www.delphibasics.co.uk/RTL.asp?Na...
Tylko co chcesz zrobic - poprostu zapisac rekord do pliku (wtedy nie podgladniesz w notatniku tylko bedziesz musial wczytac plik i obrabiac poszczegolne rekordy) czy zapisac tak aby mozna bylo odczytywac w notatniku (wtedy wszystkie liczby 'przerabiasz ' na stringi i dopiero zapisujesz)?
Cześć, bawię się w komendy tekstowe i mam problem z którym nie mogę sobie poradzić już od paru godzin. Chciałbym dodać numer + nazwę do Memo1 po wpisaniu w Edit1 komendy na przyklad w Edit1 wpisuje: /add 1 Michal Klikam OK, w Memo1 pojawia się 1 Michal Jak to zrobić? Zły kod, na którym próbowałem to zrobić: var nr: integer; imie: string; const...
Gdybym dziś musiał, bym podjął próbę zlinkowania C z Pascalem, a samą funkcję zachował w C. Operatory arytmetyczne w C są "surowe", w pacalu mogą być "bezpiecznie" np z kontrolą przepełnień, tu jest prawdziwy unsigned, tam ugłaskany unsigned itd.... Kilkakrotnie przez 25 lat miałem porażki. Pamiętaj o stringach liczonych od 1 Prawdą jest że nie angażuję...
Nie za bardzo czaję C, ale z tego co zrozumiałem, to ta metoda nie jest zbyt "elegancka". Tworzysz dodatkowy obiekt (typu TStringList), z którego wykorzystujesz tylko jedną własność (no chyba, że w dalszej części programu operujesz na stringach wykorzystując ten obiekt)....
Czy uC wysyla wszystko jako jeden ciag (tak jak to przedstawiles),czy za kazdym razem krotki string np. temp1=5 ? Ogolnie wszystko rozbija sie na operacjach na stringach (instrukcja Copy(Zmienna:String,PozycjaOdKtorejZaczy... Potrzebyjemy:Integer)). w przypadku gdy wysylasz temp w krotkich stringach i za kazdym razem przechwytujesz...
W większości bibliotek nad warstwą SQL w różnych językach nie ma takiego czegoś dla IN () . Spotkałem tylko raz, ale to bardziej wysokopoziomowe obiektowe rozwiazanie w Javie Tam świadomie się podaje List i lista jest prawidłowo bindowana w takim miejscu Dwie wiadomości, dobra i zła a) trzeba sklejać ze stringów b) o ile będzie operarować na zmiennych...
Mozna robic i poprzez indeksowanie literami, które zmapujesz na klawisze i poprzez indeksowanie klawiszami 2-9. Ja nie widzę problemów. To, czy pod 2 jest A, B czy C, to taki sam problem jak to, czy pod ścieżką 2-9 masz AZ, BY... T9 właśnie tym się charakteryzuje, że jest to szyfrowanie niejednoznaczne, dlatego jest klawisz przejścia pomiędzy kolejnymi...
do porównywania stringów służą takie funkcje, jak AnsiCompareStr
Pora zakończyć temat. Ogólnie wszystko zrobiłem, jednak pewne sprawy wykluczają taki sposób pracy z telefonem. Tu trzeba coś lepszego (nowszego) niż AT i obróbka stringów. Pozdrawiam
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 zmiennej globalnej DecimalSeparator . Ponadto zamiast...
To, że trzeba przetrawić stringi z portu szeregowego to wiem tylko właśnie problem, że na szybko nie znam pascalowskich funkcji do cięcia stringów bo tu zupełnie wszystko inaczej niż w C. Prosiłbym o pomoc w zmianie funkcji wypisującej w memo i w pocięciu tego co zwraca ReadData i znalezieniu tam końca linii. Wielowątkowość nie jest w ogóle tu potrzebna....
Chyba to przyzwyczajenie, ale z jednej strony obsługa błędów a z drugiej trochę szersze spojrzenie na temat bo mi biblioteka kojarzy się z lista plików wiec potem (o ile dojdzie do tego etapu) to może wpadnie na pomysł, żeby podmieniać Stringi. Dodatkowo widzi w programie co mu się robi no i może nie tylko jedna osoba z tego skorzysta - no cóż taki...
No to niech będzie nawet 100 milionów ale nie musisz tego przecież wszystkiego wyświetlać.Wszystkie kombinacje możesz zapisywać do jakiegoś stringa albo kilku stringów i wyświetlać tylko pojedyncze bloki które będą cie interesowały.np string1 będzie przechowywał pierwszych tysiąc kombinacji string2 drugi tysiąc itd.
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 tak: [syntax=delphi] a:=inttostr(memo1.CaretPos.x);...
Dopóki nie przyjdzie enter, tekst powinieneś dopisywać do ostatniej linijki, zamiast cały czas dodawać nowe linie. W Delphi dostęp do tekstu wyświetlanego w TMemo jest możliwy przez kolekcję stringów TMemo.Lines - w builderze powinno być podobnie. Po przejrzeniu helpa o komponencie memo rozwiązanie powinno nasunąć się samo ;)
Mam zapis transmisji ściągnięty z magistrali szeregowej ultra sztuczką magiczką, za pomocą szpecjalnego konwertera. Po otwarciu w programie winhex, bez problemu da się odczytać kolejne ramki tego protokołu. A teraz w czym problem... Chce napisać program (a znam się na obróbce stringów, mam w tym jakieś doświadczenie) tylko nie umiem przerobić tego co...
Znałem takie jedno fajne C. Nazywało się C64 - dobre dla "początkującego, zielonego" programisty i można też było sobie pograć... Na poważnie. Błąd o którym piszesz wynika z tego że TStrings to tablica wielu stringów, a ty chcesz żeby to się równało 1 stringowi. Ten błąd pewnie wystąpi bez względu na język programowania jaki wybierzesz. W Delphi to...
nie jestem pewien co do tego momentu: "ss1:=ss Nie wiem do kogo odnosi się ta odpowiedź.Ja zdefiniowałem array zawierający stringi: str:array[1..100]of string;czyli np str[3]='rt'; a skąd wzięło się tab[i-1]:=...........? Skompiluj to co podałem i zobnaczysz że jest OK!
Witam. Chciałbym zrobić automatyczny Replace, żeby zamieniał automatycznie litery na zamienniki. Mogło by to działać w ten sposób: RichEdit1.Lines.SaveToFile('aa.txt'); // to co wpiszę w RichEdit1 po kilknięciu w przycisk zapisuje do pliku aa.txt << formułka dla ReplaceDialog by podmieniał w aa.txt np. ze stringów 'a' na 'b', 'c' na 'd' etc. >>...
Powtarzam - prezentacja hex służy wyłącznie do celów PREZENTACYJNYCH. Chcą wyświetlić plik, wczytujesz go i prezentujesz w takim formacie, lecz właściwą treść trzymasz albo w tablicy bajtów, albo też sam plik trzymasz otwarty. Konwersja na hex na potrzeby zmiany by zapisać spowrotem jest procesem czasochłonnym i niepotrzebnym. Notabene są gotowe komponenty...
W plikach DBF, z którymi miałem kontakt, pomagała konwersja z Mazovii. http://www.webmaster.net.pl/informacje/k... Nie znam Delphi - jeśli nie ma tam gotowej funkcji do tego, to zawsze możesz sobie napisać swoją. Nie ma większego sensu przelatywać całej bazy taką funkcją - tylko stringi, które odczytujesz. Kody Mazovii możesz wrzucić...
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. 100 bitową liczbę. Kolejne dane będziesz pobierał z...
Bzdura. 1.Po to sa zmienne globalne. 2.Podpowiedz do prostoty (i nieskomplikowania) kodu: -string jest jakby tablica, kazda litere w (w tym liczby) mozesz porownac do siebie - znaki od '1' do '9' leza kolo siebie -uzywam tylko operacji na stringach jezeli zmienie kocd na (chyba 4 linie) sprawdzanie dlugosci komendy, to komendy moga miec dowolna ilosc,...
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 ktore wykozystuje program to: FindFirst, FindNext; funkcje...
Witam Zapoznałem się z metodami "obróbki" stringów czy istnieją sposoby na wyszukiwanie wyrazów w stringu lub jeśli mam dwa wyrazy w stringu jakoś pokazać że chodzi mi o drugie wystąpienie tego wyrazu dążę do ustawienia kursora w odpowiednim miejscu. Bo jeśli chodzi o pojedynczy nie powtarzający się znak to jest to stosunkowo proste.
Bardzo dziękuję, działa:) Pytanie tylko mam do tego: skoro maksymalna ilość znaków przechowywana w TStrings określana tu jest limitem pola TMemo.MaxLength, to najlepiej byłoby znaleźć jakąś metodę która zwraca obecną ilość znaków w TStrings'ie, coś w stylu: while Memo1.Lines.ObecnaIlośćZnaków > Memo1.MaxLength do Memo1.Lines.Delete(0); i...
ale char to przeciez pojedynczy znak wiec program odczytajeden znak z calego tekstu... Moznaby zmienic by zmienial za kazdym razem pozycje kursora ale ro ma dzialac w delphi a tam jak sie orientuje to sa jakies klocki ze zmiana pozycji kursora... Poza tym lepiej znam operacje na stringach niz na char'ach... Czy nie dalo by sie jakas usprawnic tego mojego...
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;
No tak. Nie działa juz projekt. Instalacja Service Packa RTL-a i Indy przebiegła wspaniale, bez jakichkolwiek błędów. Syndrom nowoczesnosci i tyle. Pomóźcie mi więc może to zrobic na starszych Indy: http://www.elektroda.pl/rtvforum/topic33... Jazzon ma chyna nowsze Indy bo zamiast UserID u niego było UserName. Powiedzcie dlaczego odbiera mi adres...
Nie znam delphi, ale nazwa ReadLine sugeruje czytanie do napotkania konca linii (pewnie ta funkcja czeka, az przyjdzie koniec linii). Podobnie ReadUntil(koniec) - podaje się znak końcowy. Będzie to miało drobną wadę - funkcja ComPortRxChar. będzie mogła się zatrzymać na moment, ale skoro przyszedł początek do reszta nadejdzie w ciągu ułamka sekundy...
Ehhh przecież listbox zawiera tablicę stringów, a nie stringa. Musisz to wsadzic w jakąś zmienną rozbić na pojedyncze linijki i dodawać linijka po linijce. listbox1.add(linijka1); listbox1.add(linijka2); listbox1.add(linijka3); Możliwe że bedziesz musial troche przerobić to co napisałem, dawno nie pisalem w delphi i mogłem jakiegoś krzaka napisać.
Moim zdaniem 48 wygląda bardziej szpanersko i wogóle jest trendy :D A tak na serio to przesiadałem się z Delphi, gdzie zmienny typu znakowego "char" nie dawały się tak po prostu dodać do liczb i trzeba było stosować konwersję. Następnym raze zwrócę na to uwage ;) A tak na marginesie - orientujecie się, koledzy, czy "profesjonalne" bilbioteki do konwersji...
No to problem rozwiązany poniżej dla potomnych kod z lazarusa, w Matlabie nic nie trzeba konfigurować. [syntax=delphi] procedure TForm1.Button21Click(Sender: TObject); var MReal, MImage, MatLab : Variant; dupa : integer; begin dupa := 30; Matlab := CreateOleObject('Matlab.Application'... // Cria inst창ncia...
Witam, sorry za taki może troszkę dziwny temat ale jestem zielony jeśli chodzi o techniki i algorytmy służące do deszyfracji. mam pytanie czy ktoś może mi podpowiedzieć jakieś stronki bo jakoś sam nie mogę nic dobrego znaleźć, albo dać znać czy są jakieś chociaż ogólnodostępne programy, które podejmują się prób deszyfracji jakiejś zakodowanej wiadomości?...
Witam. Do posortowania jest dość duży zbiór polskich wyrazów. "Normalne" porównywanie znaków działa tak, że a<b<...<z..<ą.. I dlatego ?chyba? nie można bezpośrednio porównywać dwóch stringów if str1<str2, bo bąbel > bzdura. Czy istnieje jakaś funkcja/instrukcja, która na ten problem patrzy bardziej "po polsku"? Czy może trzeba sobie...
odnośnie zapamiętywania i pobierania stringów z pamięci ROM(flash) to nie mam jakby problemów ale chodzi mi o sposoby obróbki tych "ala" stringów. Tzn po wykładzie kolegi Freedie już czuję o co chodzi ale np tak: w pascalu(delphi) mam taką swoją ulubioną i często potrzebną mi funkcję function ScanStrSP(var Text: string; Separator: string):...
Witam Mam taki problem... chcę wysłać chara przez kontrolke serial port w visual basic na port com. W delphi przez przez comporta nie było problemu bo posiada ten komponent funkcję: Przykładowy kod delphi : procedure TFormComPort.TD(a: Byte; b: Byte; c: Byte; d: Byte); begin ComPort.WriteByte(a); ComPort.WriteByte(b);...
mialem podobny problem (turcy w hexedytorze pozmieniali wszystki stringi i co gorsze wywalili mnie jako autora) jakie zastosowac szyfrowanie i skorzystelem (w delphi) z tego (metoda ktora podal (at)ja_fryta): function Szyfruj(sString, Password : String) : String; var I : Integer; PassCount : Integer; begin PassCount := 0;...
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 odebrane bajty zaczynają się "zlepiać", tzn....
No dobra, to wiele wyjaśnia. Napisałem taką procedurę wg Twoich wskazówek: Dodano po 4 Dodam, że przy takim odbiorze nie zauważyłem ubytków w odebranych danych. Dodano po 9 Rozwinąłem procedurę do takiej: [syntax=c]procedure TMainWindow.SerialRxFlag(Sender: TObject); var RxBuffer: array[1..16] of Byte; c: integer; RevS: String; i: integer; begin Serial.ReadStr(RevS,...
Dzieki, czyli poczytam więcej o PLC2011A0 i B0 Powiedz mi, czy można np edytować oprogramowanie ? chciałbym je napisać w troche lepszej wersji graficznej. Przecież są biblioteki DLL do kilku języków programowania. Możesz sobie zrobić interfejs użytkownika jaki chcesz i wysłać mu komendę z programu. Piszę właśnie w C#. To jest banalnie proste: Najpierw...
Zacząłem od końca-zrobiłem kodowanie obrazka do base64 Załadowałem obrazek na formę korzystając z OpenPictureDialog ,wrzuciłem na formę komponent z INDY o nazwie IdEncoderMIME1 i dalej kodowanie: procedure TForm1.Button1Click(Sender: TObject); var f : TmemoryStream; begin f := TmemoryStream.Create; try image1.Picture.Graphic.SavetoStream(...
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 przechowywać zarówno stringi jak i liczby (wielkości...
wielkie dzięki za sugestie, w związku z tym, że dopiero intensywnie uczę się Bascoma, to dlatego nie zawsze jeszcze jestem w stanie na szybko doszukać się odpowiednich poleceń w helpie jak podany przez ciebie Instr ;) również odnośnie tych paramterów $hwstack, $swstack, $framesize i ustalania ich wartości nie jestem jeszcze w pełni świadomy jak z nich...
Witam, jak wiadomo (przynajmniej mi narazie) z helpa Bascoma - zwykłe polecenie PRINT generuje na końcu dwa dodatkowe znaki CR i LF również jak wiadomo polecenie INPUT reaguje na znak CR ... co więc się dzieje ze znakiem LF po instrukcji INPUT jeśli mamy zdefiniowany jakiś bufor: Config Serialin = Buffered , Size = 80 Input String_var Noecho i przylatują...
Wszystko działa! Używam wprawdzie wersji 10.00 (2005), ale jest ta funkcja i jest w pełni obsługiwana. Zatem w finalnej wersji posłużyłem się na końcu funkcji nie: Dodano po 2 OK, doszedłem do tego, że funkcja Insert daje mi możliwość wstawienia czegoś w stringa, a wskaźnik wskazuje tylko miejsce w pamięci, więc wszystko gra i buczy. Mogę poprzez wskaźnik...
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... var wynik:PChar; begin wynik:=''; wynik:='Dowolny tekst '+parametr+'koniec dowolnego tekstu'; Result:=PChar(wynik); end; exports funkcjaDLL;...
W PHP również można implementować bazy - nawet lepiej niż w Delphi - dlatego uważam że wersja sieciowa jest bardziej "mobilna". Można ją używać również przez komórkę czego o exe się raczej nie powie :) Jeżeli ktoś bałby się konieczności bycia on-line by używać programu to można udostępnić bazę + pliki php + np. środowisko WAMP i lokalnie odpalić portal...
Witam Naskrobałem następujący kod [syntax=delphi]var // odczytanie strumieniowo danej z bloba ms: TStream; // zdefinioawanie strumienia begin if SQLQuery1.Active then // jesli otwarty SQLQuery SQLQuery1.Close; // to zamknij SQLQuery1.SQL.Clear; // wyczysc pole z zapytniem SQLQuery1.SQL.Text := 'SELECT * FROM tabela WHERE pole = ' + #39 + 'abc' + #39;...
W C++ Builder wszystko ... klarowniej Widziałeś kilku/nasto/letni project w tych technologiach? Utrzymywałes go? Combo1, Combo2, Combo3, Combo23. Statyczny wskaźnik na formę (zwykle cienkiemu programiście jedyny znany dostęp do tego obiektu). Eksploatuję program, gdzie od ponad roku nie da się wyeliminować dość widocznego (na produkcji) błędu. w Visual...
http://obrazki.elektroda.pl/2051043700_1... Witam jakiś czas temu zainteresowałem się technologiami www oraz systemami zarządzania treścią CMS i nieco eksperymentowałem. Jakoż że w Delphi nieco potrafię zdziałać chciałem wreszcie coś pożytecznego, i jak zwykle okazało się że lenistwo jest matką wynalazków :D A po drugie chciałem również...
Dzięki za szybką odpowiedź. Wcześniej były podejmowanie próby uruchomienia dll-ki w C#, sama funkcja command (nota bene jedyna udostępniania przez bibliotekę) byłą wywoływana lecz pojawiał się inny problem w dalszej pracy z dll-ka. Jednak na podstawie sposobu podpięcia funkcji command w c# można wnioskować, że rzeczywiście typy TLnId i TStatus to są...
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 http://zeos.firmos.at/ [syntax=Delphi] Query.Active := False; Query.SQL.Clear; Query.SQL.Add('SELECT...
Wczytaj cały plik, usuń ze stringu żądany tekst i nadpisz plik tym stringiem (za pomocą rewrite).
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) Edit1: TEdit; Button1: TButton; Button2: TButton; procedure HexToDec(Sender:...
Niestety nic nie rozumiem. To count nie zawiera ilości bajtów jakie siedzą w buforze?? Jaki wpływ na obcinanie paru początkowych bajtów ma to co robię później z odebranym stringiem (zmienna odebrane)??
To jest typowa metoda konwersji za pomocą rzutowania typów i nie wymaga allokacji pamięci.
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...
Witam Sprobuj rzutowac na typ AnsiChar - ja tak zawsze robilem, wolajac funkcje API :) MessageBox(0, PChar('Najwieksza wartosc wlasna to' + #10#13+FloatToStr(w)), PChar('Wartosc wlasna'), MB_OK); Pozdrawiam
Dziękuję za informację, ale nie do końca o to mi chodziło. Wiem, że tamtejsza property jest stringiem. Interesuje mnie jakaś specyfikacja tego jak ten string jest interpretowany i czym się różni od np. requestowego URL. Nigdzie tego nie mogę znaleźć. Nie ma w dokumentacji Delphi (a przynajmniej ja nie znalazłem) żadnej informacji co tak naprawdę w tym...
SelText bodajże.
Witam forumowiczów, piszę program do którego ma łączyć się około 10-12 klientów, do połączenia wykorzystuje TServerSocket (klienci TClientSocket) założenia co do serwera są takie że odpowiada klientowi na wysłaną komendę np: klient wysyła string ?TEMP_CZ1 a serwer odpowiada mu stringiem !TEMP_CZ1:87C. Problem mam właśnie z identyfikacją od jakiego klienta...
Witam. Odnośnie punktu 2, niewiem czy pomogę ale wyciąganie ze stringów realizowałem w Delphim w nastepujący sposób. Do tego potrzebne są trzy funkcje: 1. function Length(S: string) : Integer; - Funkcja zwraca liczbę znaków, które zawiera łańcuch S. Liczba znaków nie zawsze oznacza liczbę bajtów zajmowanych przez S. 2.function Pos(Substr: string; S:...
Ale chcialbym dodac opcje Form4.hide. Jednak pojawia sie bląd. Gdy odpalam program niby okienko Form4 ladnie znika, ale gdy zamykam wszystko pojawia się jakies Okienko CPU z podzialem na 4 czesci, mnostwo liczb, to zdecydowanie jakis blad bo nawet nie powraca do wyjsciowego wygladu (object inspectra itp). U mnie pojawia sie strzalka przy: ntdll.KiFastSystemCallRet:...
Zapisz sobie cały ciąg do pliku, np. w ten sposób : http://obrazki.elektroda.pl/8273523500_1...
Na bank będzie chodzić o uprawnienia... Poza miejscem instalacji są jeszcze katalogi 'Embarcader' w '\Users'. Pamiętaj o zmianie uprawnień wszystkich podrzędnych.
Zadeklaruj w form1 globalna zmienna np tak: var lancuch:string; A potem z drugiej odwoluj sie tak form1.lancuch:=edit1.text Warotsc z przykladowego pola edit z form2 zostanie przeniesiona do string zadeklarowanego w form1.
Nie możesz przypisywać inta do stringa i odwrotnie: [syntax=delphi] Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1);[/syntax] Najpierw tekst zamieniasz na liczbę, później do liczby dodajesz jeden, a na koniec ten wynik zamieniasz na tekst.
Zacząłbym od tego: Otrzymujesz wartość zmiennej temperatura równą np. 1871819,25. Jak przemnożysz to przez 16 to okaże się, że wyrażenie (temp1 + (temp2*256)) zwraca wartość 29 949 108. Teoretycznie zmienne temp1 i temp2 nie powinny przyjmować wartości większych od 255, więc wartość maksymalna wyrażenia (temp1 + (temp2*256)) = (255 + (255*256)) = 65535....
Wrzucasz do stringa caly utworzony kod triggera a potem ten string uruchamiasz na bazie tak jak zwykłe zapytanie.
JmL(TM) --> z tą nazwą procka to już sobie poradziłem tak, że wysyłam ją jako string wprawdzie ale nie deklaruję jej już w programie (tak jak było widać to wyżej) - tylko leci nazwa procka podana w makefile, a to dzięki takiej konstukcji: #define STRINGIFY(x) #x #define TOSTRING(x) STRINGIFY(x) uart_putstr("\r\n"...
(at)mietekn , w lazarusie String jest tym samym co AnsiString, sam Utf8 również nie pomoże bo znaki mogą być zapisane w więcej niż jednym znaku. (at)Pocieszny , [syntax=delphi]ShowMessage(UTF8Copy(Edit...
No chyba, że te dane są wprowadzane wprost w takiej postaci do programu i nie ma innej możliwości (np eksport z innego programu) ;) Wtedy trzeba by je zdeparsować. Zdeparsowanie juz przeciez podales prawie gotowe :), znalezc znak - i podzielic stringa na dwie czesci.
Masz kod w C, wyliczone CRC z twojego stringa to 0x08. Jak chcesz kod jak wyliczac z tabeli to daj znac. uint8_t CRC8_Check(uint8_t *Data, uint8_t Size) { uint8_t i = 0; uint8_t bit = 0; uint8_t checksum = 0; const uint16_t POLYNOMIAL = 0x131; for (i = 0; i < Size; i++) { checksum ^= (Data[i]); for (bit...
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 ??
StringOfChar(' ',n)+ i właśnie o to mi chodziło, wiedziałem że coś takiego musi być :)
Wpisuję: Int := 1 + #13#10; ComPort1.Write(Int); Wpisz : var int : array[0..2] of byte; begin int[0]:=1; int[1]:=13; int[2]:=10; ComPort1.write(int,3); end;
stringi chara usart stringi arduino stringi
avast kwarantanna radmor programator komputer wolno stojący
Daewoo Lublin 3 – funkcja przycisku z ikoną haka holowniczego, czujniki cofania RAKEL Receiver vs. Rake Receiver: TETRA Radios (Motorola, Sepura) and Multipath CDMA Explained
