i moj najwiekszy problem jak mozna napisac funkcje ktora np. bedzie
ustawaila kolor ekarnu (nie chodzi mi i wywaoloani tej funkcji tylko
napisanie)... czy trzeba stosowac asamblera czy jak to jest?


Mozesz albo wpowadzajac do rejestru odpowiednie dane i przerwanie karty
graficznej (10h) wywolywac (dokladniejsze dane na mojej www). Albo
skorzystac z faktu, ze adres tybu tekstowego to 96kb pamieci gornej
(przynajmniej u mnie) i tam besposrednio pisac (kazda komorka ekranu to 2
bajty: kolor i znak ascii). Ale zeby sie tam dosac i tak asma musisz uzyc (w
Pascalu to sie robilo przez niby tablice mem[], ktora byla pamiecia Ram.);

a co do poprzedniego pytania o conio.h- jak korzystaz z textcolor itp... to
zwykly printf nie bedzie dzialac- musisz zastosowac jego druga wesje, ktora
jest w conio.h, ktora to wpisuje nie tylko tekst do pamieci, ale tez kolor
kazdego znaku.

Pozdrawiam
Marcin Gardyjan
http://republika.pl/mgkiler

| i moj najwiekszy problem jak mozna napisac funkcje ktora np. bedzie
| ustawaila kolor ekarnu (nie chodzi mi i wywaoloani tej funkcji tylko
| napisanie)... czy trzeba stosowac asamblera czy jak to jest?

Mozesz albo wpowadzajac do rejestru odpowiednie dane i przerwanie karty
graficznej (10h) wywolywac (dokladniejsze dane na mojej www).


Sadysta...
 A jak pytajacy bedzie chcial to napisac na linuxa albo innego unixa?

Albo
skorzystac z faktu, ze adres tybu tekstowego to 96kb pamieci gornej


tak? Hmm... prawdziwe w 16-bitach pod dos'em. W innych wypadkach toto nie
dziala.

(przynajmniej u mnie) i tam besposrednio pisac (kazda komorka ekranu to 2
bajty: kolor i znak ascii). Ale zeby sie tam dosac i tak asma musisz uzyc (w
Pascalu to sie robilo przez niby tablice mem[], ktora byla pamiecia Ram.);


Nieprawda. Wystarczy uzyc wskaznika na char albo nawet na strukture (char
na atrybut i char na znak):

unsigned char *ekran = 0x000b8000;

I mozna juz bez asma pisac po ekranie. Fajnie jest uzywac asma, ale tam
gdzie kompilator wygeneruje identyczny kod to traci sens.

a co do poprzedniego pytania o conio.h- jak korzystaz z textcolor itp... to
zwykly printf nie bedzie dzialac- musisz zastosowac jego druga wesje, ktora
jest w conio.h, ktora to wpisuje nie tylko tekst do pamieci, ale tez kolor
kazdego znaku.


albo zajrzec do ncurses

pozdrawiam,

http://rfc.net/rfc1945.html


niestety tu tylko opis jak to dziala i jakie ma naglowki, a ja pytam
tylko o ta jedna rzecz. Jak zamienic te kody %coś na znaki ascii.

Jak rozumiem ani MIME ani innych rzeczy w danych POST sie nie przesyla?
W tym dokumencie nie ma tego
chyba
np. http://rfc.net/rfc1945.html#s8.3

żer <zerom@to.grafoman.plwrites:
niestety tu tylko opis jak to dziala i jakie ma naglowki, a ja pytam
tylko o ta jedna rzecz. Jak zamienic te kody %coś na znaki ascii.


Ok, podałem niewystarczający namiar. Ale to naprawdę łatwo znaleźć.
Google: http post format
pierwszy link.

(czyli "| " - a przynajmniej
nie umieszczaj ich na początku linii, bo potem trzeba ręcznie
usuwać SIGa :)


a to już wina Twojego czytnika
  X-Newsreader: Microsoft Outlook Express 6.00.2720.3000
po delimiterze '-- ' mogą być dowolne znaki, tymbardziej jeżeli są to
zwykłe znaki ASCII 32..127, i zawinięte do 76 znaków.

| There may well be thousands of people out there coding in VB. However,
| how many of them can be considered programmers is yet another subject...
maybe Drag-and-Drop operators?

Przed wyswietleniem zawartosci tabeli (TRxMemoryData) sortuje ja wg kilku
pol tekstowych.

Chce aby pole niewypelnione bylo wyswietlone PO polu wypelnionym.

W trakcie wypelniania tabeli, gdy napotkam puste pole, wpisuje do niego #255
(znak pusty).
Jednak mimo tego, rekord z taka zawartoscia wyswietlany jest PRZED polem
wypelnionym tekstem
i do tego w gridzie widoczna jest jakas kropka zamiast pustego znaku (jak w
DOSie).
Gdy wpisze #254 i mniej, to sortowanie jest juz poprawne, ale w gridzie
widoczne sa odpowiednie znaki ASCII.

Znacie moze jakis sposob aby uzyskac sortowanie, o ktorym wspomnialem wyzej?

Witam
szukam komponentu obslugującego czytnik kodów kreskowych (standardowy
podłączany do RS-a)

Czy ktoś słyszał o czymś takim
Proszę o namiary


Jeśli jest to standardowy czytnik kodów kreskowych podpinany do RS to nie
potrzeba żadnych specjalnych komponentów (no chyba, że ktoś chce to moge
napisać ;) ). Czytnik sam rozpoznaje odczytywany kod i przysyła zdekodowany
w postaci znaków ASCII. Wystarczy te znaki odczytać z RS i gotowe.

Pozdrawiam
Tomek Dzięcioł
dtom[at]interia.pl

Jeśli jest to standardowy czytnik kodów kreskowych podpinany do RS to nie
potrzeba żadnych specjalnych komponentów (no chyba, że ktoś chce to moge
napisać ;) ). Czytnik sam rozpoznaje odczytywany kod i przysyła
zdekodowany
w postaci znaków ASCII. Wystarczy te znaki odczytać z RS i gotowe.


Dzięki     sprawdzę i może coś z tego wyjdzie

Pozdrawiam

"daffy" <daffy@poczta.onet.pl
Pomocy!!! Co???
Wie ktos moze jak uzyskac znaki typu (lambda, fi itd..) nie nalezace do 255
znakow ASCII w tytule zakladki TabSheet.


ASCII ma 128, a wszystkie znaki kodowań stronicowanych obejmuje Unikod
http://www.unikod.pl/

    "daffy" <daffy@poczta.onet.pl

    Pomocy!!!
  Co???
    Wie ktos moze jak uzyskac znaki typu (lambda, fi itd..) nie nalezace do 255
    znakow ASCII w tytule zakladki TabSheet.
  ASCII ma 128, a wszystkie znaki kodowań stronicowanych obejmuje Unikod http://www.unikod.pl/

Problem:
Mam zdefiniowany rekord:

   record
      pole : string[100];
      .....
      .....
  end;

zapisuje w ten sposób masę danych, pojawiła się konieczność zapisu danych
tekstowych z innym kodowaniem, np. cyrylicą, wiec chyba najlepiej byłoby
zapisać w typ polu dane zakodowane UTF-8, no ale procedure zapisu/odczytu
musiałaby być na tyle uniwersalana zeby poprzednie dane zapisane w
windows-1250 tez sie dało odczytać ....


znaki ASCII 0..127 = znaki UTF-8 0..127, ale polskie ogonki sa poza tym
zakresem. Najpierw musialbys przekonwertowac wszystkie dane do UTF-8.

 Buforhex= $44,$3B,$11,$00,$04,$AA,$D3,$E4
 for i := 1 to Length(s) div 2 do
   buf[i] := StrToInt('$' + Copy(s, 2 * i - 1, 2));

 Pozdrawiam,
 Chizra.

Myślę,że nie za bardzo mi oto chodziło .... z tego co widzę to dosłownie w
bufor[i] mam następujące dane

buf= $44$3B$11$00$04$AA$D3$E4

to nie sa te dane które chcę uzyskać !! ;(((
postaram się to przedstawić trochę inaczej

otwieram pliki typu *.hex (są to pliki tekstowe , w których w postaci
tekstowej zapisane są wartości poszczególnych bajtów) dane jednego bajta  to
od 0 do 255 lub w postaci szesnastkowej  $00-$ff (dolar jest tylko umownym
symbolem dla danych w systemie szsnastkowym)

ponieważ potrzebuję wartość bajta właśnie z tego przedziału $00-$ff w takim
razie muszę tekst 'AA' (dwa znaki ascii o wartości ($41,$41) zamienić na
jeden bajt o wartości $AA (dolar jest tylko umownym symbolem oznaczającym ,
że wartość jest w systemie szesnastkowym.

john@wp.pl

 Buforhex= $44,$3B,$11,$00,$04,$AA,$D3,$E4
 for i := 1 to Length(s) div 2 do
   buf[i] := StrToInt('$' + Copy(s, 2 * i - 1, 2));

 Pozdrawiam,
 Chizra.

Myślę,że nie za bardzo mi oto chodziło .... z tego co widzę to dosłownie w
bufor[i] mam następujące dane

buf= $44$3B$11$00$04$AA$D3$E4

to nie sa te dane które chcę uzyskać !! ;(((
postaram się to przedstawić trochę inaczej

otwieram pliki typu *.hex (są to pliki tekstowe , w których w postaci
tekstowej zapisane są wartości poszczególnych bajtów) dane jednego bajta
to
od 0 do 255 lub w postaci szesnastkowej  $00-$ff (dolar jest tylko umownym
symbolem dla danych w systemie szsnastkowym)

ponieważ potrzebuję wartość bajta właśnie z tego przedziału $00-$ff w
takim
razie muszę tekst 'AA' (dwa znaki ascii o wartości ($41,$41) zamienić na
jeden bajt o wartości $AA (dolar jest tylko umownym symbolem oznaczającym
,
że wartość jest w systemie szesnastkowym.


Witam

Przy założeniach, że buf jest tablicą bajtów, mój kod (wg mnie) robi to, o
co Panu chodzi (czyli zamienia kolejne pary znaków łańcucha tworzących zapis
liczby szesnastkowej na jej wartość).

Pozdrawiam,
Chizra.

Witam.
Jak najszybciej i najefektywniej zliczac ile kropek jest w danym stringu?


A coz to za kropki maja byc? Takie zwykle kropki konczace zdanie w zwyklym
stringu?
Jesli tak, to ja bym robil jakos tak:

wynik:=0;
len:=length(str);
x:=2;
repeat
if str[x]='.' then begin inc(wynik); inc(x,2); end;
inc(x);
until x=len;

Algorytm korzysta z zasady, ze zadne zadanie nie zaczyna sie od kropki oraz
z zalozenia, ze kropki leza w odleglosci nie mniejszej niz 3. Jedynym
(chyba) przypadkiem naruszajacym ta regule jest wielokropek, ale np.
procesory tekstu zapisuja wielokropek jako jeden znak, a nie 3, wiec przy
takim kodowaniu wielokropka mamy znaczne przyspiesznie wyszukiwania kropek.

Inny pomysl to sprawdzac tak:
wynik:=0;
len:=length(str);
for x:=2 to len do
if ord(str[x])<46 then if str[x]='.' then inc(wynik);
Wiekszosc znakow ASCII jest "drozsza" niz 46, wiec pierwszy if wymagalby
sprawdzenia tylko 6 bitow.

Mam jeszcze taki pomysl, zeby stringa jakos *magicznie* zrzutowac na lancuch
liczb typu cardinal, tzn. kazde 4 bajty traktowac jako 1 cardinala. Wowczas
porownan by moglo byc chyba mniej...
Ale to tylko moje spekulacje i nie wiem czy nie bladze zupelnie...

Pozdrawiam,
Talthen

-----Wiadomość oryginalna-----
Od: Tristan Alder <smie@priv.onet.pl
Do: pl-comp-lang-del@newsgate.gliwice.pl
<pl-comp-lang-del@newsgate.gliwice.pl
Data: 6 sierpnia 1999 19:50
Temat: Re: Znaki ASCII

var i : Byte;
begin
for i:=32 to 255 do Writeln(i,'=',Chr(i));
end.


Hmm, ale czemu nie i:=1 to 255. Dzięki, ale wolałbym mieć to przed oczami na
kartce.
Pozdrawiam
Marcin

| A po co chcesz usuwać polskie litery? To już nie jest modne :-)


nie chodzi tylko o polskie literki. Pewne dane zapisuje na pliki na dysku,
gdzie nazwa pliku to jednocześnie nazwisko osoby i w różnych częściach
świata mam kłopoty z różnymi "krzaczkami", które nie są akceptowane jako
poprany znak w nazwie pliku.
Myslałem, że jest jakaś funkcja API, która pozwala na zamianę ciągu na
uniwersalne znaki ascii.

pozdrawiam..
Pablo

Co do przeszukiwań jako własne doświadczenie podam, że przeszukując
przy pomocy NonameII (dzięki przy okazji autorowi) archiwum ściągnięte
lokalnie, szukałem czegoś tam o znaku ASCII 0 i wpisałem
do zapytania #0. Dostałem w wyniku wszystkie posty niejakiego
Plonka et consorcjum, załamałem się i posłałem zapytanie na grupę.
Tu znudzeni grupowicze mnie raczej olali, a ja dopiero mając kiedyś tam
chwilę czasu napisałem wycinacz, który wyciął niechciane kawałki plików
.news, przeszukałem archiwum na #0 jeszcze raz i dowiedziałem się,
dlaczego nikomu się już nie chciało odpowiadać...

Pozdrawiam grupę pilnie (czasem) ją czytając - RS

No wlasnie i to jest jego podstawowa bolączka, ze z jezykiem polskim
działa to średnio (przynajmniej jakies 2 lata temu).


Może źle zrozumiałem, ale... użyłem go do zrobienia kilku wersji
językowych kilku programów (niewielkich). Zgodnie z zaleceniami starałem
się oryginalny interfejs pisać w jęz. angielskim. Nie mam żadnych
problemów z wyświetlaniem polskiej wersji językowej (i nie tylko polskiej).

oto lista


...
A ja dodam taki magiczny "cynkwajs" z BDE 5.0.
Mam bazę o prostej strukturze - identyfikator (32 znaki Ascii) + Memo
Zapisuję do tego memo dane ssane z serwera HTTP. Prosty programik pobiera
kilkanaście tysięcy rekordów - zapsiujac je do bazy.
Pod D3 BDE 4.51 pryka OK.
Pod D3 + BDE 5.0 (to z Delphi 4) - po około 2800 rekordach wypisuje
komunikat "Some internal limit (see context)"
Kurde - ile ja się namordowałem, żeby znaleźć ten kontext... No i ustawienia
w BDE zmieniałem wszystkie - najpierw systematycznie, a potem na pałę...
Przepisałem program - ciągle to samo...
A procedura dodająca puste rekordy (tylko zmienny identyfikator) dodaje
30000 rekordów w kilka sekund...

Bądź tu mądry. Ja jeszcze poczekam - może Delphi 4.02? + BDE 5.1?

VdK napisał(a):

Witam!

Czy programowal ktos moze drukarke kodow kreskowych?
Mam pytania odnosnie tego wlasnie zagadnienia.

Czy programuje sie ja tak samo jak zwykla windowsowa drukarke
atramentowa, czyli np. za pomoca TPrinter.Canvas ?


Programowałem pod DOSem co w tym momencie nie ma żadnego znaczenia. Na
drukarkę kodów kreskowych wysyłasz kod w postaci ciągu znaków ASCII,
czyli nie możesz używać TPrinter. Jeżeli kod koduje jakiś ciąg znaków to
wysyłasz odpowiednią sekwencję znaków sterujących lokalizujących kod na
etykiecie, określających standard kodu i jego rozmiar oraz sam kod i
teksty umieszczane na etykiecie tak jakbyś pisał plik tekstowy z
sekwencjami znaków sterujących zależnymi od konkretnego modelu drukarki.

PB.

Czy rozwiązania są dobre i jakie znacie lepsze!

Witam!
Jak zmienić pierwszą literę w string`u na dużąmałą, jak zmienić wszystkie
pierwsze litery wyrazów w jednym stringu?
Mam na to sposób, wydaje mi się że poprawny ale nie próbowałem:
W stringu poszukać spacji (jeżeli chodzi o wszystkie pierwsze litery
wyrazów), potem wstawić zamiast następnego znaku ASCII(ten znak + ok.30).
Czy trzeba podstawiać to wszystko do tablicy char`a zamienić litery na takie
jak trzeba a potem znów to wszystko do stringa?

Czy rozwiązania są dobre i jakie znacie lepsze!


S[IndexLitery] := UpperCase(S[IndexLitery]);

gdzie S to String

bacik

Co do dzielenia na wyrazy to musisz to zrobić bardziej eleastycznie, bo
inaczej nie będzie za dobrze działać. Co z flejtuchami, którzy piszą bez
spacji po kropce itd. Możesz zrobić tak:

SET_DELIMCHARS = [' ', '-', '.'];//i jakie tam, jeszcze chcesz znaki

if sKrolikDoswiadczalny[i] in SET_DELIMCHARS then
        begin
        //akcyjka z wyrazem
        end;

Inna sprawa, że wtedy np. pl.comp.lang.delphi zostanie też pozamieniane, i
na przyklad wyraz po np. też zostanie zamieniony.

Ciężka sprawa Panie Kolego Drogi. Nie lepiej zatrudnić milion Chińczyków?

Pozdrawiam,

Piotr "Lodek" Hosowicz
----------------------------------
Zajrzyj na moją stronę z freewarem:
http://www.mcsoft.stopklatka.pl

W jaki sposob w delphi wydrukowac na drukarce atramentowej w trybie
tekstowym polskie znaki ?

 Pozdrawiam  Janek


Nie wiem jak to jest z atramentowymi, ale tryb tekstowy w iglowkach zalezal
od znakow jakie byly sprzetowo (w biosie drukarki) zainstalowane. Tak wiec
jezeli w drukarce nie bylo polskich znako to w trybie tekstowym nie dalo
sie ich uzyskac... Choc teoretycznie istniala mozliwosc konstruowania
znakow ascii... Lepiej dobrze przejzyj dokumentacje drukarki. W mojej bylo
to dobrze opisane.

Pozdrawiam
QdlatY

przykładowo

Ł = "L" +cofnij karetkę + "/"
Ą ="A" +cofnij karetkę + ","

Wychodziło to tak sobie, ale z braku innych pomysłów można było wytrzymać

http://members.chello.pl/c.osowski/bez.JPG

czy jest wogule mozliwosc majac zawszyfrowany i odszyfrowany tekst zeby
zlamac ten szyfr. ilosc znakow sie zgadza tylko podobienstwa nie. nie mam
pojecia jakim algorytm jest tu wcisnienty jest jakis szybki sposob zeby
sprawdzic wszelkie mozliwosci ??


Sprawdzilbym, metode statystyczna.
Ogolne zalozenie jest takie ze litery w danym
jezyku wystepuja z pewna frekwecja. Czyli
litery: k,p,a wystepuja z czestatliwoscia ok. 10-13%
a polskie znaki diakrytyczne (z,s) 1-2%.
W praktyce powinienes:
- utworzyc tablice znakow, posortowana wedlug
czestosci wystepowania znakow ASCI w tekscie zaszyfrowanym.
- tablice znakow posortowana wedlug
czestosci wystepowania w j. polskim.

np.
tekst zaszyfrowany w j. polskim:
!#$%^......&*()

statystyka jezyka polskiego
pka.........sz

teraz wystarczy zrobic odpowiednia translacje
znakow ASCII na polskie litery np.
!=p
#=k
$=a

Tablice frekwencji, mozna napisac w
kilka minut analizujac dowolny,
odpowiednio duzy tekst w j. polskim.

Pozdrawiam

Jak wydrukowac cos takiego:
aaaaaaaaaa----------------
bb------------------------------
ccddddddd ddddddd----


Jeśli używasz myślnika (lub jakiegokolwiek innego znaku ASCII) do
rysowania linii to nie będzie dobrze ze względu na różną szerokość
znaku - nawet znając szerokość linii nie wypełnisz jej do końca co do
piksela. Musisz "rysować" tą końcową linię (MoveTo, LineTo) ew.
skorzystać z fontu monotypicznego (Courier).

___________________________________________
Marcin Wieczorek ( T-1000 )
wiec@polbox.com www.polbox.com/w/wieczor
DELPHI FAQ http://www.kki.net.pl/t1000

Jest kilkadziesiat zbiorow dbf. Kazdy ma kilkadziesiat pol. Podpinam je do TTable (po kolei do tego samego). Jak
wyswietlic w DBGrid kolejne pola, przy czym niektore sa wyliczalne. Czy cechy kolumn w gridzie (TColumn) maja cos
przydatnego?

Normalnie bym zrobil w projekcie deklaracje Table i TablePole1, TablePole2... A one maja mozliwosc wyliczania. Jak
podczas uruchamiania programu zadeklarowac je, by automatycznie wyczuwaly typ pola (np. TStringField). Nie chce
deklarowac tego wszystkiego w projekcie.


Zapomnialem dodac, ze pole wyliczalne (Calculated) ma korzystac z zawartosci tego pola w zbiorze. Np. pole jest 1
znakowe i zawiera znak ASCII a chce wyswietlac zamiast niego wartosc liczbowa tego znaku ascii. I tu tez jest problem,
bo albo widze zawartosc tego pola albo puste pole do wyliczenia (lecz nie w oparciu o wartosc w tym polu ze zbioru).

| Normalnie bym zrobil w projekcie deklaracje Table i TablePole1,


TablePole2... A one maja mozliwosc wyliczania. Jak

| podczas uruchamiania programu zadeklarowac je, by automatycznie wyczuwaly


typ pola (np. TStringField). Nie chce

| deklarowac tego wszystkiego w projekcie.

Zapomnialem dodac, ze pole wyliczalne (Calculated) ma korzystac z


zawartosci tego pola w zbiorze. Np. pole jest 1

znakowe i zawiera znak ASCII a chce wyswietlac zamiast niego wartosc


liczbowa tego znaku ascii. I tu tez jest problem,

bo albo widze zawartosc tego pola albo puste pole do wyliczenia (lecz nie w


oparciu o wartosc w tym polu ze zbioru).

Coś strasznie kombinujesz. Poczytaj w helpie o OnGetText dla pól danych.

P.S.
W Delphi przez pola obliczane (CalculatedFields) rozumie się pola, które są
zdefiniowane w DataSet, ale fizycznie nie istnieją w pliku danych.

Kazdy ze znakow ASCII ma przypisana wartosc 0-255. Jak zamienic taka
wartosc
liczbowa (Integer) na znak ascii?
Jesli znam wartosc to robie to tak:
Label1.Caption:=#10.
Ale jesli chcem uzyc zmiennego Integera? Np. i?


Witam

Chr + F1

Pozdrawiam,
Chizra.

hej,

Wszystkim dzieki, jadnak chcialbym wiedziec jak WYPISAC text Unicode
na Canvas (gdziekolwiek...). Nie znalazlem niczego o TextOutW/OutText
etc. Skad Delphi wie, ze 'Ala ma kota' to faktycznie
' A l a   m a   k o t a' (spacja to #0). Skad wie, jak interpretować
string w Canvas.TextOut(...)? Jak wyglada string Unicode - czy
wystarczy uzyc dyrektywy kompilatora $H+ i wszystkie stringi sa juz
dwubajtowe? Jak uzywac wyzszych znakow niz 256 znakow ASCII?

Kto wie?
(chyba niedlugo ufunduje nagrode dla tego, kto pomoze mi rozwiklac te
kwestie ;)

To na razie.

Ptysio.

pi@krstudio.com.pl (Piotr Płyś) napisał(a):

Wszystkim dzieki, jadnak chcialbym wiedziec jak WYPISAC text Unicode
na Canvas (gdziekolwiek...). Nie znalazlem niczego o TextOutW/OutText
etc.


Poszukaj w MSDN lub WIN32.hlp

Skad Delphi wie, ze 'Ala ma kota' to faktycznie
' A l a   m a   k o t a' (spacja to #0).


Nie Delphi tylko Windows: po tym W w TextOutW.

Skad wie, jak interpretować
string w Canvas.TextOut(...)? Jak wyglada string Unicode - czy
wystarczy uzyc dyrektywy kompilatora $H+ i wszystkie stringi sa juz
dwubajtowe? Jak uzywac wyzszych znakow niz 256 znakow ASCII?


Jest coś takiego jak WideChar i WideString.

(chyba niedlugo ufunduje nagrode dla tego, kto pomoze mi rozwiklac te
kwestie ;)


Czekam na propozycje. :-)

___________________________________________
Marcin Wieczorek ( T-1000 )
wiec@polbox.com www.polbox.com/w/wieczor
DELPHI FAQ http://www.kki.net.pl/t1000

Gdzie mozna znalesc funkcja ktora poprawnie zakoduje URL ?


RFC nie pamiętam które. Niech Pan grepuje pod kątem url-encode(d).

Wersja dla ubogich (poprawna, aczkolwiek nadmiarowa): zakodować
wszystkie znaki spoza przedziału <32,126do postaci:

%hh

... gdzie:
% oznacz znak '%'
hh oznacza kod znaku ASCII zamieniony na dwucyfrowy kod w hexie.
IntToHex + F1.

Aha, i niech Pan pamięta, ze to trzeba zrobić z głową. Znaki ?, & i =
należące do "składni URL" nie powinny być kodowane, w odróżnieniu od
tych samyuch znaków występujących w wartościach parametrów.

Piotr Hosowicz wrote:
Przemyslaw Osmanski wrote:

| Chyba bez wlasnego komponentu sie nie obejdzie... Ale swoja droga to
| raczej powinno byc proste.
| Obraz matrycy to zwykla macierz array[0..39,0..23] of byte, bo
| wyswietla sie tylko znaki z tabeli ASCII,
| Nalezaloby zrobic w jakims programie graficznym zestaw znakow do
| wyswietlenia (chyba 16x8, lub 8x8px)
| i obslugiwac tylko i wylacznie wyswietlanie matrycy na chocby
| komponencie dziedziczonym z TImage lub TPanel.

Mnie się zdaje, że najlepszym punktem wyjścia będzie po prostu
TStringGrid.
Zgadzam się z tą tezą, choć szczerze mówiąc nie widzę przeciwskazań aby


zastosować zwykły richedit.

W sumie to RichEdit nie moze wyswietlac wszytskich 256 znakow ASCII (choc to
pewnie mozna jakos sprytnie ominac) + trzeba uzyc czcionki o stalej
szerokosci. Szeze powiedziawszy to napisanie czegos takiego zajloby chyba
tyle samo czasu co kombinowanie z RichEditem (jak zablokowac zaznaczanie
tekstu, jak wyswietlac nieobslugiwane znaki ASCII, etc.)

pozdrawiam,

WAC.

Mam prosbe:
Interesuja mnie konkretne przyklady kodu w (object pascal - delphi)
lub adresy internetowe miejsc gdzie moglbym znalezc:
jak za pomoca delphi napisac modul, dzieki ktoremu dwa komputery moglyby sie
dogadac za pomoca protokolu TCP/IP (przesylanie znakow ASCII).


W Demosach nie masz??? jest tam przyklad do socetow.

przyklad jest torche zamotany dla osob poczatkujacych , wiec proponuje tak :
 w zakladce INTERNET znajduja sie 2 komponenty : ServerSocket i ClientSocket.
Jak z tego stworzyc aplikacje Client - Server ?
1 stawiamy na formie komponent ClientSocket1;
2 ustawimy port : PORT = 2222; (np.)
3 ustawiamy adres ADDRESS = np. 192.168.1.1 lub nazwe : HOST = 'AMADEUSZ';
4 stawiamy na formie komponent Button1
5 podpinamy mu zdarzenie OnClick :
ClientSocket1.Socket.SendText('To jest nasza pierwsza wiadomosc');
6 ustawiamy ACTIVE = True; - i juz mamy gniazdko
7 stawiamy na formie komponent ServerSocket1
8 ustawimy port : PORT = 2222;
9 stawiamy na formie komponent Edit1 gdzie pokaze sie nasz wyslany tekst
10 podpinamy mu zdarzenie OnClientRead :
11 Edit1.Text:=ServerSocket1.Socket.Connections[0].ReciveText;
ustawiamy ACTIVE = True;
i tyle  no udalo mi sie to zamkac w 11 krokach.
a i jeszcze NT porzebuje laczenia poprze adres IP, w9x wystarczy sama nazwa, chociaz IP tez jest mile widziany.
fido.

----------

Od: Marcin Rymarek <r@hades.t15.ds.pwr.wroc.pl
Do: pl-comp-lang-del@newsgate.pl
Temat: Re: TCP/IP
Data: 13 kwietnia 2000 08:23

arti wrote:

| Mam prosbe:
| Interesuja mnie konkretne przyklady kodu w (object pascal - delphi)
| lub adresy internetowe miejsc gdzie moglbym znalezc:
| jak za pomoca delphi napisac modul, dzieki ktoremu dwa komputery moglyby sie
| dogadac za pomoca protokolu TCP/IP (przesylanie znakow ASCII).
W Demosach nie masz??? jest tam przyklad do socetow.

czy ktos wie cos o tym:

w Caption np. formy sprobujcie wpisac ś
nie da rady
trzeba pozmieniac cos w rejestrze lub zamienic na emulacje klaiwszy VB w
opcjach D

a sprobujcie tak: (bez jakichkolwiek zmianw  systemie)
piszac w Caption gdy trzeba bedzie zrobic ś przytrzymajcie ALT i w piszcie
152 z klawiatury alfanumerycznej

trzeba troche numerkow zapamietac ale nie trzeba nic zmieniac w systemie no
nie? :]
chyba jakies wyjscie dla tych co te zmiany nie pomagaja

P.S. pod jakim haslem znajde w helpie znaki ASCII?

P.S. pod jakim haslem znajde w helpie znaki ASCII?


Chyba nie ma czegos takiego :-) Ale mozna zawsze sobie napisac program lub
sciagnac gotowy,
ktory poda kod ASCII klawisza. Np. www.4programmers.net - tam takowy sie
znajduje...

| P.S. pod jakim haslem znajde w helpie znaki ASCII?

Chyba nie ma czegos takiego :-) Ale mozna zawsze sobie napisac program lub
sciagnac gotowy,
ktory poda kod ASCII klawisza. Np. www.4programmers.net - tam takowy sie
znajduje...


Jest w GExperts - http://www.gexperts.org
W ogóle warto się tym pakiecikiem zainteresować, szczególnie funkcją pod Ctrl-
G, to jest coś, czego w Delphim od dawna mi brakuje.

Zdrówko
Jarek Zgoda

Moje kolejne zadanie polega na prostym zakodowaniu ciągu znaków.
Przyjmijmy, iż chciałbym zakodować string 'DOMENA' w następujący sposób:
- biorę kolejne litery z tego słowa,
- zamieniam je na ich odpowiednik liczbowy,
- dodaję wartość 1 do otrzymanej liczby
- zamieniam wynik na znak ASCII
- przypisuję otrzymany znak w miejsce 'pobranej' litery
Ostatecznym wynikiem powinno w tym przypadku być słowo 'EPNFOB'.

W jaki sposób można powyższy algorytm przedstawić w Delphi?

Pozdrawiam,
Przemysław Czapliński

Przemyslaw Czaplinski napisał(a) w wiadomości: <9ljl2o$7f@news.tpi.pl...

Witam,

Moje kolejne zadanie polega na prostym zakodowaniu ciągu znaków.
Przyjmijmy, iż chciałbym zakodować string 'DOMENA' w następujący sposób:
- biorę kolejne litery z tego słowa,
- zamieniam je na ich odpowiednik liczbowy,
- dodaję wartość 1 do otrzymanej liczby
- zamieniam wynik na znak ASCII
- przypisuję otrzymany znak w miejsce 'pobranej' litery
Ostatecznym wynikiem powinno w tym przypadku być słowo 'EPNFOB'.

W jaki sposób można powyższy algorytm przedstawić w Delphi?


Dla kogo takie proste kodowanie ?

Dla przesunięcia o jeden znak:

for k := 1 to Length(s) do
   s[k] := succ(s[k]);  // pred - w lewo

Ogólnie dla przesunięcia o n znaków (ujemne n - w lewo):

for k := 1 to Length(s) do
   s[k] := Chr((Ord(s[k]) + n) mod 255);

Mod po to, żeby ewentualnie "przewijać" na początek lub koniec.

Tocbac.

function Szyfruj(co : String; przez : Integer) : String;
Var
i : Integer;
szy : String;
begin
Result:= '';
szy:= '';
for i:= 1 to Length(co) do szy:= szy + Chr(Ord(co[i]) xor przez);
Result:= szy;
end;

Użytkownik "Przemyslaw Czaplinski" <ge@thenut.eti.pg.gda.plnapisał w
wiadomości
Witam,

Moje kolejne zadanie polega na prostym zakodowaniu ciągu znaków.
Przyjmijmy, iż chciałbym zakodować string 'DOMENA' w następujący sposób:
- biorę kolejne litery z tego słowa,
- zamieniam je na ich odpowiednik liczbowy,
- dodaję wartość 1 do otrzymanej liczby
- zamieniam wynik na znak ASCII
- przypisuję otrzymany znak w miejsce 'pobranej' litery
Ostatecznym wynikiem powinno w tym przypadku być słowo 'EPNFOB'.

W jaki sposób można powyższy algorytm przedstawić w Delphi?

Pozdrawiam,
Przemysław Czapliński

Moje kolejne zadanie polega na prostym zakodowaniu ciągu znaków.
Przyjmijmy, iż chciałbym zakodować string 'DOMENA' w następujący sposób:
- biorę kolejne litery z tego słowa,
- zamieniam je na ich odpowiednik liczbowy,
- dodaję wartość 1 do otrzymanej liczby
- zamieniam wynik na znak ASCII
- przypisuję otrzymany znak w miejsce 'pobranej' litery
Ostatecznym wynikiem powinno w tym przypadku być słowo 'EPNFOB'.


O szyfrowaniu poczytaj na www.programowanie.of.pl -Algorytmy -
Szyfrowanie

Przemyslaw Czaplinski wrote:

Witam,

Moje kolejne zadanie polega na prostym zakodowaniu ciągu znaków.
Przyjmijmy, iż chciałbym zakodować string 'DOMENA' w następujący sposób:
- biorę kolejne litery z tego słowa,


var
  x:integer; //dlugosc stringa - x-na chwilę...
  znak:char; // okreslony znak
  oz:byte;
for x:=1 to length(string) do begin

- zamieniam je na ich odpowiednik liczbowy,


znak:=string[x];
oz:=ord(znak);

- dodaję wartość 1 do otrzymanej liczby


czyli zamiast powyzszej linijki kodu:
oz:=ord(znak)+1;

- zamieniam wynik na znak ASCII


znak:=char(oz);

- przypisuję otrzymany znak w miejsce 'pobranej' litery


string[x]:=znak;

Ostatecznym wynikiem powinno w tym przypadku być słowo 'EPNFOB'.


I pewnie by takie wyszło. Tylko, czy pamiętasz o:
1. Niektóre kody znaków po alfabecie to znaki specjalne (#127 ???) itp.
2. A jeżeli ktos wstawi do stringu znak o kodzie ASCII = 255 ???
Ooopsss.

Poza tym kodowanie systemem ala Juliusz Cezar, to trochę stara metoda
(on stosował +3). Radzę pobawić się w klucze...

W jaki sposób można powyższy algorytm przedstawić w Delphi?


Jak wyżej.

Pozdrawiam,
Przemysław Czapliński


Pozdrawiam

Dodam, ze sprawdzalem uzycie TFileStream i TStringStream - i dopóki nie
wchodzi do akcji RichEdit wszystko jest wczytywane w calosci.

Pozdrawiam - RS

Gdy na poczatku linii w pliku tekstowym jest znak ASCII o numerze 0
(trafiaja sie programy wpisujace cos takiego do generowanych plikow)
to  po uzyciu  RichEdit.Lines.LoadFromFile  nie jest wczytywanych kilkaset
(nie mierzylem dokladnie) znaków po owym #0.
Czy znacie jakas metode na zapobiezenie temu efektowi?

Dodam, ze sprawdzalem uzycie TFileStream i TStringStream - i dopóki nie
wchodzi do akcji RichEdit wszystko jest wczytywane w calosci.

Pozdrawiam - RS


Znak #0 w srodowisku Windows oznacza koniec stringa i to moze byc przyczyna
bledu. Najlepiej olac taki znak i zaczac wczytywac od nastepnego, pamietajac
jednak aby przy zapisywaniu do pliku dodac go z powrotem (skoro niektore
aplikacje taki znak zapisuja to moze im byc do czegos potrzebny).

Najprosciej po wczytaniu do stream'a, ustawic Stream.Position:=1 (czyli na
drugi znak pliku) i  wczytac RichEdit.Lines.LoadFromStream(Stream)

powinno pojsc

pozdrawiam,

WAC.

| Gdy na poczatku linii w pliku tekstowym jest znak ASCII o numerze 0
| (trafiaja sie programy wpisujace cos takiego do generowanych plikow)
| to  po uzyciu  RichEdit.Lines.LoadFromFile  nie jest wczytywanych
kilkaset
| (nie mierzylem dokladnie) znaków po owym #0.
| Czy znacie jakas metode na zapobiezenie temu efektowi?

| Dodam, ze sprawdzalem uzycie TFileStream i TStringStream - i dopóki nie
| wchodzi do akcji RichEdit wszystko jest wczytywane w calosci.

| Pozdrawiam - RS


Ech, sory, to moje niedbalstwo, zle przeczytalem Twoj post ;)

Znak #0 pojawia sie napoczatku wielu linii a ja przyjalem ze tylko na
poczatku pliku, ech ;)

Moze wiec po prostu wykasujemy te znaki  :

procedure WczytajPlik(Lines : TStrings; Path : string);
var
  Plik : TextFile;
  Linia : string;
  Linia2 : string;
  i : integer;
begin
  AssignFile(Plik, Path);
  Reset(Plik);
  Lines.BeginUpdate;
  Lines.Clear;
  while not Eof(Plik) do
  begin
    ReadLn(Plik, Linia);
    Linia2:='';
    for i:=1 to Length(Linia) do
      if Linia[i] <#0 then
        Linia2:=Linia2+Linia[i];
    Lines.Add(Linia2);
  end;
  Lines.EndUpdate;
  CloseFile(Plik);
end;

Wywolanie : WczytajPlik(RichEdit.Lines, 'C:sciezka.pliku');

pozdrawiam

WAC.

| Pisz w jakimś formacie który pozwala zaznaczać cytowanie bo nie chce mi
| się tego robić ręcznie..
piszę bezpośrednio z Googli, więc to chyba u Ciebie jest coś nie tak,
bo u mnie każdy post inicjuje się automatycznie od cytatu zaznaczonego


Wszystkie "przeglądarkowe" programy pocztowe mają tę nieciekawą właściwość,
że kodują polskie znaki w "quoted-printable", a z tym nie radzi sobie od
dawien dawna ani Outlook Express, ani Windows Mail.
Quoted jest nadmiarowe - na jeden znak narodowy przypadają trzy znaki ASCII,
pomijam, że cały tekst musi być dodatkowo dopakowany specjalnymi
separatorami.

Mam nastepujacy problem :

Chce generowac pytanie SQLowe w sposob dynamiczny.
Ze wzgledu na wartosci kilku checkboxow zmienia mi sie
ilosc parametrow jakie wymaga TQuery

Np. SELECT pole1, pole2, pole3 FROM Tabela 1

i jesli checkbox dla pola 3 jest na true do dopisuje do
TQuery,SQL - 'WHERE  pole1 =  ' +  EditPole1.Text

i tu jesli ow pole jest typu string lub integer to nie ma problemu.
Klopoty zaczynaja sie przy dacie........
Nie wiem jak dodac do tresci SQLa wiadomosc ze chodzi o date
w accesie bylo po prostu  # na poczatku i koncu daty, np #99-07-19
10:00:00#
Czy dla delphi (i baza paradoxa) jest jakis znak ascii niosacy
informacje
ze jest to data ?

Myslalem ze prosciej jest to zrobic
dopisujac do TQuery.SQL 'Where pole daty:PD'
i dodac parametr do TQuery, niestety nie umiem tego zrobic :-(
Jak dodawac w trakcie dzialania aplikacji parametry do komponentu
TQuery ?
Czy trzeba wczescniej tworzyc obiekt TParam i pod niego wpisywac
wartowsci a nastepnie uzywac metody AddParam dla TQuery ??
Probowalem to robic, ale po jakies godzinie walczenia z helpem
spasowalem :-(((((((

Jakby ktos mogl mi to na przykladzie wyjasnic bylbym baardzo wdzieczny.

Prosze o odpowiedz na priva.

Pozdrawiam
Piotr Tworowski

Pozdrawiam
Piotr Tworowski

Nie wiem czy dokladanie o to chodzi, ale czy szukales tego znaku w
'Tablicy znakow' Windowsa? Wtedy wystarczy go skopiowac i wkleic w
odpowiednim miejscu. Jesli to ma byc na przycisku, to bez kombinowania
zrob obrazek i juz...
Mozesz tez kombinowac ze wstawieniem znaku ASCII, np.

if  Key = 'x' then
    begin
        SynEdit.SelText := (#167); //wstawienie kodu ASCII
        Key := #0                           //nie jest wstawiany
następny znak (nul)
    end;

Sprawdzic jaki to znak #167 mozesz trzymajac Alt i wpisujac na
klawiaturze numerycznej liczbe 167

pytanie pewnie jest banalne ale siedze nad tym juz troche i :(
jak dokonac konersji tekstu pobranego ze zmiennej typ STRING by otrzymac
kolejne znaki ASCII tej zmiennej np 'ala' -'616C61'.


for i:=1 to length(tekst) do
    writeln(ord(tekst[i]))

function JakasTamFunkcja(sIn: String): string;

const hex:array [0..$0f] of
char=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
  var s: string;
  var i:integer;
begin
   s:='';
   for i:=1 to length(sIn) do
      begin
        s:=s+hex[byte(sIn[i]) shr 4]; //zamiast byte moze byc ord
        s:=s+hex[byte(sIn[i]) and $0F];
     end;
  Result:=s;
end;

Mam maly unit to konwersji z ISO do Win, ale wymaga on
pelnej tabeli znakow ASCII z 256 znakami i tez nigdzie nie moge znalezc
tabeli dla Windows-1250 i  ISO-8859-2.

Prosze o pomoc. Wszelkie sugestie i pomysly mile widziane

pozdrowienia
register

Register wrote:
poszukuje skompilowanego slownika do ISpell w stronie
kodowej Windows-1250. W sieci dostepny jest, ale w stronie
kodowej ISO-8859-2.

Mam maly unit to konwersji z ISO do Win, ale wymaga on
pelnej tabeli znakow ASCII z 256 znakami i tez nigdzie nie moge znalezc
tabeli dla Windows-1250 i  ISO-8859-2.

Prosze o pomoc. Wszelkie sugestie i pomysly mile widziane


na kurniku ( kurnik.pl ) jest alternetywny slownik do gry literaki .
kodowany w dwuch wersjiach ( http://kurnik.pl/slownik/growy/  -- tego
tez sparwdziles ???  ).

Jednostka "Matt" <mpab@poczta.onet.plnastukała w
news:aje8vh$22t$1@news2.tpi.pl:

Jak w prosty sposob zrobic rosyjska wersje programu (teksty pisane
cyrylica)


np.

Label1.Font.Charset := 204;

Z tym że nie wiem jak to zadziała dla np. elementów menu: być może będziesz
musiał się męczyć z OwnerDraw...

i czy mozna usyskac kody znakow cyrylicy zamiast
standardowych znakow ASCII (kody ponizej 128)


O ile mi wiadomo - nie. Część znaków jest bowiem wspólna (albo bardzo
podobna) i Rosjanie to wykorzystują - znaki specyficznie uzyskuje się
podobnie jak polskie: z prawym Altem.

Użytkownik Matt <mpab@poczta.onet.plw wiadomości do grup dyskusyjnych
napisał:aje8vh$22@news2.tpi.pl...

Jak w prosty sposob zrobic rosyjska wersje programu (teksty pisane
cyrylica)
i czy mozna usyskac kody znakow cyrylicy zamiast standardowych znakow
ASCII
(kody ponizej 128)

Pozdrawiam
Grzegorz


Lub skołować Ruską Windę i pod nią zainstalować Delphi. W tym momencie unika
się niepotrzebnych wpadek.

Marcin

Dodam, &#380;e sprawdza&#322;em u&#380;ycie TFileStream i
TStringStream - i dopóki nie
wchodzi do akcji RichEdit wszystko jest wczytywane w
ca&#322;o&#347;ci.

Pozdrawiam - RS

Niezbedna jest mi taka sewkencja zdarzen:

otwieram port COM (1 .. 4)
 Prędkość = 9600 bodów.
 Bity danych = 8.
 Bity stopu = 1.
 Bit parzystości - brak.
 Format danych = ASCII.

wysylam x05h

powinienem odebrac

x06h

wtedy wysylam
x11h

wtedy otrzymuje 10 znakow ASCII

czy ktos moze mi podrzucic jakis programik (zip) albo kod... naprawde
probowalem juz z wszystkimi COM jakie mam w kompie, z komponentem SerialPort i
z delphi faq. nie dziala. HELP

Użytkownik sem <s@tenet.plw wiadomości do grup dyskusyjnych
napisał:37dfe@news.vogel.pl...

Czy z Memo, Listboxa da sie kasowac enter (znak enter) lub zamieniac go na
cos innego?
(jesli tak to b. prosilbym o przykladowy kawalek kodu)


Znak enter jest w systemie windows reprezentowany przez 2 znaki ASCII
H0A0D (13,10 dziesietnie) czyli CR i RETURN

Pierwsza procedura wstawia entera w srodek stringu, a druga zamienia
pierszego entera w stringu na dwie spacje

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.text:='To jest pierwsza linia'+#13#10+'To jest druga linia';
end;

procedure TForm1.Button2Click(Sender: TObject);
var
s:string;
begin
s:=memo1.text;
if pos(#13,s)0 then
  begin
  s[pos(#13,s)]:=' ';
  s[pos(#10,s)]:=' ';
  end;
memo1.Text:=s;
end;

Aby po naciśnięciu INSERT wystąpiło autopowtarzanie dla DBGrid, coś takiego
jak KeyPressed tylko tam nie rozpoznasz INSERT tylko znaki ASCII.


Niewiem czy dobrze zrozumiałem o co Ci chodzi, ale jeżeli masz zamiar
poprostu przechwycić czy będąc w DBGridzie ktoś nie nacisną INSERT to
można to zrobić tak:

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin
   if Key=VK_INSERT then
   begin

     ShowMessage('Jakaś czynność');

   end;
end;

Jeżeli nie to sprecyzuj swoje pytanie i przepraszam za pomyłkę

Pozdrawiam

Jestem początkujący i nie wiem jak wysłać znak ASCII do portu COM1 lub COM2.

Proszę o pomoc


Znajdz komponent TComPort
http://sourceforge.net/projects/comport/

obejrzyj przyklady bedzie jasne

mały wrote:
Jestem początkujący i nie wiem jak wysłać znak ASCII do portu COM1 lub
COM2.

Proszę o pomoc


groups.google.pl było już setki razy masz soporo możliwości:
1. Sam tworzysz Port (plik) i zapisujesz do niego i odczytujesz
2. Używasz TComPort
3. Używasz TRSPort
4. używasz zlIOPort

Może to temat nie związany z Delphi, ale...

Chcę zmienić kilka znaków ASCII (z poziomu DOS, TP7.0), np: własny jakiś
znaczek o numerze 140. Zmieniam i jest spoko, dopóki nie muszę tworzyć
jakiś złożonych kształtów. Chodzi o to, iż po zmianie zostaje przerwa
między znakami - a standardowe ramki ASCII tak się nie zachowują.
Dlaczego???

Anton wrote:
Witajcie

Czy ktos z Was zna komponent typu memo, ktory wyswietla wszystkie znaki
ASCII, a nie tylko litery i cyfry jak standardowe memo. Gdzie mozna znalezc
ewentualnie takie memo.


Ustaw se czcionke na system albo cos w tym gatunku
(choc znakow sterujacych nie zobaczysz - przy najmniej niektorych, jak
np. CR LF)

pozdrawiam
qdlacz

Czy ktos ma jakis pomysl?
Pozdrawiam,
Merry

czy ktos zna jakas czcionke, ktora w zasobach oprocz znakow ascii
posiada rowniez symbole?
Zalezy mi na wspolistnieniu w tym samym stringu znakow  abcd..jak i
omega, mikro, nano, beta...


Większość czionek windowsowym zawiera grekę.

| czy ktos zna jakas czcionke, ktora w zasobach oprocz znakow ascii
| posiada rowniez symbole?
| Zalezy mi na wspolistnieniu w tym samym stringu znakow  abcd..jak i
| omega, mikro, nano, beta...
| Większość czionek windowsowym zawiera grekę.
Np.? Sa takie co zawieraja ABCDEFG...Beta, alfa, teta...w jednym
zestawie?


Prawie (jeśli nie zupełnie) wszystkie w systemie standardowe.

próba standardowej MS Sans Serif:

http://wswiktor.fm.interia.pl/test.png

jakie znaki są w danej czcionce dowiesz się ze start|uruchom|charmap.exe
tamże możesz je skopiować do schowka.

Jeśli kompilujesz dla Win32, to standardowe komponenty Delphi tych znaków
nie obsłużą. Potrzebujesz

http://www.tntware.com/delphicontrols/unicode/

Jeśli piszesz pod .Net to powinny już od razu działać.

 thisOne wrote:
gilmor napisał(a):

| Nie wszyscy znają kody ASCII

A ktoś normalny wogule zna wszystkie ?? ;-))


Swego czasu na WDI[1] psor pokazywał wszystkim zmienną char w C, owego
wykładu słuchałem raczej znudzony. W pewnym momencie chciał pokazać
studentom, że char to nie tylko liczba, ale też znak ASCII (
printf("%c",znak) ). Zawahał się w pewnym momencie i powiedział "No tak, ale
ja nie znam kodów Ascii na pamięć". No to wtedy się zapytałem "A jaki znak
Pan potrzebuje?" Odpowiedział "No, powiedzmy, C duże." No to ja z miejsca:
"67" :) Zbyt dużo siedziałem pod Pascalem gdzie się po pewnym czasie znało
na pamięć wszystkie kody znaków ramek ;)

pozdr.


Pozdrawiam -- Spook.

Swego czasu na WDI[1] psor pokazywał wszystkim zmienną char w C, owego
wykładu słuchałem raczej znudzony. W pewnym momencie chciał pokazać
studentom, że char to nie tylko liczba, ale też znak ASCII (
printf("%c",znak) ). Zawahał się w pewnym momencie i powiedział "No tak, ale
ja nie znam kodów Ascii na pamięć"


        printf("%d",'C');

;-))

pozdr

Tomasz Trojanowski

witam
niestety nie mam czasu napisać jak ma to wyglÂądać ale :
- koledze 'saper' chodzi o zamiane ciÂągu w postaci znaków ascii (char) na
znaki (cyfry) w notacji hex .
czyli w edit1 ma 'A' - edit2 = 41 (65 dziesiętnie)
- zamień kolejne znaki stringa na cyfry a potem konwertuj na hexa - użyj w
pętli o długoÂści stringa funkcji ord , inttostr ...

Tomasz Trojanowski


Tez tak myslalem , ale Pan Saper to wyjatkowo leniwy czlowiek.
On chce sie nauczyc podstaw Pascala zadajac kolejne pytania,
dowodem sa jego kolejne pojawiajace sie pytania.
Mysle ze powinien przeczytac jakas ksiazke.
A moze sie myle ?

Rysiek

Potrzebuje wygenerowac plik zawierajacy wszystkie mozliwe stringi o dlugosci np
3 znakow, czyli by plik w uproszczeniu wygladal tak

-------
aaa
aab
aac
.
.
aaz
aba
abb
abc
.
.
-------
tylko oczywiscie zakres znakow ASCII od 0-255. Jak to zrobic najszybciej? Jesli
moglibyscie napisac jakis algorytm czy moze jakis kod w c czy pas :)

Pozdrawiam!
Borys

tylko oczywiscie zakres znakow ASCII od 0-255. Jak to zrobic najszybciej?
Jesli
moglibyscie napisac jakis algorytm czy moze jakis kod w c czy pas :)


var i,j,k:char;

begin
 for i:=#0 to #255 do
   for j:=#0 to #255 do
     for k:=#0 to #255 do
       write(i+j+k);
end.

W jaki sposób odczytać ilość znaków wpisanych do memo. Jeżeli piszę
length(memo1.text) to podaje mi ilość znaków ale razem ze znakami
przejścia do następnej linii a tego chciałbym uniknąć, co zrobić?


Hmmm chyba np. tak: kazdy znak konca linii to dwa znaki ASCII #13 i #10,
wiec wzor wygladal by tak:

Length(Memo1.Text) - (Memo1.Lines.Count - 1) * 2

Prosze to jeszcze sprawdzic, ale powinno byc ok :]
(Sa tez inne sposoby, ale ten wydaje mi sie najprostrzy)

Pozdrawiam
QdlatY

marfi wrote:
marfi wrote:

| StrToIntDef(

  Sorry - nie zauważyłem, że Lodek już odpowiedział a pytacz nie wie o co
pyta albo nie umie czytać ze zrozumieniem ani skopiować bez zrozumienia :)


Ok, no ja odpowiedziałem na tyle na ile zrozumiałem pytanie. YTerza się
wmieszały jakieś znaki "ASCII od 0 do 255", więc jest w ogóle "wieczór z
kobrą", ale pożyjemy - zobaczymy.

PS. 123, 49 to nie są cyfry.

mam bardzo pilne pytanko i prosbe o pomoc .......

Jaki zakres kodow ASCII moge przesylac przez TCP/IP ( GNIAZDA ) poprzez
aplet ???? i jakie klasy moge do tego wykorzystac ??

i czy ktos wie gdzie na sieci jest spis wszystkich kodow ascii

dzieki za szybka odpowiedz...

Pozdrawiam Erni

Szczegóły na priva.

Pozdrawiam
Marian


A dlaczego na priva, może lepiej podyskutujemy...

Program wysyła 3 porcje 20 znaków (litery i cyfry) przez COM1 do urządzenia
elektroniczenego. Urządzenie
po kolei wyświetla znaki z każdego profilu na wyświetlaczu LCD.

Osoba wykonująca urządzenie prosi aby bajty były wysyłane w nastepujacy
sposób:
1 porcja 20 znaków: HEX
2 porcja 20 znaków: bibarnie
3 porcja 20 znaków: ASCII

W jaki sposób to zrobic ?

Teraz wszystko wysyłane jest jako ASCII.

Pozdrawiam
Marian

Szczegóły na priva.

Pozdrawiam
Marian

A dlaczego na priva, może lepiej podyskutujemy...

Program wysyła 3 porcje 20 znaków (litery i cyfry) przez COM1 do urządzenia
elektroniczenego. Urządzenie
po kolei wyświetla znaki z każdego profilu na wyświetlaczu LCD.

Osoba wykonująca urządzenie prosi aby bajty były wysyłane w nastepujacy
sposób:
1 porcja 20 znaków: HEX
2 porcja 20 znaków: bibarnie
3 porcja 20 znaków: ASCII

W jaki sposób to zrobic ?

Teraz wszystko wysyłane jest jako ASCII.

A powiedzże czym dla 'tamtej osoby' różni się binarnie (pomijając
literówkę) od ASCII, co ma być przekazane Hex-em itd.

Jak to ma być urządzenie na serio, za kasę czy coś  takiego, to może
wynająć kogoś, kto umie to 'nieco' bardziej precyzyjnie opisać?

Chyba wszyscy mamy dość urządzeń ze spieprzonym firmwarem: komórki,
golarki, empetrójki obojętnie. Średnia jakoś tego softwaru jest
SKANDALICZNA. Teraz wiem dlaczego.

A ty z czym konkretnie masz problem?

Pozdrawiam
Marian


Akurat miedzy tymi 3 formatami danych "zamiany"
sa dosc naturalne.

To naprawde nie jest trudne. Skoro program juz wysyla
dane w jakims formacie - to tylko "przed wyslaniem"
musisz ten format zamienic.
Robiac to przy pomoc kartki papieru i olowka - jest to
naprawde banalne, niektore jezyki prog. oferuja
typy wyposazone w funkcje konwersji biedzy roznymi
formatami danych.

Jesli faktycznie to nie jest komrecyjne - to wrzuc
na grupe kluczowe fragmenty kodu.

Na pewno ktos pomoze.

MZielny pisze:

1 porcja 20 znaków: HEX
2 porcja 20 znaków: bibarnie
3 porcja 20 znaków: ASCII

W jaki sposób to zrobic ?

Teraz wszystko wysyłane jest jako ASCII.

Pozdrawiam
Marian

Akurat miedzy tymi 3 formatami danych "zamiany"
sa dosc naturalne.

To naprawde nie jest trudne. Skoro program juz wysyla
dane w jakims formacie - to tylko "przed wyslaniem"
musisz ten format zamienic.
Robiac to przy pomoc kartki papieru i olowka - jest to
naprawde banalne, niektore jezyki prog. oferuja
typy wyposazone w funkcje konwersji biedzy roznymi
formatami danych.

Jesli faktycznie to nie jest komrecyjne - to wrzuc
na grupe kluczowe fragmenty kodu.

Na pewno ktos pomoze.

A z czym masz konkretnie problem??
Z konwersją między typami danych, czy z transmisją??
Ciągle podajesz za mało danych.
Jak to urządzenie się komunikuje z kompem, jaki interfejs?? (wyciągnij
od kolesia na jakim chipsecie pracuje, to sobie lookniesz na strone
producenta i większość szanowanych firm udostępnia swoje sterowniki)

Pozdrawiam,
Pietrina.

On 29 Lis, 18:12, pietia <pietia.@gmail.com wrote:

MZielny pisze:

1 porcja 20 znaków: HEX
2 porcja 20 znaków: bibarnie
3 porcja 20 znaków: ASCII

W jaki sposób to zrobic ?

Teraz wszystko wysyłane jest jako ASCII.

Pozdrawiam
Marian

Akurat miedzy tymi 3 formatami danych "zamiany"
sa dosc naturalne.

To naprawde nie jest trudne. Skoro program juz wysyla
dane w jakims formacie - to tylko "przed wyslaniem"
musisz ten format zamienic.
Robiac to przy pomoc kartki papieru i olowka - jest to
naprawde banalne, niektore jezyki prog. oferuja
typy wyposazone w funkcje konwersji biedzy roznymi
formatami danych.

Jesli faktycznie to nie jest komrecyjne - to wrzuc
na grupe kluczowe fragmenty kodu.

Na pewno ktos pomoze.

A z czym masz konkretnie problem??
Z konwersją między typami danych, czy z transmisją??

Mam problem z konwersją między typami

Ciągle podajesz za mało danych.
Jak to urządzenie się komunikuje z kompem, jaki interfejs?? (wyciągnij
od kolesia na jakim chipsecie pracuje

Używa ATMEGA 32L

On 29 Lis, 18:12, pietia <pietia.@gmail.com wrote:
MZielny pisze:

1 porcja 20 znaków: HEX
2 porcja 20 znaków: bibarnie
3 porcja 20 znaków: ASCII

W jaki sposób to zrobic ?

Teraz wszystko wysyłane jest jako ASCII.

Pozdrawiam
Marian

Akurat miedzy tymi 3 formatami danych "zamiany"
sa dosc naturalne.

To naprawde nie jest trudne. Skoro program juz wysyla
dane w jakims formacie - to tylko "przed wyslaniem"
musisz ten format zamienic.
Robiac to przy pomoc kartki papieru i olowka - jest to
naprawde banalne, niektore jezyki prog. oferuja
typy wyposazone w funkcje konwersji biedzy roznymi
formatami danych.

Jesli faktycznie to nie jest komrecyjne - to wrzuc
na grupe kluczowe fragmenty kodu.

Na pewno ktos pomoze.

A z czym masz konkretnie problem??
Z konwersją między typami danych, czy z transmisją??

Mam problem z konwersją między typami

Ciągle podajesz za mało danych.
Jak to urządzenie się komunikuje z kompem, jaki interfejs?? (wyciągnij
od kolesia na jakim chipsecie pracuje

Używa ATMEGA 32L

Do wysłania bajtow na port uzywana jest biblioteka Java Communication API
w ktorej jest funkcja outputStream.write(fpTekst.getBytes());
 gdzie: static OutputStream outputStream;
 a fpTekst to String.

On 29 Lis, 18:12, pietia <pietia.@gmail.com wrote:
MZielny pisze:

1 porcja 20 znaków: HEX
2 porcja 20 znaków: bibarnie
3 porcja 20 znaków: ASCII

W jaki sposób to zrobic ?
Ciągle podajesz za mało danych.
Jak to urządzenie się komunikuje z kompem, jaki interfejs?? (wyciągnij
od kolesia na jakim chipsecie pracuje

Używa ATMEGA 32L

Do wysłania bajtow na port uzywana jest biblioteka Java Communication API
w ktorej jest funkcja outputStream.write(fpTekst.getBytes());
 gdzie: static OutputStream outputStream;
 a fpTekst to String.

Przemyśl wynajęcie do tego zawodowców, naprawdę proszę.

czy jest odpowiednik tej funkcji w Java Scripcie ?

np. chce aby zmienna qwe wygladala tak:

"lalalala
nasepna linijka
i jeszcze jedna"

w vbsie uzyl bym chr(13) + chr(10) na koncu kazdej linijki

jak zrobic to w Java  Scripcie ????

dzieki

Jak widac oznacza line-feed.

Marcin Sciesinski

"Paweł Chodaczek" <g@z.plwrote in message w VBSie istnieje cos takiego jak chr(x)
np. chr(40) to znak ascii pod numeremm 40

czy jest odpowiednik tej funkcji w Java Scripcie ?

np. chce aby zmienna qwe wygladala tak:

"lalalala
nasepna linijka
i jeszcze jedna"

w vbsie uzyl bym chr(13) + chr(10) na koncu kazdej linijki

jak zrobic to w Java  Scripcie ????

dzieki

Informix piatka stoi pod SCO, moje servlety pod Webspherem na NT.
Mam dostac sie do bd (przez JDBC) w ktorej jedna z tablic jest zakodowana.
Przed wykonaniem query koduje string uzywajac prostego algorytmu
i otrzymuje serie znakow ASCII (do 255)
tzn.
select * from tablica where pole = "znaczki_ASCII"
                         zakodowany string  ^^^^^^^^^^^^^^^^

po stronie servleta zakodowany string jest ok., lecz po dotarciu do silnika
bd
NIEKTORE znaki sie zmienily (w sqexplain.out to widac).
np:
string zakodowany to seria ASCII (po stronie servleta):
215, 248,233,218,249,230,230
zas w sqexplain kody 248, 249, 230 pojawily sie jako znaki zapytania (?).

Co zrobic zeby string nie ulegal zadnym przeksztalceniom?
Czy ktos wie gdzie sie przeksztalcaja te znaki?
POMOCY!

Z gory dziekuje.

A jeszcze jedno.
Według książki z C to powinny być małe litery a są wielkie.


Ależ to są małe litery, tylko masz błąd w kodzie - są to kody małych
liter, ale heksadecymalne. Powinno być:
 public String ts[] = new String[0x80];
oraz:
 for(int i = 0x61;i < 0x80;i++)

Przkompiluj i sprawdź.

Nie wiem może dla javy jest inna tablica znaków ASCII.
Proszę was o taką ściągę takiej tablicy kodów ASCII.


ASCII, jak sama nazwa wskazuje, to standard:
http://www.lookuptables.com/

Poza tym kolega faxe podał przykład jak się to powinno zrobić bez udziwnień.

Pozdrawiam
A.R.

mam lancuch znakowy ze znakami bitowymi i nie wiem jak zamienic je na znaki
ASCII.
np.

public String binar="01000001"; =to jest rownowazne liczbie dziesietnej 65,
w kodach ASCII jest to "A". itd.
jak wiesz jak sobie z tym poradzic to prosze o pomoc.
chodzi o to jak przekonwertowac to cos.
- dane wejsciowe String bitowy (z danymi 0,1)
- wypisanie znaku na ekran

dane wejsciowe: 01000001
dane wyjsciowe: A

Dzieki za pomoc.
moj adres Email. tomekg@poczta.onet.pl
albo e0025@stud3.tuwien.ac.at

odwdziecze sie za pomoc

Użytkownik <tomekg@poczta.onet.plnapisał:

mam lancuch znakowy ze znakami bitowymi i nie wiem jak zamienic je na znaki
ASCII.


Przerób swój String na int za pomocą statycznej metody Integer.parseInt(String
s,int radix), a potem normalnie zrzutuj int na char albo byte.

Pozdrawiam
Schparaq

Mam pytanko. W jaki sposob w JAVIE wyswietlic znaki ASCII z zakresu od 127
do 256?
Potrzbuje ciag liczb z przedzialu 100-255 zamienic na znaki ASCII i zapisac
do pliku tekstowego.
Jesli ktos wie jak to zrobic, bardzo prosze o pomoc.

Zapisujac do pliku tekstowego wynik rzutowania typu:
int liczba;
znak=(char)liczba;
dla znakow powyzej 127 otrzymuje sam "kwadraty"

Za pomoc z gory dziekuje

Yoshi

Mam pytanko. W jaki sposob w JAVIE wyswietlic znaki ASCII z zakresu od 127
do 256?
Potrzbuje ciag liczb z przedzialu 100-255 zamienic na znaki ASCII i
zapisac
do pliku tekstowego.
Jesli ktos wie jak to zrobic, bardzo prosze o pomoc.

Zapisujac do pliku tekstowego wynik rzutowania typu:
int liczba;
znak=(char)liczba;
dla znakow powyzej 127 otrzymuje sam "kwadraty"


Kwadraty to raczej nie jest problem rzutowania, tylko programu w którym tak
utworzony plik przeglądasz. Część programów po prostu kiedy napotyka
niezrozumiały dla siebie znak wyświetla kwadrat.

Ja bym jeszcze zobaczył ten plik, np. hiew'em, czy tam na pewno są
odpowiednie wartości.

pa!
staff

jeszce raz dzieki postaram sie dostosowac do twoich wskazowek jezeli chodzi o
estetyke pracy, jak tylko pozostanie mi troche czasu na skonczenie pracy.
pozdro:)

Panowie natknalem sie na pewien problem
Wykorzystujac metode Runtime.exec(...) uruchamiam
zawnetrzny programik do ktorego potem przesylam dane (nacisniete
klawisze) na standardowe wejscie
- Proces.getOutputStream().write(int)
no i tu sie zaczynaja schody
udaje mi sie przeslac pojedyncze znaki ascii, o kodzie do 127(zwykle
literki)
ale nie wiem jak wyslac kod klawisza np "strzlka w lewo" itp
Wiem ze te klawisze sa kodowa troche inaczej, najpierw 0 a potem
odpowiedni kod ... tak przynajmniej bylo w TP :))
Kombinowalem z tablica bajtów {0, "odpowiedni kod"}, zdebugowalem
programik i potem wrzucalem
jako int'a to co niby dostawal ale tez nic nie pomoglo.

Macie moze jakis pomysl?

PS.  JDK 1.31 Blackdow, Linux

Pozdrawiam
con@agsmedia.pl

Konrad wrote:
Witam

Panowie natknalem sie na pewien problem
Wykorzystujac metode Runtime.exec(...) uruchamiam
zawnetrzny programik do ktorego potem przesylam dane (nacisniete
klawisze) na standardowe wejscie
- Proces.getOutputStream().write(int)
no i tu sie zaczynaja schody
udaje mi sie przeslac pojedyncze znaki ascii, o kodzie do 127(zwykle
literki)
ale nie wiem jak wyslac kod klawisza np "strzlka w lewo" itp
Wiem ze te klawisze sa kodowa troche inaczej, najpierw 0 a potem
odpowiedni kod ... tak przynajmniej bylo w TP :))
Kombinowalem z tablica bajtów {0, "odpowiedni kod"}, zdebugowalem
programik i potem wrzucalem
jako int'a to co niby dostawal ale tez nic nie pomoglo.

Macie moze jakis pomysl?

PS.  JDK 1.31 Blackdow, Linux

Pozdrawiam
con@agsmedia.pl


juz znalazlem rozwiazanie :)
dzieki

Dzięki za pomoc

Niedawno zacząłem swoją przygodę z JAVA i mam pytanko apropos "konwersji",
w aplikacji mam cztery JTextField'y do pierwszego wpisuje jakiś tekst np
"abc" w pozostałych trzech chciałbym otrzymać znaki ASCII (i/lub unicod'y)
w
wartościach dziesiętnych, hexadecymalnych, binarnych.


musisz wyciagnac po jednym znaku i skonwertowac na string jego wartosc i te
otrzymane stringi dodac do siebie
a robisz to w DocumentListenerze tego pierwszego textFielda

Pozdrawiam Paweł

Witam Wszystkich,
Niedawno zacząłem swoją przygodę z JAVA i mam pytanko apropos "konwersji",
w aplikacji mam cztery JTextField'y do pierwszego wpisuje jakiś tekst np
"abc" w pozostałych trzech chciałbym otrzymać znaki ASCII (i/lub unicod'y)
w wartościach dziesiętnych, hexadecymalnych, binarnych.

Dzięki za pomoc

Brzezi napisał(a):
| najpierw zdefiniuj "mail w pliku", zdajesz sobie sprawe ze formatow
| zapisow
| jest conajmniej kilka od strony serverowej?, a do tego kazdy program
| mailowy ma swoj format zapisu bazy maili...
mail z pliku, to wg. mnie ciąg znaków ASCII zdefiniowany w RFC odnośnie
wiadomości pocztowej :),
czyli najpierw kilka linijek definiujących nagłówki, potem linia pusta,
potem kilka linijek definiujących "treśc" maila.
bez żadnych mboxów, indeksów, kompresji itp.


Tyle tylko, że rfc bodajże opisuje format maila do transmisji pomiędzy
serwerami, nie zaś do zapisu na dysku. To, jak mail wygląda na dysku jest
zależne od konkretnego serwera pocztowego.

Pozdrawiam,

Leonard

On 2004-07-29 13:08, lukes wrote:
| juz kilka razy zdarzylo mi sie ze JVM (1.4.2-04 sun'a)
| wywalila sie, za kazdym razem w tym samym miejscu,
| przy rozpakowywaniu ZIP'a.

Czy w tym zipie są pliki z polskimi literkami?

pozdrawiam
ms


nie, same zwykle znaki ascii,
krotkie nazwy plikow.

oto moj kod

SecureRandom r = new SecureRandom();
byte [] tab = new byte[10];
r.nextBytes(tab);

jak teraz zamienic to tablice na np String aby mozna bylo to wypisac?

jak robie :
System.out.println(tab);
to dostaje [B@15d56d5 ale to nie to a jak robie to tak:

for (int i = 0; i < 10; i++)
    System.out.println(tab[i]);
to dostaje jakies numery a jak zmieniem je na char to nic z tego.
please heeelp

for (int i = 0; i < 10; i++)
   System.out.println(tab[i]);
to dostaje jakies numery a jak zmieniem je na char to nic z tego.
please heeelp


Klasa String bedzie Twoim przyjacielem.
Poza tym pamietaj, ze ten Twoj random zwraca rowniez znaki, ktore nie sa
alfanumeryczne, wiec powinienes jakos ograniczyc zakres losowania.

Pozdrawiam.

| A konkretnie, to jakie bledy dostrzegles w tym kodzie:
| http://www.onicos.com/staff/iz/amuse/javascript/expert/base64.txt

gubi polskie znaki


Ach, wiec jedynym (twoim) problemem jest fakt, ze algorytm nie koduje
zadnych znakow spoza 64 (jak sama nazwa wskazuje) znakow ASCII ?

No to spoko, bo juz sie wystraszylem, ze tam faktycznie jest jakis blad ;)

"Bogdan Blaszczak" <bla@UsuN-AntyspaMpoczta.wprost.plwrote in message

arte@o2.pl napisał(a):

| A konkretnie, to jakie bledy dostrzegles w tym kodzie:
| http://www.onicos.com/staff/iz/amuse/javascript/expert/base64.txt

| gubi polskie znaki

Ach, wiec jedynym (twoim) problemem jest fakt, ze algorytm nie koduje
zadnych znakow spoza 64 (jak sama nazwa wskazuje) znakow ASCII ?


Ooops! Nie pokręciłeś czegoś?

artur

No to spoko, bo juz sie wystraszylem, ze tam faktycznie jest jakis blad ;)

--
BlaTek

...

| zadnych znakow spoza 64 (jak sama nazwa wskazuje) znakow ASCII ?

Ooops! Nie pokręciłeś czegoś?


Moglem cos pokrecic. Nie mam tu zadnych wiekszych doswiadczen.
Sprawa jest bardzo prosta. Po prostu w swoim czasie uzylem kilka razy
kodu japonczyka. A poniewaz Metal wyrazil watpliwosci co do tego kodu,
wiec troche sie wystraszylem.
Jednak w moim przypadku, nie bylo mowy o zadnych znakach diakrytycznych,
wiec kamien spadl mi z serca... i to wszystko. Wiecej nie moge tutaj
pomoc. Sorry za zamieszanie.

witam
Jak najprosciej zakodowac przy uzyciu dwoch porocedur zawartosc pliku?Czy
musze uzywac pomocniczego pliku?
Myslalem,nad zamiana kazdego znaku na kd ascii ,dodanie do niego np.8 i
znow
zamienic na znaki.

Pozdrawiam
Jacek


mozesz napisac krotkie szyfrowanie symetryczne:
(jak?)
a b c d ... z    | kody ascii wykrozystaj zeby przyporzadkowac znak -
liczby
0 1 2 3 ..   25
losujemy dwie liczby in N     0<a<zakres (duzy!);
                    0=<b<zakres
taki, ze NWD(a,256)=1;  (256- wszystkie znaki ascii zlapiesz);

kluczem symetrycznym jest para (a,b) uporzadkowana.
funkcja szyfrujaca jest F(x)=(ax+b) mod 256

poniewaz nwd(a,256)=1 wiec istnieje dokladnie jedna liczba 0<a' <256 taka
za a*a'==(przytaje) 1 mod 256 (czyli a' to 1/a w mod256)

funkcja deszyfrujaca  G(x)=a' (*x-b)mod 256

przyklad
m  a  m a
12,0,12,0
f(x)=(3*x+1)mod26   (nwd(3,26)=1)
f(12)=37 == 11mod26
f(0)=1 == 1mod 26   tzn r(1/26)=1;
11,1,11,1
l ,b,l,b
deszyfrowanie
g(x)=9*(x-1))mod26
g(11)=90==12mod26
g(1)=0
12,0,12,0
m,a,m,a
-----------------
funkcja szyfrujaca moze wygladac tak:

function symenc(a,b:longint;x:char):char;

begin
 symenc:=chr( ( a*ord(x)+b ) mod Z_n );

end;
podobnie deszyfrujaca
pzdr

function DownCaseChar(ch:char):char;
var b:byte absolute ch;
begin
  if ch in ('A'..'Z') then result:=char(b+32) else reult:=ch;
end;


doh... a gdzie polskie litery?
Najlepiej stworzyć tablicę lowcase[#0..#255] zawierającą kolejne znaki ASCII
(tylko zamiast dużych liter są same małe) i bez problemu

mala:=lowcase[duza];

| function DownCaseChar(ch:char):char;
| var b:byte absolute ch;
| begin
|   if ch in ('A'..'Z') then result:=char(b+32) else reult:=ch;
| end;

doh... a gdzie polskie litery?
Najlepiej stworzyć tablicę lowcase[#0..#255] zawierającą kolejne znaki ASCII
(tylko zamiast dużych liter są same małe) i bez problemu

mala:=lowcase[duza];


dobre podejscie !!!
zasadniczo to macie racjie -- ale w ostatecznosci to nie macie calkiem racji .
ale na dzien dobry muial bys rzpracowac z przynajmniej 2 standarty zapisu
polskich liter ( a jest ich z 4-6 tych najpopularniejszych ) .

moje rozwiazania nie maja polskich liter w asci -- bo w standarcie asci nie ma
polskich liter .

jak juz rozpracowac to zagadnienie  Unikode .

Witam ponownie.
Poniższy tekst został zakodowany wg schematu znak xor znak_klucza.


Jako przyglądający się syzyfowym wysiłkom innych zapytam: czy wstawiając
tekst do treści wiadomości jesteś pewien, że sposób jej kodowania nie wpływa
na jego postać, np.:

 "#i?.$7=mm"!"+1p8!.`.68


widać tutaj prostokącik - jaki to znak ASCII ???
Należy także pamiętać, że np. wklejanie przez schowek także dokonuje
momentami niejawnych konswersji (np. miedzy oknem MS-Dos i aplikacjami
Windowsowymi).

PaSkol wrote:

| Witam ponownie.
| Poniższy tekst został zakodowany wg schematu znak xor znak_klucza.

Jako przyglądający się syzyfowym wysiłkom innych zapytam: czy wstawiając
tekst do treści wiadomości jesteś pewien, że sposób jej kodowania nie wpływa
na jego postać, np.:
widać tutaj prostokącik - jaki to znak ASCII ???
Należy także pamiętać, że np. wklejanie przez schowek także dokonuje
momentami niejawnych konswersji (np. miedzy oknem MS-Dos i aplikacjami
Windowsowymi).


No cóż... Jako rzetelny "programista" wiedziałem, że mogą być z tym
problemy... Dlatego każdy tekst po skopiowaniu do maila, przechodzi
potem odwrotną drogę: z edytorka w programie jest on poddawany zapisowi
jako nowy plik, który zostaje "nareperowany" i poddany deszyfracji w
wyniku czego we wszystkich zamieszczonych mailach otrzymaliście 100%
zgodny z "oryginałem" tekst...

Niestety, MIME zrobiło swoje :(((
Patrz post Przepraszam... :(((

var
  c : char;
begin
  for c := ' ' to '~' do
  write (ord (c), c)
end.

nie wyświetla całej listy numerów i odpowidajżcych im znaków ASCII tak jak
mu nakazuje pętla, tylko wyrzuca write dla ostatniego znaku czyli dla ~.
Czegoś musi brakować ale czego.
Siemasz

hej,
przepraszam za lamerskie pytanie, ale nie rozumiem czemu program:

var
  c : char;
begin
  for c := ' ' to '~' do
  write (ord (c), c)
end.

nie wyświetla całej listy numerów i odpowidajżcych im znaków ASCII tak jak
mu nakazuje pętla, tylko wyrzuca write dla ostatniego znaku czyli dla ~.
Czegoś musi brakować ale czego.
Siemasz

--
Wysłano z serwisu Usenet w portalu Gazeta.pl -


http://www.gazeta.pl/usenet/

Sprawdź czy po do nie dałeś średnika

Tadek

pozdro Matek.

hej,
przepraszam za lamerskie pytanie, ale nie rozumiem czemu program:

var
  c : char;
begin
  for c := ' ' to '~' do
  write (ord (c), c)
end.

nie wyświetla całej listy numerów i odpowidajżcych im znaków ASCII tak jak
mu nakazuje pętla, tylko wyrzuca write dla ostatniego znaku czyli dla ~.
Czegoś musi brakować ale czego.
Siemasz

--
Wysłano z serwisu Usenet w portalu Gazeta.pl -


http://www.gazeta.pl/usenet/

hej,
przepraszam za lamerskie pytanie, ale nie rozumiem czemu program:

var
  c : char;
begin
  for c := ' ' to '~' do
  write (ord (c), c)
end.

nie wyświetla całej listy numerów i odpowidajżcych im znaków ASCII tak jak
mu nakazuje pętla, tylko wyrzuca write dla ostatniego znaku czyli dla ~.
Czegoś musi brakować ale czego.
Siemasz

--
Wysłano z serwisu Usenet w portalu Gazeta.pl -http://www.gazeta.pl/usenet/


dzieki za powyższe rady, zastanawiam sie jeszcze jak by to było gdybym
zamiast znaków for określil liczbami i zamienił ord na chr, ciekawe czy dało
by to efekt (podziekowania dla autora tego pomysłu starosty grupy zPJWSTK). Z
drugiej strony może Pascal wyświetla liste ale ja nie umiem się posługiwać
ekranem użytkownika - może ktoś wie jak go przesunąć do góry żeby obejrzeć
listę?
Siemasz

• znaki drogowe Stop
• Znaki z ODIAKU
• Znaki chemiczne
• znaki ekologiczne
• Znaki ewakuacyjne
• znaki na metce
• znaki pieniężne
• znaki zastrzeżone
• znani malarze i ich dzieła
• zdjęcia małp
• zanotowane.pl
• doc.pisz.pl
• pdf.pisz.pl
• morebeer.opx.pl

	znaki ASCII	Wy�wietlono wypowiedzi znalezione dla frazy: znaki ASCII