Hali Coderek!

Koszonom az eddigi segitsegeteket - nagyon hasznos
volt! Lenne egy ujabb problemam ( ;-))) ):
Delphi 4-ben kellene a soros port kezeleset megoldanom.
Sikerult hozza kulonbozo komponenseket szerezni amikben
ez mar meg van oldva - de valahogyan nem az igazi. Szoval
amire szuksegem lenne:
- ellenorizni, hogy a portot lefoglalja-e valami
- port inizializalasa
- port beallitasai
- I/O muveletek (karakter kuldese es fogadasa)

Minden megoldas erdekel!

Thanx!

-= ShockWave =-

Hello Arpad & Mindenki!

>Tudja valaki, hogyan lehet Win95 alol a HDD-n levo particiokat elerni?

pl. igy (NT-n kiprobaltam, de szerintem Win95-on is mennie kell):

#include <windows.h>

int main(void)
{
  HANDLE h1,h2;
  char Buffer[512];
  DWORD BytesRead,BytesWrite;

  if(
    INVALID_HANDLE_VALUE != (h1=CreateFile("\\\\.\\PHYSICALDRIVE0",
      GENERIC_READ,FILE_SHARE_WRITE,NULL,OPEN_EXISTING,0,NULL))
    && INVALID_HANDLE_VALUE != (h2=CreateFile("partrec.dat",
      GENERIC_WRITE,0,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL))
    && ReadFile(h1,&Buffer,512,&BytesRead,NULL)
    && (BytesRead==512)
    && WriteFile(h2,&Buffer,BytesRead,&BytesWrite,NULL)
    && (BytesWrite==512)
  ) return 0;
  WriteFile(GetStdHandle(STD_OUTPUT_HANDLE),"Hiba!",5,&BytesWrite,NULL);

  return 1;
};

Udv
Mihaly Zoltan

Sziasztok !

Irt mar valaki perl 4-ben eljarasokat is hivo progit ?
Nekem valamiert szintaktikai hibat jelez ugyanaz a
progi ami perl 5-ben mukodik.
Ez talan egy bug ? De akkor miert nem vette eszre senki ?
Vagy ha kijavitottak akkor tudja valaki hol van egy javitott valtozat ?

A segitseget elore is kosz !
	Szambi

Hi inet,"HIX CODER" >!

iC> Hogyan kell egy szamot stringge konvertalni?
> ----------------------------------------------------------
function num2str(a:longint):string;
var b:string;
;
> ----------------------------------------------------------
tessek, lassek.... tovabbi yo kodolast mindenkinek.... Mc

Hi inet,"HIX CODER" >!

iC> van egy bejovo szovegfajl, a sorait sorkizartta kell tenni,majd kiirni egy
iC> masik szovegfajlba!
> ------------------------------------------------------------------------
uses dos,crt;

function repairLine(a:string):string;
var i:byte;
.
> ------------------------------------------------------------------------
tessek, lassek.... tovabbi yo kodolast mindenkinek.... Mc

Sziasztok, 

Olyan emberkek segitseget kerem, akik foglalkoznak Access
alkalmazas fejlesztesevel. 

Nehany megoldando problema:

1) Egy jelentes oszlopokat tartalmaz, az egyes oszlopokba az aktualis
adattol fuggo karaktert kell kitenni, esetleg mas oszlopba. Ehhez gondolom
VB kod kell...

2) Ha egy urlapon egy 'uj bejegyzes' parancsgombra kattintok, akkor a
letezo rekordokat megvizsgalva felkinaljon egy ujat, egyedi
azonositoszamot generalva...

>Egyszeruen nem ertem, hogy miert mondja azt, hogy a fajlbol
>nem tud olvasni tipuselteres miatt (Incompatible types)
>
>type
>  datrec = record
>    sorszam: integer;
>    filmek: array[1..15] of String[50];
>    tipus: String[20];
>  end;
>
>var
>  Form1: TForm1;
>  f: file of datrec;
>  adat: datrec;
>
>procedure TForm1.FormCreate(Sender: TObject);
>var i: integer;
>begin
>  adat.sorszam:=0;
>  for i:=1 to 15 do adat.filmek[i]:='';
>  adat.tipus:='';
>  assignfile(f,'adatok.dat');
>  reset(f);
>  while (not eof(f)) do
>  begin
>    readln(f,adat); {itt mondja azt, hogy incompatible types}
>    edit2.text:=adat.tipus;
>    edit3.text:=adat.filmek[1];
>    edit4.text:=adat.filmek[2];
>    edit5.text:=adat.filmek[3];
>  end;
>  closefile(f);
>end;
A file nem text file .
Probald sima Read(f,adad)-al .

Gandalf

Hi!

Mint koztudott :-), VB-ben a DataList elemmel egy adattabla egy mezojenek
adatai kozul valaszthatunk. De mi van akkor, ha en mar az ugyfel
kattintasa elott szeretnek a programmal valasztani egyet. Egy kicsit
maskepp fogalmazva, hogyan tudok az ugyfel helyett en valasztani a
DataList-bol.

A valaszokat maganban is leci.

Kosz:
<gREg>

On Sat, Sep 11, 1999 at 02:04:13PM +0000,  wrote:
>   a filelength() fuggvény visszaadja a file meretét. Vigyazz, nem FILE
>   *-ot, hanem handle-t var parameterkent, amit a fileno() fuggvénnyel
>   tudsz "konvertalni".

esetleg stat/fstat

:-* :\n_tgz\n-- \nPremature... de ugyis tudjatok. <-- ez egy 0soros .sig

On Sat, Sep 11, 1999 at 01:02:14PM +0000,  wrote:
> Hogyan kell egy szamot stringge konvertalni?

Str() fuggveny, ha jol emlexem. Figyu, van egy magyar Norton
Guide helpem TP5-hoz, ha szeretned, dobj csak meg egy email-lel

:-* :\n_tgz\n-- \nPremature... de ugyis tudjatok. <-- ez egy 0soros .sig

>Megoldast keresek arra , hogy megtalaljak egy file-t.
>Semmi egyebb nincs meg csak annyi , hogy mi a file neve .
>Delphiben kene a megoldas
>A FindFirst FindFile fugvenyek pont nem ernek semmit, mivel , konyvtarat
>kell megadni.
Nezd csak meg alaposabban a FindFirst-ot a helpben - van ott egy faDirectory
nevu attributum is... (De ez mondjuk benne is van az faAnyFile-ban, szoval
ha azt adod meg akkor a konyvtarakat - is - megkapod...)

Ja, es a FindClose()-t se felejtsd le a vegen...

Gabor

Sziasztok!

Lehet, hogy hulyesseg, de sajnos nem talalom a hibat:

Amikor egy ODBC32 driver-rel halozaton levo adatbazisbol Query-vel szeretnek
lekerdezni, csak akkor megy, ha az SQL-t egy - azaz 1 - sorba irom. A
ketsorosnal azt mondja, hogy "Key violation. Illegal character detected"
(gondolom a chr(13)). Az az erdekes, hogy ha barmilyen lokalis tablabol
valogatok, akkor jo! Nagyon jol jonne a segitseg, elore is koszonom!!!

A masik:
Egy MDI Application-ben, ahogy not a program, sorra definialtam uj formokat
az MDIChildbol szarmaztatva. Ezeket a formokat csak futas idoben hoztam
letre es a Create utan hasznaltam az OnActivate esemenyt. Egyszer csak
eszembe jutott valami es megmodositottam az MDIChild-ot. Nem tudom, mit
csinaltam vele, de azoknal az uj formoknal, amelyeket ezutan hoztam letre az
On Activate nem fut le a Create utan (a regieknel lefut, egy programon
belul). Persze, lehet, hogy nem is az MDIChild az oka. Latszolag minden form
egyforma. Hat ennyi. Tudja-e valaki, hogy mi a banat van vele. Nagyon
szomoru vagyok, de a hibat sehogy sem talalom. Minden ertekes eszrevetekert
sok koszonet mindenkinek.

Sziasztok,
Salamon Sándor

On 12 Sep 99 at 7:36,  > wrote:

> Hali!

Szia. Azt hiszem, nem nekem szol a level, de azert reagalok ra, bar 
nagyreszt egyetertek veled. Csak pontositas, illetve kiegeszites...

> Bocs, matek tudasom mar megkopott a suli ota,

Bevallom, nekem is :))  16 ev hosszu ido tud lenni.

> de azt irtad az elejen, hogy m db n elemu tomb. Ha jol emlexem csak
> az tomoritheto, amiben van redundancia.

Hat, vegulis igen. Akar ugy, hogy a valoszinusegi (gyakorisagi) 
eloszlas nem egyenletes, akar ugy, hogy az esemenyek nem fuggetlenek 
egymastol:

Huffman tetele arrol szol, hogy egy ismert valoszinusegi eloszlasu
fuggetlen esemenysorozatnak mennyi az informaciotartalma, vagyis
mennyire tomoritheto. (A Shannon-Fano fele algoritmus pedig erre ad
egy majdnem optimalis megoldast.) A tomorites azon alapul, hogy a
nagyobb valoszinusegu (ill. gyakorisagu) esetekhez rovidebb, a
ritkabbakhoz hosszabb kodot rendelunk.

Huffman tetelebol bizonyithato, hogy ennel jobb tomorites nem
letezhet, mert akkor mar informaciovesztes lenne. Megis vannak a
Huffmannal (pontosabban a Shannon-Fano-nal) sokkal jobb tomorito
algoritmusok is. Ez ugy lehet, hogy a Huffman bizonyitas azon a
feltetelezesen alapul, hogy az esemenyek egymastol fuggetlenek,
vagyis pl. az n+1-edik esemeny valoszinusegi eloszlasa nem fugg az
n-ediktol. A gyakorlatban ez nagyon ritka, hisz pl. folyoszoveg
eseten massalhangzo utan valoszinubb, hogy maganhangzo jon (es
persze vannak meg eroteljesebb fuggesek is, pl. "permu" utan oriasi
valoszinuseggel "tacio" jon.)

> (A permutacios abrazolas nem tomorites, (a klasszikus ertelemben)
> hanem mas modon valo abrazolas).

Attol ez meg tomorites gyakorlati ertelemben. Mint ahogy az is 
tomorites, hogy ha egy 12 biten abrazolhato adatot 16 biten 
abrazolunk, az minden trukkozes nelkul 25%-kal tomoritheto masfele 
szamabrazolassal.

> Itt egy tombben nincs redundancia (hacsak nem mas bithosszal
> tomorited, mint amivel ertelemezed feltolteskor)

Nincs bizony. Bar, jobban belegondolva, megis csak van: hisz az is
redundancia (az esemenyek fuggoseget ertve), hogy ahogy haladunk,
valtozik a valoszinusegi eloszlasa annak, hogy milyen szam
kovetkezhet (a mar erintett szamok valoszinusege 0 lesz). Az 579-es
(mai, illetve mire megjelenik ez a cikk tegnapi) CODER-ben eppen ezt
hasznalja ki az, amit irtam.

Viszont eredetileg is azt irtam, hogy nem kell egyetlen tombre
korlatozni a dolgokat, es ha mar az egesz m*n adatot egyetlen
folyamnak tekinted, akkor mar van. Gyakorisagokat tekintve akkor
sincs, de az esemenyek fuggetlensege valoszinuleg nem all fenn.

> viszont keresztbe valoszinuleg van. Minden tomb x. elemet vedd egy
> stringnek es azt probald tomoriteni. Ez persze akkor tunik jonak ha
> m kozelit n hez, vagy m>n...

Erdekes felvetes... A gyakorisagok egyenetlen lesz (meg a
fuggetlenseg sem all fenn, bar azt hiszem, a gyakorisagra
gondoltal), ugyhogy tomoriteni tuti lehet, kerdes, hogy mennyire
hatekonyan. Mindenesetre nem tetszik benne, hogy Te is egyetlen
tombben gondolkodol, csak eppen most fuggolegesen. Szoval valoszinu
jobb eredmeny is ki tud jonni, ha nagyobb tomegu adatot probalunk 
tomoriteni kihasznalva, hogy az esemenyek valoszinu nem fuggetlenek.

(Egyebkent most eszembe jutott egy masik modszer is: Ha az eredeti 
matrixot atalakitjuk a rovidulo lista indexeire, ahogy 579-ben 
irtam, akkor mar a szamok gyakorisaga sem lesz egyforma (egy matrixon 
belul sem, meg az egesz m*n-en belul sem). Igy ezt lehet a 
Shannon-Fano-val, vagy barmi mas standard modszerrel is tomoriteni. 
Persze nem lehet tudni, hogy mennyire, de kiprobalni erdemes 
lehet...)

István
--  Istvan Marosi  --  http://www.sch.bme.hu/~marosi  --
--  Recosoft Ltd.  --  mailto:  --