Wpisy z tagiem: delphi

Wpisy z tagiem: delphi

Tagi popularne na mikroblogu

woolfik
woolfik

Z cyklu #ciekawostkiWindows

Pewnie wielu z was wie i nie będzie to zaskoczenie ale dla mnie moment w którym to odkryłem (dzień wczorajszy) był momentem

screenshot-20211028081416.png

Zapewne nieraz dziergając apke na windowsa rzucaliście komunikat użytkownikowi na ekran. Ogólnie w delphi są 3 podstawowe klasy do takich komunikatów:

  • ShowMessage
  • MessageDlg
  • MessageBox

Bez względu na to której użyjecie pod spodem delphi i tak wywoła klasyczne windows api i pojawią się okienka coś w stylu jak poniżej:

Kopiuj
    ShowMessage('Hurra');
    MessageDlg('Hurra2', mtWarning, [mbOK], 0);
    MessageBox(0, 'Hurra3', 'test', MB_ICONWARNING or MB_OK);

screenshot-20211028082042.png
screenshot-20211028082112.png
screenshot-20211028082147.png

To jest jasne i oczywiste. Sam windows swoje komunikaty też wyświetla poprzez klasę
https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-messagebox
ale wiecie co ... wystarczy kliknąć w ten komunikat i użyć skrótu Ctrl+C i zawartość tegoż message leci do schowka :D

no tego nie znałem :P
Efekt dla poszczególnych okien poniżej:

Kopiuj
[Window Title]
Project2

[Content]
Hurra

[OK]
Kopiuj
[Window Title]
Warning

[Content]
Hurra2

[OK]
Kopiuj
---------------------------
test
---------------------------
Hurra3
---------------------------
OK   
---------------------------
Zobacz całość
19 głosów Obserwuj Komentuj Udostępnij
Zobacz pozostałe 9 komentarzy
woolfik
woolfik

@Manna5: Tego nie wiem ... trzeba by poszperać w klasach delphiowych co się kryje pod każdą z tych metod ;)

CZ
członek zarządu

przepisywanie angielskich komunikatow pod koniec lat 90' w moim wypadku nie wchodzila w gre :P dlatego wlasnie wtedy sprobowalem i "zadziaao". W Battlestar Galactica mowili: "All this has happened before, and all this will happen again" - za 20 lat zapewne ktoś inny wyskoczy z takim odkryciem :P

woolfik
woolfik
5 głosów Obserwuj Komentuj Udostępnij
Zobacz pozostałe 10 komentarzy
p_agon
p_agon

@kate87: Lepszy coin i lepszy scam xD

woolfik
woolfik

Z cyklu #Delphi

screenshot-20210610125139.png

Załącznik 0
5 głosów Obserwuj Komentuj Udostępnij
Zobacz pozostałe 13 komentarzy
woolfik
woolfik

Ja nawet na żywo takich dziewczyn nie widziałem:D a gdzie tu ja znać

kate87
kate87

Ten mecz musi być baardzo nudny. Mąż śpi, sąsiedzi chyba też, a @woolfik na 4p.😂

woolfik
woolfik

Z cyklu #Delphi

Dzięki artykułowi, który zamieścił @lofix:
Delphi Obsługa COM
dosłownie w kilka minut udało mi się zrobić sterowanie rotatorem:
Sterowanie rotatorem w Delphi

9 głosów Obserwuj Komentuj Udostępnij
Zobacz pozostałe 35 komentarzy
PR
pragmaticdev

Są też sniffery programowe i hardwerowe które podsłuchują ruch między urządzeniem a komputerem. Co do prędkości - przecież RS232 jest szybsze od Ethernetu ze względu na szybszą odpowiedź - komunikacja jest bezpośrednia, protokół lekki, nie obsługuje pakietowania - wszystko to można, ale nie trzeba obsłużyć na poziomie własnego sterownika. Taki terminal płatniczy działa na RS232 potwierdza odbiór, przesyła sumy kontrolne a całość szyfruje. Za to licznik wejść do sklepu wysyła i nie interesuje go kto odbierze i czy jakiś bit się nie zakręci. Co do danych - też są zrzucane dane i to całkiem duże ilości - np. z centralek RCP. Sam standard umożliwia komunikację szybszą niż fast ethernet z użyciem odpowiedniego nadajnika odbiornika. Co prawda, jeśli chodzi o sieci czy magistralę urządzeń, to trzeba posiłkować się RS485 i używać protokołu co to obsłuży ale tutaj już chyba prościej iść w ethernet - chyba, że odległości urządzeń bez wzmacniaczy przekraczają możliwości Ethernetu. Generalnie haha, hihi że są urządzenia na COM - są dlatego, że to dla tego zastosowania najlepsze rozwiązanie. RS232 ma jakieś 60lat. TCP za to 50lat. Proponuję używać technologii jako narzędzia a nie jak punkt kultu.

woolfik
woolfik

Odpowiem na te wszystkie argumenty w ten sposób: Sprzęt wojskowy rządzi się swoimi prawami :]

woolfik
woolfik

Z cyklu: dlaczego #Delphi

Nie chciałbym na mikroblogu poruszać dyskusji na temat delphi, jednak zaletą tego języka jest fakt, że nie ma rzeczy, której ktoś już kiedyś w delphi nie robił. W związku z powyższym wystarczy tylko dobrze poszukać, pobrać gotowy komponent i voilà

Kopiuj
procedure TfrmMain.cbxComChange(Sender: TObject);
begin
  GPS.Com := cbxCom.ItemIndex + 1 ;
  GPS.Active := True ;
end;

procedure TfrmMain.cbxBaudChange(Sender: TObject);
begin
  GPS.BaudRate := StrToInt( cbxBaud.Items[ cbxBaud.ItemIndex ] ) ;

  GPS.Active := True ;
end;

procedure TfrmMain.GPSPosition(Sender: TObject);
var
  str : String ;
begin
  str := Format( '%s %.4f %.4f', [ TimeToStr(Now), RadToDeg( GPS.Longitude ),RadToDeg( GPS.Latitude) ] ) ;
  Memo1.Lines.Add( str ) ;
end;

Powyższy kod pozwala pobrać dane z COM w postaci NMEA i przekonwertować je do gotowych danych.

GPS in Delphi

https://www.youtube.com/watch?v=r1kR1Rihiic
Zobacz całość
7 głosów Obserwuj Komentuj Udostępnij
Zobacz pozostałe 5 komentarzy
KamilAdam
KamilAdam

Brak wersji CE kończy się tak że nie ma juniorów danego języka. W Swifcie jest podobny problem. Znajomy zaczyna pracę jako tester automatyzujacy w Swifcie. Firmie wystarczy to że ma chęć nauczenia się Swifta. W Javie to raczej nie do pomyślenia

woolfik
woolfik

@Pepe: Dzięki sprawdzę ;)