HI !
Van egy kis gond a köv. perl kóddal méghozzá a while ciklusnál
de nem jöttem rá mi.Tudtok segiteni?
Köszönöm!!!
#általános infók.HTTp kérés során elküldöm a nevet és a felhasználói nevet, am
it meg kell
#keresni az adatbázisban is ha van találat akkor történik a belépés ilyenkor a
regisztrált változó TRUe értéket kap.Amit egy fálba irunk.Belepett.txt
# !/usr/bin/perl
# showenv.cgi: Az összes környezeti változó megjelenítése
#
print "Content-type: text/html\n\n";
print <<END;
<HTML>
<HEAD><TITLE>belepes</TITLE></HEAD>
<BODY>
<H1>Belepes</H1>
<FORM ACTION="$ENV{"SCRIPT_NAME"}" METHOD= "Post">
Név_ : <INPUT TYPE="text" NAME="nev">
<BR>Jelszó: <INPUT TYPE="text" NAME="jelszo">
<BR><INPUT TYPE="submit" VALUE="Elküld!"></FORM>
END
#---
read STDIN, $buffer, $ENV{"CONTENT_LENGTH"};
foreach (split /&/,$buffer)
{
my ($nev,$ertek)=split/=/;
$ertek =~ s/\+/ /g;
$ertek =~ s/%([\da-fA-F]{2})/chr(hex($1))/eg;
$keresett{$nev}=$ertek;
print $keresett{'nev'};
}
open(FAJL,"+>belepett.txt");
$belepett=0;
print FAJL $belepett;
open(FAJL2,"+<regisztralas.db");
While ($belepett eq 1)
{
$regisztralas=<FAJL2>;
print $regisztralas;
$a=$keresett{'nev'};
if ($a eq $regisztralas)
{
open(FAJL,"+>belepett.txt");
$belepett=1;
print FAJL $belepett;
print FAJL2 $keresett{nev};
}
}
else
{
print "Nincs ilyen felhasználó. Lépjen be a regisztrálás menüpontba!";
}
print <<END;
}
}
</BODY>
</HTML>
END
(webes bekuldes, a bekuldo gepe: line-138-38.dial.matav.net)
|
sziasz viktor!
> addig oke, hogy createdc-deletedc parost hasznalok...
> ...de a frissitessel mar megszenvedek. harom olyan uzenetet talaltam,
> ami szoba johet: wm_ERASEBKGND, wm_NCPAINT es wm_PAINT
WM_PAINT alatt inkább a BeginPaint(), EndPaint() párost szoktuk
használni. ( és a két DC nem kompatibilis egymással )
Ha másik alkalmazásra váltasz, akkor a WM_ACTIVATE és WM_ACTIVATEAPP
érdekesebb lehet számodra. A Spy++ segíthet, ha meg akarod tudni, hogy
mikor, milyen üzenetek érkeznek az alkalmazásodnak.
>... epp csak az eredetit nem. pedig indulaskor jol csinalta...
Amit kirajzolsz az nem tárolódik, erről magadnak kell gondoskodnod.
Pl.: van másolatod (CreateCompatibleDC()) és előszeded amikor
kell(BitBlt()). Másik lehetőség, hogy elölről kezded a rajzolást.
Üdv hS
|