if Length(Memo1.Text) ...
Daj jakiegoś TMemo na formę server-a. W zdarzeniu OnLisening daj jakiś tekst do TMemo i zobaczysz czy ta funkcja są połączone z nadawaniem danych przed klienta. Może musisz dodać do tego serwera jakiś interpreter albo socket manager? Niestety, żadna wersja Delphi jaką posiadam, nie ma tej samej wersji TTcpServer jak twoja i wywołania się różnią :/ Ja...
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 coś nie tak nie robię z aktywacją serwera?. Kod jest...
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 ;)
Czy udało ci się połączyć z serwerem poczty i wysłać cokolwiek z jednego konta pocztowego na drugie? Czy załącznik został przesłany? Jeżeli odpowiedź na oba pytania jest "TAK", to nie masz innego wyjścia jak tylko prześledzić obie wartości. Umieść na swoim formularzu komponent TMemo a w procedurach Work i WorkBegin oraz Status komponentu IdSMTP, dodaj...
function MemoSum( memo : TMemo ) : Integer; var i : integer; x : integer; begin x := 0; For I := 0 to memo.Lines.Count - 1 do x := x + StrToInt( memo.Lines.Strings[I] ); result := x; end;
Drodzy koledzy. Wszystko ładnie, ale albo ja mam "specjalną" wersję Delphi 5, albo ta dyskusja jest bezcelowa. Przy każdym dodaniu linii TMemo, karetka jest przenoszona automatycznie do następnej linii, właśnie sugerowaną metodą : SendMessage(Memo1.Handle, EM_SCROLLCARET, 0, 0); Taki kod : unit Unit1; interface uses Windows, Messages, SysUtils,...
W Delphi nie programuje ale wydaje mi sie, że podstawa do zakonczenia programu jest pozamykanie otwartych przez niego portów, wyczyszczenie zainicjowanych zmiennych itp. Wiec najprosciej bedzie gdy podczas unload programu uruchomisz funkcje zamykajaca port. Jezeli dane nadawane sa jednym ciagiem to przepelnienie buforu w ukladzie uart zglasza przerwanie...
Najłatwiej jak tekst będzie w pliku tekstowym, wraz z czasem po jakim ma się pokazać. Coś takiego jak do filmów. Wtedy trzeba załadować oddzielnie plik tekstowy z napisami. W najprostrzej wersji to będzie trzeba: 1. Umieścić komponent TMemo i otworzyć w nim cały plik. 2. Wstawić TTimer, co sekundę i włączyć go razem z odtwarzaniem pliku. 3. Do jakiegoś...
Witam przeczytałem twoje posty do których umieściłeś linki. Jedno co wiem po tej lekturze to to, że w każdym piszesz niby o tym samym ale podajesz inne przykłady i chyba w każdym robisz błędy, na które zwracają ci uwagę forumowicze a ty nadal twierdzisz, że nie robisz babola. Ja w takich przypadkach nigdy nie twierdzę, że nie robię babola a gdy mi coś...
Zrób coś takiego w kodzie do Form1, mój zapis to tylko szkic przybliżony do składni Delphi. Memo1_onClick..... begin form2.zmien_kolor(self); end; a w kodzie do Form2 dodaj metode: zmien_kolor(zrodlo:Tmemo) begin kolor_ustawiony=zrodlo.kolor; {trzeba ustawić sobie stary kolor} showmodal; zrodlo.kolor=kolor_ustawiony; {skopiowanie koloru} end; Ale żeby...
Czy chodzi o tą procedurę "procedure prostokat.wyswietl(memo1 : TMemo);" ?
Witam W jaki sposób w Fastreaport wydrukować zawartość pola memo. Z góry dziękuje za pomoc Poprawiłem tytuł. - arnoldziq
Jednak nadal nie mam pomysłu jak to przetworzyć na Delphi. Może nie patrz jak przetworzyć, ale jak to od zera zrobić z pomocą filozofii Delphi gdzie podstawą jest użycie gotowych klas lub komponentów, posiadających w sobie mnóstwo użytecznych metod i własności. Nie mam w tej chwili nigdzie zainstalowanego Delphi, to nie za bardzo mam jak pomóc szczegółowo,...
Zastosuj StringReplace na TMemo.text.
Na tej stronie masz wszystko http://4programmers.net/ ;)
Zapisz sobie cały ciąg do pliku, np. w ten sposób : http://obrazki.elektroda.pl/8273523500_1...
Memo1.SelText := 'string';
to nie stosujesz żadnej instrukcji. Za przejmowanie tekstu odpowiadają odpowiednie komponenty, jak np. TEdit czy TMemo. Względne gotowe okienka typu InputQuery,
Zrobiłem przykładowy program, obsługujący TMemo, ale nie ma problemu, żeby zaadoptować to to TRichEdit. Chodzi ci o coś takiego ?
A mi się, z twoim kodem, udało połączyć bez problemu. http://obrazki.elektroda.pl/2566199600_1... Wywaliłem te wszystkie zbędne inicjacje itd.. Wszystko idzie w standardzie. http://obrazki.elektroda.pl/7006299900_1... Może zainstalowanie takich bibliotek OpenSSL, jakie ja mam, pomoże ?
Dzięki za pomoc Mam teraz taki mały problem. Pisze taski kod przypisany do przycisku: TabbedNotebook1.pages.add('Nowa'); memo:=Tmemo.Create(self); memo.align:=alClient; memo.Parent:=TabbedNotebook1; memo jest zadeklarowane globalnie jako memo:Tmemo; Po uruchomieniu programu naciskam przycisk i na nowej zakładce tworzony jest komponent memo ale po przejściu...
[syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ComPort; type TForm1 = class(TForm) CheckBox: TCheckBox; ProgressBar: TProgressBar; RShow: TEdit; Memo: TMemo; ComPort: TComPort; procedure ComPortRxChar(Sender:TObject;Count:Integ... private procedure SetProgressBar(Value:Integer);...
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(...
Bo nie użyłeś poprawnie metody create . :) Spróbuj w taki sposób: var MS : TMemoryStream; begin MS := TMemoryStream.Create; try MS.Position := 0; [...] //co tam masz zrobić... [...] finally MS.Free; end; end;
Czyli popełniasz jakiś błąd przy wywołaniu formularza. Sprawdź może jednak, co zwraca to wywołanie. Stwórz na formie tymczasowe TMemo : Memo1, i dodaj do kodu dodatkową linię : [syntax=delphi][...] try http1.Post('http://strona.pl/1.php', ParamData, PostDataStream); memo1.Lines.Text := PostDataStream.DataString; finally[...][/syntax] Wtedy zobaczysz,...
Dobra, bo zmykam spać... procedure load(const name:string; const aMemo: TMemo); var linia: String; begin if not FileExists(name) then begin MessageDlg('Nie ma pliku',mtWarning, [mbOk], 0); end else begin assignfile(plik,name); {$I-} //wyłączamy programowe sprawdzanie I/O reset(plik);...
Pozwolę sobie otworzyć temat i może odrobinkę Ci pomóc. Przeanalizuj taki kod : [syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TSamochod = class(TObject) nazwa : string; opis : string; end; TForm1 = class(TForm) ListBox1: TListBox; Label1: TLabel; Button1: TButton; Memo1:...
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 plik:=Tmemorystream.Create; //tworzysz obiekt,mozesz sobie...
Rozwiązanie okazało się proste aczkolwiek nie za zrozumiałem Wszystko w bazie było kodowane w UTF-8 w kontrole ustawiłem też takie kodowanie lecz nie dawało to rezultatów nawet zapis ze strumienia nie zmienieł tego aczkolwiek zaczęło mieć dzięki temu ręce i nogi i nauczyłem się czegoś nowego :) Zacząłem kombinować i okazało się że przed operacjami na...
Mętne to trochę. Chcesz używać do tego standardowego ReplaceDialog , czy po prostu chcesz zamieniać w tekście jedne litery na inne w z góry ustalony sposób? Z tego co napisałeś, wynika, że nie potrzebujesz żadnych operacji na plikach a jedynie zrobić jakąś formę prostego szyfrowania, przesuwając ASCII znaków o jeden w górę (a->b, b->c, c->d, itd). Możesz...
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...
Witam! Chciałbym nagrywać dźwięk bezpośrednio z uchwytu typu HSTREAM do pliku wav. Zamiast dźwięku nagrywa się niestety tylko szum (jestem pewien, że wywołanie nagrywania działa, ponieważ przy manipulacji głośności szum jest głośniejszy lub cichszy). W uchwycie na pewno znajdują się dane, ponieważ nagrywam podczas odtwarzania stacji internetowej. Oto...
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;...
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ę o jakieś wskazówki. Oto kod: unit Unit1; interface...
Tylko że średnio rozumie to co tam jest ja potrzebuję informacji to skopuj i wklej tu. Dodano po 12 I co zrobić żeby po naciśnięciu 1 przycisku włączają się po kolei 4 piny? Dodano po 1 Mój kod [syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, zlportio; type...
Dziala , tylko bardziej chodzilo mi o cos takiego zeby wyswietlalo liste pasujacych wynikow Ale najpierw musisz tę listę jakoś utworzyć, lub skądś pobrać, prawda ? Możesz to zrobić, bardzo prosto nawet przy pomocy jednego TEdit-a i np. Jednego TMemo. Umieść na formie jeden TEdit i jedno TMemo. Do zdarzenia OnChange dla TEdit-a napisz taką procedurę...
Po co TMemo? Wystarczy TStringList. A najszybciej to zrobić po prostu otwarcie pliku (FileAssign albo AssignFile - nie pamiętam, Rewrtie (choć to Delphi, nie wiem jak BCB) i na końcu zamknięcie). Można też jak najbardziej użyć strumieni pikowych (TFileStream) - to już tak bardziej po obiektowemu ;) Przykłady pod klawiszem F1 po wpisaniu podanych słów...
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...
Twój (gacekx) kod dwukrotnie dokleja do zmiennej Dane ostatnio otrzymany ciąg, przez co nie może działać zgodnie z zamierzeniami. Kod KeinXor'a zadziała tylko pod warunkiem, że cport zwróci całe słowo 'Linia' za jednym zamachem, co jest chyba mało prawdopodobne. Wrzucanie tekstu do RichEdit'a może komplikować sprawę; czy naprawdę dane z portu są w formacie...
Witam. Mam problem z odbiorem tego co wysyła mi uC za pomocą RS232. W terminalu obieram informacje a w delphi jakos nie odbiera nic. Moze mi powiedzieć ktoś w czym tkwi problem? Kod do delphi: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, CPort; type TForm1 = class(TForm)...
Witam. w zdarzeniu onKeyDown formy wyświetlam nr wciskanego klawisza - wszystko działa dla wszsytkich klawiszy tylko wówczas gdy aktywnym obiektem jest TEdit, TMemo, lub forma główna natomiast jeśli aktywnym jest TButton nie zostaje uruchomiona procedura obsługi zdarzenia jeśli przyciskiem jest tab lub kursory - wtedy nimi poruszamy się po przyciskach...
Mam Delphi 7 oraz Borland Developer Studio 2006. Próbowałem na obydwóch. Czy mam określić ErrorCode jako integer? Ale i tak się nie kompiluje, czy określę ErrorCode czy nie. Niestety, wcześniej tego nie robiłem więc może mi umykać jakiś szczegół. Cały program: [syntax=delphi] unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes,...
Witam, Mam pewien problem do rowiązania, w Tmemo mam załadowany zbiór liczb w postaci: 43 23 12 42 88 33 22 11 55 88 itd.. i potrzebuję z tego zbioru wyświetlić, W Memo2 ile razy dana liczba sie powtarza tzn liczba która powtórzyła się najwięcej razy jest pierwsza potem druga i trzecia i aż wszystkie zostaną wyświetlone. w kolejności od największej...
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") nie dochodzi, a reszta juz tak. Drugi...
o właśnie - czyli można się nawet lepiej odwołać do tego obiektu Memo1 czyli: (mList.Objects Sam Sung jeszcze dokładniej to wyjaśnił i dobrze podpowiedział, że dynamicznie stworzone obiekty trza "ręcznie" zwalniać. Ale w tym przypadku z wizualnym Memo nie trzeba. Ja często wykorzytuję też ten mechanizm np przy tworzeniu wątków, gdzie we własnej produkcji...
Witam, mam problem potrzebuję zrobić kodowanie base64 Zrobiłem, w php $fp = fopen('slowa.txt', "a"); $noweDane = str_replace('=', '', base64_encode($_POST['haslo']... fwrite($fp, $noweDane); fclose($fp); I w delphi: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes,...
Albo ja mam coś nie tak z swoim Lazarusem, albo Ty masz jakiegoś strasznego pecha. Dla testów napisałem sobie program. Dwa edity, które porównują swoją zawartość i jeżeli są takie same, to zmieniają kolor TShape obok nich. http://obrazki.elektroda.pl/4324006200_1... Żeby sprawdzić, czy to procedury SaveToFile/LoadFromFile nie wnosi jakichś...
Witam. Napisałem ostatnio programik, który mi pomaga przy tworzeniu stron www (konwertuje znaki Windows do ISO i odwrotnie) i mam małe pytanko. Chciałbym, aby była możliwość zapisania kroju, stylu itp. czcionki do zewnętrznego pliku np. INI. Chodzi mi o możliwość zmienienia czcionki wyświetlania w polu TMemo za pomocą np. FontDialog i zapisania wybranej...
Jest to plik mpeg2 wyciety z innego programu i ladowany do Tmemorystream. Jezeli zapisze ten strumien na dysk, to bez problemu go otworze w wmp. Nie wiem jak odtworzyc go z pamieci. Znalazlem komercyjna biblioteke ,ktora tworzy virtualny system plikow w pamieci, wtedy odwoluje sie to pliku tak samo jakby byl na dysku, to dziala. Sa 3 ale ...,jest to...
delphi tmemo delphi otwieranie plików delphi kalibracja delphi
ferroli pompa dysze sekwencji hulajnoga skymaster
17mb185 firmware 17mb185 firmware
Adaptacja przepustnicy po czyszczeniu Skoda Octavia 2 1.6 MPI 2004 Manualna adaptacja przepustnicy Skoda Octavia 2 1.6 MPI 2004
