delphi string koniec

[Delphi] - Podliczanie danych ze StringGrida do Edita

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.

[DELPHI] Jak dodać tekst na początku i końcu każdej linii w pliku?

Coś kiepsko szukałeś ;-) Memo1.lines.strings[x] - pojedyncza linia z Memo (x określa numer linii) memo1.lines.count - ilość linii Reszta to już podstawy (edycja stringu)

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

[delphi] Sortowanie labeli , listbox'a lub stringgrid'a

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]; return CompareText(cTemp1,...

DELPHI - Jak zapisywać logi w czasie rzeczywistym bez zamykania pliku?

Rób więc jak napisano - otwieraj plik, dopisuj stringa na jego koniec i go zamykaj. Wszelkie operacje dyskowe są buforowane przez system, a i dysk ma swój własny bufor... poza tym zdaje się nie ma to być wersja docelowa a "Debug Release" mający wychwycić jakieś błędy, w wersji finalnej nie będzie już logowania.

[Delphi] - ComPort i czytanie bajtów w kolejności

OK! Wiadomo co masz odebrać, ale podpowiedz jak jest wysyłana twoja ramka. 1) jednorazowo? 2) cyklicznie, co pewien czas? 3) w odpowiedzi na polecenie, ktore wysyłasz do urządzenia? 4) ma stałą liczbę bajtów? Chodzi o to żeby w programie wykryć początek/koniec ramki. Samo porównanie jest trywialne jeżeli ramkę składać w string(ciąg znaków) Jeżeli założyć,...

Delphi i FTP. Obiekt typu TClientSocket. Komunikat USER - brak reakcji.

A co dokladnie wysylasz? Byc moze cos jest nie tak ustawione w samym komponencie. Koniec stringa albo cos tego typu.

[Delphi] Jak pobrać zaznaczony tekst z RichEdit do stringa?

[syntax=delphi]RichEdit.SelText := ''; RichEdit.SelLength:=0; RichEdit.SelText:=''; //wstawia na początek RichEdit.SelStart:=RichEdit.SelStart+Ric... RichEdit.SelText:='<b/>'; //wstawia na koniec[/syntax] Niestety po wykonaniu dostaje [syntax=html4strict]<b/>[/syntax] :|

[delphi] Jak napisać warunek w Delphi do obsługi przycisku BitBtn1 i Timer1?

StringReplace. Ale jeśli wiesz, że występują zawsze i są tylko na końcu, możesz po prostu obciąć stringa funkcją Delete.

[PASCAL] Jak napisać procedurę usuwającą z kolejki po nazwisku?

Mam małą bazę danych - potrzebuję napisać procedurę usuwającą elementy z kolejki o podanym przez użytkownika nazwisku. Mam już opcję usuwania z początku kolejki oraz wszystkich danych. Będzie się ta procedura jakoś różnić od tamtych? Pozdrawiam. Tutaj deklaracja typów i zmiennych: [syntax=delphi]type lista = ^tlista; tlista = record imie: string[25];...

Delphi 7 - RS232: brak reakcji uP na wysyłane dane, mimo widoczności w terminalu

Witam, domyślam się że kod na uC pisałeś w BASCOM-IE ... dodaj na koniec stringa który wysyłasz ComPort.WriteStr('1' + #13#10);

Delphi - jak wywołać funkcję z parametrem string z DLL i zwrócić string?

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;...

Delphi 5: Konwersja stringa z TComPort na integer - błąd usuwania #13#10

Serdeczne dzięki za okazaną pomoc, światełko w tunelu pokazał mi mirekk36 w jednym z jego wcześniejszych postów http://www.elektroda.pl/rtvforum/topic71... Rozwiązanie okazało się banalnie proste, w zasadzie bez pisania ani jednego słowa kodu, genialne ! Dokładnie rzecz biorąc komponent ComDataPacket z jego zdarzeniem OnPacket. Musiałem tylko...

[delphi] [Delphi] Jak edytować pierwszą linię w pliku txt bez zmiany reszty?

wydaje mi się iż nie ma takiej możliwości, aby zmienić pierwszą linijkę... Rewrite usuwa całą zawartość pliku jeżeli plik ten istnieje, Reset otwiera tylko do odczytu, Append - jak sam kolega wspomniał, umożliwia dopisywanie na końcu pliku... Czyli nie da się tego zrobić operując na pliku tekstowym funkcjami rewrite/append :!: Można to zrobić otwierając...

filtrowanie danych z rs232-odbiór w programie w delphi

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ą obsługe odpowiedzi -> zamienić writeln na co kolwiek...

Delphi: Jak zapisać i odczytać dane z StringGrid w dzienniku lekcyjnym?

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 dziennikLekcyjnyGP; interface uses...

[Delphi2007] Niekompletne dane z ComPortu przy odczycie w OnRxChar

(at)wd40 przeciez czyta przez bufor (zmienna Count) z tym ,ze czyta po odebraniu znaku i bufor moze nie zawierac wystarczajacej ilosci danych... A czy napis z COMa nie musi kończyć się CR lub CR LF?, readstr chyba czyta napis a nie znak. Ja proponuję czytać za pomocą read(buf, count) po znaku lub kilka znaków i samemu sprawdzać koniec linii function...

Jak połączyć pliki sprzedaży i kupna w bazie danych sklepu w Pascalu?

Po pierwsze, musisz się zdecydować na jedną z metod postępowania z baza danych. Albo pracujesz, na zdefiniowanych tablica, które czytasz i zapisujesz do plików przy starcie i końcu programu, albo operujesz bezpośrednio na plikach. 1 Jak wczytać dane z pliku do tablicy po każdym uruchomieniu programu? Jeżeli zdecydujesz się na tablicowanie danych przy...

Delphi, C# - Przekazanie parametru z Delphi do DLL napisanej w C#

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 string. Nie mam problemu z wynikiem funkcji lecz z przekazaniem...

Delphi - Jak napisać program do obliczania sumy i średniej liczb?

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 wp; //Wprowadzana liczba std::string suma; //Czy liczyc sume std::string...

Delphi jak wyłączyć strzałki?

Jaca: Funkcja działa pięknie. Miałem z nią jednak pewne problemy. Jak chciałem dodać na koniec zwróconego stringa jakiś ciąg znaków to nie udawało się to. Dla tych co zechcą wykorzystać tę funkcje w swoich programach powiem że zwracany ciąg mieści się na całej pojemności zmiennej string. Aby coś dokleić na koniec trzeba najpierw wyciąć samą ścieżkę...

[Delphi] Jak poprawnie wyświetlić dane z RS w Memo?

Teraz program bardzo ładnie chodzi. Wyświetla wszystko tak jak powinien. Wielkie dzieki Xanio :!:. Mam teraz następujące pytania. Czy w momencie kiedy wysyłany string przyjmie postać kolejno 0.00 - 00.00 - 000.00 (licznik liczy w zakresie od 0.00 do 200.00 i od 0.00 do -200.00 ) ten sposób zliczania się sprawdzi. Widzę że przejście w zakres minus zero...

ATMEGA32 i DELPHI 7 - Błąd EConvertError przy konwersji String na Float

Tym razem masz enter w ciągu tekstowym. Natomiast kod pokazany jest niezgodny z tym z (4) - tam do konwersji podstawiłeś str - po co, skro w T1 jest właściwa wartość? Proponuję inaczej - utwórz pomocniczą zmienną jako pole klasy formatki (czyli do definicji dopisz sobie w części private zmienną typu string). Jak rozumiem, odebranie Entera ma jest sygnałem,...

Jak wydzielić liczby z ciągu 'a13a23a33a43a85a64' w Delphi?

Kiedyś napisałem prog. wydzielający ze stringu wpisane liczby. Jka znasz Delphi,na pewno znasz Pascala.Wydzielenie liczb następuje z dowolnego stringu,np ',+ii,123,---,34,mmm,ss,56,,,7890,p' uses crt,strings; var i,j,dl,zn,code:integer; tab:array[1..50] of real; sp,ss:string; function liczba(var j,dl:integer):string; begin sp:=''; while((ss[j]>='0')and(ss[j]<='9'))...

ObjectPascal/Delphi/Lazarus - Utrata danych przy transmisji przy użyciu TComPort

Ja tak myślałem, że coś z tym OnRxChar jest nie tak w moim przypadku :) Przyznam się, że nie mogłem sobie poradzić z innym zdarzeniem, bo nie mogłem znaleźć innego przykładu, aż do dzisiaj. Czułem od początku, że powinienem użyć albo OnRxBuf (bo odbieram bufor danych składający się z tej samej ilości bajtów, oraz zaczynający się i kończący konkretną...

[Delphi] Jak znaleźć i skopiować parametr z RichEdit1 do Edit2.Text?

Jeżeli ręcznie zdefiniuję stringa : s := ',scrollSensitivity: getValue(''PREF.scrollSensitivity'',... Edit2.Text := (Copy(s,57,Length(s)-57&... to niezależnie co wpiszę jako parametr ładnie zapisuje -jak chcę- do pola edit2.text . Mam plik tekstowy wczytany do RichEdit1. Chcę znaleźć w nim konkretną linię...

[Delphi] - ExtractStrings nie działa ze znakiem aposrofu.

Ciekawe jest to, że format XML nie pozwala w swojej specyfikacji na używanie w swojej zawartości zarówno pojedynczego jak i podwójnego znaku apostrofu. Zajrzyj proszę tutaj : [url=http://en.wikipedia.org/wiki/List_o... entities in XML. Skoro takie znaki się w XML-u znajdują,...

[Delphi] Jak stworzyć program do katalogu usterek samochodowych?

Zamiana z DOC czy RTF na plain text to żaden problem... autor pyta jak to zrobić w Delphi (Object Pascal) i dostał odpowiedź. Delphi na pewno nie jest językiem skrytowym i zapewniam, że świetnie się do tego zadania nadaje. Zapewniam też, że mechanizm podany w poradzie jest wystarczający do przesukiwania pliku tekstowego o strukturze jaką opisał autor,...

Pascal - Procedury wczytywania i wypisywania plików

Wybacz, ale to co napisałeś, to kompletna bzdura :/ Zastanów się proszę, ile to zajmie pamięci : [syntax=delphi]TTabString= array [1..999999] of string;[/syntax]I w ogóle jaki ma to sens. Twój program powinien się zawierać w kilku prostych krokach: 1. Odczyt nazwy pliku z klawiatury. 2. Otwarcie pliku. 3. Odczyt linii tekstu z pliku. 4. Wyświetlenie...

[delphi] Import danych z CSV do bazy Firebird 2.0 w Delphi - jak to zrobić?

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...

Delphi / C++ - Wszystkie kombinacje znaków z powtórzeniami-przepisanie algorytmu

Witam, potrzebuję napisać program, który wypisze wszystkie możliwe kombinacje elementów tablicy dla określonej ich liczby, łącznie z powtórzeniami, czyli: Dla tablicy a, b, c, d, e mają być kombinacje 2 znakowe aa ab ac ad ae ba bb itd. Znalazłem kod w C++, który znakomicie spełnia swoje zadanie (kod poniżej). Jednak potrzebuję mieć ten program napisany...

[Delphi 7] Jak naprawić błąd kompilacji przy użyciu komponentu Comport?

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 programów do obsługi RSa, żeby w ogóle zapoznać się z tematem,...

Zawieszanie prgmu gdy koniec podczas zapisu z RS232 do TMemo

Witam może rozwinę problem, korzystam z transmisji szeregowej (DELPHI 7) w progamie (komponent TCiaComPort http://users.pandora.be/sonal.nv/ ), wszystko wygląda ok, tylko gdy odbieram dane z portu szeregowego ( transmisja binarna 19200Bd i dane przychodzą bez przerw pomiędzy paczkami) i zapisuje przetworzone ( tzn. zamienione na string HEX + opis) dane...

Jak obsłużyć znaki LF po INPUT w Bascomie przy buforze Serialin?

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ą...

Bootloader AVR - "TOMLOADER"

tehaceole --> na razie mogę na szybko tylko powiedzieć, że takich sztuczek z wycinaniem znaków innych niż cyfra już próbowałem jak i wielu ludzi piszących o tym problemie na forach i techsupporcie MS. Ale problem jest gorszy bo spójrz sobie na jeden z moich wcześniejszych screenschot'ów w menadżerze urządzeń czy w moim programie Delphi widać że jest...

[Delphi] Delphi CRC8 Maxim 1-Wire – jak poprawnie obliczyć sumę CRC dla RS232 (wielomian 0x131)?

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ę: X
o_ 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 procedur crc, jednak otrzymuję inne wyniki. Generator/wielomian...

Delphi RS232: jak wysłać plik tekstowy przez komponent ComPort jak w Hyperterminalu?

Ale do przesyłu plików binarnych (zawierających znaki z zakresu ACII 0-255) świetnie nadaje się zaprezentowany pierwszy przykład. On także zachowa Ci miejsca występowania znaków #13... A jeśli Ci chodzi o "zlinijkowanie" takiego pliku, czyli wysyłanie buforem, gdzie separatorem jest znak #13 to mniej więcej będzie to tak: (przy okazji porawiłem kod...

Implementacja USB we wlasnym urzadzeniu ze sterownikiem WinUsb

Postanowilem podzielic sie z wami moimi doswiadczeniami wykorzystania interfejsu USB we wlasnych projektach. Jak wiadomo interfejs USB jest juz powszechnie dolaczanym interfejsem do mikrokontrolerow wiekszosci producentow na rynku. Sama obsluga USB zarowno po stronie mikrokontrolera jak i pc (a wlasciwie Windows) jest mniej przyjazna niz w wiekszosci...

Problemy z komunikacją RS między ATmega8535 a Delphi - niepełne dane

Przyznam, że założenia projektu fajniutkie ;) .... Odnośnie programu, teraz przyjrzałem się tej procedurze to niestety hmm nie mam już dawno tego komponentu i nie pamiętam dokładnie obsługi, ale patrząc na kod widać jednak bardzo poważne błędy. I nie chodzi o to że coś tam jest źle napisane w jednym czy drugim miejscu. Po prostu kolega jeszcze nie czuje...

Obsługa RS miernika Motech MT 4090 w Delphi - dziwne zachowanie w trybie Remote

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: Odczyt danych oddzielonych przecinkami z pliku-jak?

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 w pliku i danymi ze StringGrid1 w StringGridzie2....

Delphi CPort – zapisywanie wyników pomiarów z METEX do tablicy, błąd w pętli

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 TForm1.Button17Click(Sender: TObject); begin...

[c++] Jak poprawnie wywołać funkcję z Delphi DLL w C++?

Ok, dll-ka została przerobiona - typ string został zamieniony na pchar i w sumie problem zniknął tzn. funkcja rozumie komendy wysyłane w omawianym parametrze. Jednak pojawił się następny problem. Biblioteka do poprawnego działania potrzebuje aby użytkownik zdefiniował funkcję alokującą pamięć i przesłał jej adres, taki callback. Gdy w pewnym wywołaniu...

Delphi – jak zapisać i odczytać rekord (record) do pliku bez użycia tablicy?

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...

Delphi - poprawne wstawianie rysunku w kodzie, co robię źle?

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 Unit1.pas więc wklejam tu jako kod: unit Unit1; interface...

Błąd podczas instalacji INDY 10.0.52 w Delphi 6 Enterprise

atom1477: Juz chyba wiem o co chodzi.. UserID jest w INDY 8 (i wczesniejsze wersje tj. Winshoes). A tu troche sie inaczej to obsluguje.. przynajmniej z tego co pamietam bo wygrzebalem w czelusciach swojego dysku moj stary programik do sprwdzania poczty, ktory dzialal na Winshoes.. troszke go przerobilem do Indy 8 i tak: na formie: Msg: TIdMessage;...

Lazarus/Delphi - Prosty terminal wykrywanie nowej linii

Cześć. Robisz to odrobinę źle. W trybie ciągłym dodajesz kolejne linie na podstawie odczytanych danych. Powinieneś w tej funkcji kopiować odczytane dane do pomocniczego stringa, przeanalizować, czy znajduje się tam znak końca linii, jeżeli tak, to podzielić go na dwa stringi, jednego dokleić do ostatniej linii, a drugiego dodać jako nową linie. Niestety...

[DELPHI] Jak stworzyć właściwą maskę wprowadzania adresu IP

Nie ma sensu komplikować. Aby uprościć sprawę, można dać usuwanie spacji w obsłudze OnExit. procedure TForm1.MaskEdit1Exit(Sender: TObject); var wynik : string; begin Wynik:=(Sender as TMaskedit).text; while pos(' ',wynik)<> 0 do delete(wynik,pos(' ',wynik),1); (Sender as TMaskedit).text:=wynik;...

Delphi - flaga w destruktorze klasy i dziedziczenie

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 w KlasaRodzic.Destroy wywołane jest Save gdzie jeśli fDoFree=False...

Import 3500 plików TXT o niestandardowej strukturze do bazy MS Access – jak mapować pola?

Sprawa nieaktualna. Już poradziłęm sobie. Progs w Delphi. Na początku trzeba podłączyć do programu bazę danych Accessa przez ADOTable i DataSource. Teraz na formę trzeba wywlec potrzebne pola z listy dostepnej po dwukliku na ADOTable, prawym i Add Fields. Następnie kod funkcji: function TForm1.getxy(x,y,m:integer)&... var tm1, tm2:string;...

Delphi/Pascal -jak z poziomu kodu delphi, pascala kompilować

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: "D:\Del_2007\CodeGear\RAD Studio\5.0\bin\dcc32.exe"...

[Delphi] Jak zliczyć punkty w teście jednokrotnego wyboru?

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ł liczbę zdobytych punktów ? :) [syntax=delphi]unit...

Tworzenie testu wyboru w Delphi z podliczaniem odpowiedzi

Zrób sobie plik INI np taki: [dane] ile_pytan=1 [pytanie_1] pytanie=Jakieś tam pytanie numer 1 odp_a=Odpowiedź a odp_b=Odpowiedź b odp_c=Odpowiedź c odp_d=Odpowiedź d poprawna=b I tak zrób sobie kilka sekcji pytanie_2, pytanie_3 itd. i zmień ilość pytań w sekcji dane. Plik zapisz pod nazwą pytania.ini w katalogu programu. W programie...

Delphi: Kopiowanie katalogu z CD na HDD i zmiana atrybutów na zapisywalne

No to masz tu zarówno eleganckie jak i proste rozwiązanie ;) procedure Kopiuj(s1,s2:string); var P:TSHFileOpStruct; begin P.Wnd:=Form1.Handle; //te komendy sa do wyswietlania okienka z kopiowaniem P.lpszProgressTitle:=PAnsiChar('... //MOŻESZ JE SKASOWAĆ! P.wFunc:=FO_COPY; //ustawianie na kopiowanie P.pFrom:=PAnsiChar(s1);...

[Turbo Pascal] Jak przenieść program z Turbo Pascal do Delphi z użyciem modułu DOS?

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...

[DELPHI] Uruchamianie programu z usługi systemowej w Windows 7 bez interakcji

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, Controls, SvcMgr, Dialogs, ExtCtrls, Shellapi, IdBaseComponent, IdComponent,...

Delphi - Jak przekształcić tabelę HTML na tekst?

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...

[Delphi 7] Podczas odczytu danych z RS232 widać tylko 1 bajt

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 chciał autor, a u mnie się zacina. Ale do rzeczy: Po...

Błąd Scan line index out of range w programie Delphi z ASM XOR

Hej witam.Dziękuję za szybkie zainteresowanie o postarałem się do Twoich wskazówek, ale chyba nie udolnie, bo nadal nie umiem tego rozpracować.Ale po pewnych zmianach program zaczyna oblicza faktycznie klucz jakiś na podstawie wpisanego ciągu, wiec jest lepiej.Ale przy przy szyfrowaniu zdjęcia bmp wykazuje, że jest 24 bit, ale gdy nacisnę, ok to wyskakuje...

Schemat układu do sterowania 8 urządzeniami i transmisji 8 bitów przez RS232

$crystal = 8000000 $baud = 9600 Config Lcd = 40 * 2 Config Serialin = Buffered , Size = 20 Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0 Enable Interrupts Dim Command As String * 1 Dim Temp1 As Integer Dim Temp2 As Integer Dim Status As Byte Dim Numer As Byte Temp1 = 12.1 Temp1 = 30.1...

BSI DELPHI seria EL HW D6 - TELEKODOWANIE ODCZYT BSI peugeot 208 II corsa F

Aby móc dalej się logować potrzebna jest modyfikacja wsadu Arduino. Ja mam przepisany wsad trochę inaczej i jakbym pokazał to na swoim wsadzie to byłby kłopot dla tych co zaczynają od 0 połapać się o co chodzi zatem wskaże gdzie można to dopisać. I uprzedzam jak jakiś "profesjonalista" z tego forum dla profesjonalistów będzie miał uwagi a nie wrzuci...

Jak usunąć znaczniki HTML z pliku w Turbo Pascal?

Mam dorbny problemik... Na laborke mam napisac programik, ktory ma wywalic z danego pliku wszystkie znaczniki htmla.... (zakladajac ze znacznik miesci sie miedzy < a >)... Musze sie jeszcze tylko dowiedziec, ale to i tak juz wielkich zmian w programie nie bedzie wymagalo czy nie lepiej gdyby znacznik traktowac jako to miedzy '<' a '/>'......

Delphi: Zabezpieczenie danych i obsługa ScrollBar dla równań kwadratowych

ok ad 1 mam już dawno za soba a może teraz pomoże ktoś ze scrolBarem zrobiłem już pewne kroki ale nadal cel nie osiągnięty ma ktoś jakieś pomysły?? gdzie jest błąd podpowie ktoś?? Dodano po 2 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFormularz = class(TForm) Naglowek1:...

[Delphi] Jak dodać podliczanie punktów w teście w Delphi?

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 Unit1; interface uses Windows, Messages, SysUtils,...

[AVR][C] - wysyłanie danych przez UDP (ProyconAVRLib)

Witam, Używam modułu sieciowego ENC28J60. Jeśli chodzi o stosik i działanie przykładowych programów z tuxgraphics gdzie działają one jako serwery - wszystko działa idealnie. (jednak przykłady tych stosików tuxgraphics nie oferują w ogóle rozwiązań typu client - no - może poza jednym przykładem gdzie jest klient SNTP) Problem w tym, że chciałbym móc...

[Delphi] Kodowanie dla układu USB FT245BM - czy ktoś ma doświadczenie?

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... gdzie ile jest typu word. I jeśli znajdzie jakiś...

[QT][Windows] - pytanie totalnie początkującego - jak zacząć

No dobrze, bardzo dziękuję za garść kolejnych cennych wskazówek. Ale jednak dla mnie pisanie aplikacji konsolowych na początek to totalna porażka. Ja nigdy nie posługuję się aplikacjami konsolowymi, więc nawet do czego mógłbym je zastosować. A wymyślanie na siłę jakichś przykładów z kosmosu nic mi nie da. Wolę od razu na konkretnych przykładach tego...

[Delphi] Jak poprawnie wywołać rekord z tablicy w DLL w Delphi?

Przykro mi, może to moja wina, ale dalej nie do końca rozumiem, co chcesz osiągnąć. Jedyne co wydaje się mieć sens, to umieszczanie w DDL-u tablic zawierających jakieś stałe wartości, którymi nie chcesz zaśmiecać głównego programu. Natomiast deklaracja tego typu : var [...] tb1[1..100] of string; To chyba jakieś nieporozumienie. Jeżeli...

Serwer TCP - Wielu klientów, FPR Lazarus + Sockety

Witam! Jak w temacie. Zrobiłem prosty serwer i klienta TCP z wykorzystaniem komponentów lnet do Lazarusa. Wszystko się łączy pięknie, komunikuje, ale problem przyszedł dopiero, gdy chciałem podłączyć więcej niż jednego użytkownika. Wiadomo, w prostej postaci serwer działa z jednym klientem. Gdy dołączam drugiego, ten akceptuje połączenie, mogę z użytkowników...

[C#] serialPort - GetPortNames zwraca błędne nazwy portów COM z dziwnymi znakami

No tak, dzięki za link ale właśnie cały czas problem nie rozwiązany przez $MS więc kicha. Dziwi mnie tylko to, że w tych postach i raportach do MS ludzie piszą, iż problem polega na tym, że te nazwy portów z numerkiem nie są zakończone zerem czyli że brak NULL terminated string i ponoć dlatego występują takie dziwne efekty. Piszą ludziska na necie,...

[Delphi] - INDY 10 Jak wysłać tekst z Serwera do klienta

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 jestem załamany bo już cały dzień z tym walczę. Przepraszam,...

Jak odczytać dane z AVR przez RS232 w Delphi z użyciem TComPort?

Witam! Mam problem zodczytem danych z RS - wykorzystuje komponent Tcomport, procedury odczytu znalazłem na elektrodzie, jednak mimo wszytko nic mi nie działa. AVR wysyła temperaturę w formacie np. 23.4 (string), jeśli korzytam z emulatora BASCOM lub Hyperterminala wszystko jest OK, dane są poprawnie odczytywane, zaś przez załączony poniżej programik...

Delphi - Operację na kwotach z przecinkami, obliczanie %

Przede wszystkim musisz poradzić sobie z zamianą ciągu "x,y" na "x.y" np gdy użytkownik wpisze w Edit1 "123,45" to program musi ci to zamienić na "123.45" bo komputer zamiast "przecinka" uznaje kropkę. Po drugie zamiana stringa z (kropką zamiast przecinka) na liczbę odbywa się za pomocą funkcji val val( string_do_zamiany , liczba_typu_real_lub_integer...

Dlaczego pojawia się komunikat: Command not exists? Delphi 10.2 i RS232.

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 odczytywane, ale w delphi otrzymuję po jakimś czasie taki...

Lazarus na WINCE 5.0: Jakie komponenty do komunikacji przez RS232?

Robiłem kiedyś coś takiego, nie jest to mocno skomplikowane. Przerobiłem wszystkie gotowce i nie przyniosło to spodziewanego skutku. W końcu z pomocą witryny microsoftu skorzystałem z API :) Działa wyśmienicie. [syntax=delphi]unit comread; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Windows, Forms, Dialogs; type TComRead = class(TThread) private...

Jak napisać program w Pascalu/Delphi wyświetlający imię w ramce z plusów/gwiazdek?

Dobra już zrobiłem to tak i te wyśrodkowanie też ale nie wiem jak zrobić to żeby liczyło ilość tych plusów albo gwiazdek, ma ktoś pomysł ? [syntax=delphi] program imie; USES Crt; VAR decyzja:integer; x:string; procedure pytanie(var x:string); begin GotoXY(35,13); WriteLn('Podaj imie: '); ReadLn(x); end; procedure gwiazdka; begin pytanie(x); GotoXY(35,13);...

Delphi, jak wysłać kody starujące na COM do fiskalnej?

Witam, czy koniecznie musisz sam preparować ramki do Posneta ? może wygodniej będzie wykorzystać ich bibliotekę funkcjami do sterowania drukarką, jest do pobrania z ich strony. ------edit------- Zerknąłem w Twój kod i pierwsze co żuciło mi się w oczy to StrCopy(buf,'ESC P #n ESC \'); podajesz w parametrze string który zostaje przepisany do bufora,...

Delphi - Synapse - jak utworzyć katalog na Chomiku (Java/json)

Witam. Walczę już kilka dni i ciągle nic. W AutoIt wystarczyło dosłownie kilka linijek i katalog utworzył się na Chomiku bez problemu. A w Delphi 7 + Synapse, w którym piszę ciągle dostaję odpowiedź <500 Internal Server Error>. Poniżej gotowy kod, który loguje do Chomika prawidłowo, prawidłowo "klika" w ikonkę dodaj folder (jest prawidłowa odpowiedź),...

[Dephi7] Delphi 7 – jak utworzyć alias BDE do bazy w katalogu programu z poziomu kodu?

Odwracasz kota ogonem. Aliasy służą do pisania kodu bazy danych, bez potrzeby zmiany kodu, w przypadku gdy baza znajdzie się w innej lokalizacji. Kod Delphi operuje na aliasie, który BDE "tłumaczy" na odpowiednią lokalizację bazy danych. Ale jeżeli koniecznie się uprzesz, to jest to możliwe. [syntax=delphi]uses dbtables; procedure TForm1.Button1Click(Sender:...

Delphi6, przypisanie zmiennej string. Co zrobiłem źle?

Wstawiłem to ,jest ok z tym ze pobiera tylko ostatni wpis z listboxa (z samego dołu) reszte zadań wykonuje ok wiem że trzeba wprowadzić pętle , dopuki nie wyśle wiadomości wszystkim wpisom z listboxa to nie zakończy nie wiem jak to napisać w programie pobierz 1 wpis z listbox1 wyślij mu wiadomość (to akurat mało ważne) sprawdź czy są jeszcze wpisy w...

[DELPHI] Jak wysłać obrazek do przeglądarki za pomocą HTTPServer?

Wiadomo skąd w końcu nie pierwszy raz jestem na elektrodzie pozatym ten kod działa z tym że dokument html drogą prób i błędów udało mi się zrobić bez zapisu na hdd natomiast obrazki nadal są zapisywane na hdd Dodano po 2 A bo ten kod co napisałeś jest "za remowany". wywale komenty wszystkie i kleje jeszcze raz. Program to jest beta wiec kilka rozwiązań...

[Delphi] Przepisanie zmiennej string do zmiennej PChar.

Witam: Dzięki serdeczne za zainteresowanie tematem, wczoraj już nie odpisałem,bo się nie wyrobiłem przed końcem pracy. Wszystko oczywiście gra, zmiany przyniosły pożądany efekt. No .. teraz już sobie łańcucha nie ograniczę ;-). Dzięki serdeczne wszystkim za pomoc. pozdrawiam G.B.

[Delphi 7] - Przesyłanie wsadu przez port COM do bootloadera - konwersja stringu

Bardzo dziękuję! Konwersja z HEX na BIN działa i ma się dobrze! PROBLEM PRZEDSTAWIONY PONIŻEJ JEST JUŻ NIE WAŻNY :D Udało mi się go rozwiązać :) Zostawiam go, jakby ktoś miał jeszcze jakieś sugestie. Jednak mimo wszystko nie udaje mi się poprawnie zaprogramować mikrokontroler. Tak robi to mój program: Dane, które wysyłam: Port opened Baud rate set...

Powiadamiacz www - zewnętrzna aplikacja do joomla! 1.5

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ż...

Pascal: Jak dodać unikalne wartości z typu dla_marki do tablicy dynamicznej?

Potrzebuję informacji jak mogę dodać do tablicy dynamicznej na jej koniec wartość. Posiadam dwa typy rekordowe w postaci: [syntax=delphi]type dla_marki=record id:integer; marka:string; end;[/syntax] oraz [syntax=delphi]type tab_pocz=record id:integer; wartosc:string; indeks:integer;[/syntax] Dla typu 'tab_pocz' ma tworzyć tablicę dynamiczną. Jest to...

[Delphi] TComPort - jak ukryć wysyłane dane w Memo1?

Witam Mam problem z tym komponentem w Delphi , tzn wszystko działa ale nie do końca , używam standardowych procedur jakie są w przykładach : procedure TForm1.Button5Click(Sender: TObject); var Str: String; begin Str := #94 + '2'; Str := str + #13#10; ComPort1.WriteStr(Str); end; procedure TForm1.ComPort1RxChar(Sender:...

Visual basic kontrolka serialport jak wysłać chara

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);...

Dlaczego funkcja LEN(text) zwraca 0 w Bascom AVR? Jak to naprawić?

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...

[Delphi7] Problem z łączeniem i długością stringów z RS232

Zrobilem cos takiego aby sprawdzic ComPort.ReadStr(Str, Count); Label11.Caption:=IntToStr(Length... Label10.Caption:=Str; I w rezultacie: Label11 wyswietla: 12 Label10 wyswietla: ,M,,M,,*78 co daje tylko 10 znakow :/ małe pytanko jaka komęda otwiera plik do aktualizacji chodzi mi o to ze otwiera plik i zapisuje w...

Asystent elektronika v2.1.0

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...

[AVR][C] jak działać ze stringami lub wskaźnikami

Jeśli chodzi o kodu wynikowy , to jego "objętość" , ma zdecydowanie niższy priorytet niż jego niezawodność ;) Piotrek tak tak, tylko, że ostatnio jak biorę się za coś nowego i np postanawiam sobie dać tym razem większy procek (tzn z większą pamięcią programu na zapas) to na końcu okazuje się też często, że jednak wypełniam ją po brzegi i potem najwięcej...

Delphi - panowanie nad szybkością ściagania pliku

Witam. Poniżej standardowa procedura do ściągania pliku, która chciałbym usprawnić, mam nadzieję że nie przestarzała, ale u mnie się na razie sprawdza. Szukam informacji na temat jak ograniczyć prędkość ściągania a konkretnie idealne było by: 1. Jak sprawdzić prędkość pobierania z danego stanowiska np. SpeedNet=?B. 2. Jak zabezpieczyć się przed zawieszeniem...

[Delphi XE2][info - poradnik] Jak przejść ze starego Delphi na XE2

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 będzie w wersji 64-bitowej) i jest jeszcze...