SG-re írt programok

Az új szmájlik az SG-nek topicban volt szó arról, hogy kéne egy smiley browser progi.
Én csináltam egyet.

Van egy adatbázisa, amiben benne van a smiley-k neve, és url címük.
A Program kiolvassa a nevüket, és a bal oldalon található listába teszi õket.
Ha kijelülünk egy smiley-t, akkor megmutatja a jobb oldalon.
Alul van 4 gomb: 3 darab beszúrási kód generátor, ami azonnal kirakja a vágólapra a kijelölt smiley beszúrási kódját. A negyedik gomb egy adatbázis frissítõ gomb, ami már tudna frissíteni, csak még nincs meg a hely, ahol fenn lenne az adatbázis legfrisseb változata, ezért le van tiltva.

A program dbf adatbázisokat használ, egyelõre nem csináltam hozzá külön adatbásizkezelõ programot, de az 5 perc lessz, de pl. accessbõl lehet dbf-be exportálni táblákat.

Az adatbázis felépítése:
Name mezõ: A bal oldali listboxban megjelenõ név
pic mezõ: A kép url-je

Milyen címszóra keressek rá, ha ilyeneket meg akarok tanulni?

most röhögni fogtok, de ezt még phpval is simán meg tudnám oldani (gyk. nem kell külön program, hanem simán egy böngészõbe írt címmel ezsgézel, csak más címrõl.)

csak most olyan kusza a kód, hogy nemigen tudnám kiszûri belõle, jó lenne a táblázatokra vmi id vagy name tag, userid vagy névvel. 😊
😊

Amit beírtam végül is mûxik, azért ütöttem össze, így már átjut a proxyn, de a továbbfejlesztése rád vár !4 😄DD

Amúgy sokan nyomulnak vállalati proxy mögül, szal. jó dolog lesz, ha ezt is tudja...

köszi a tippet! át fogom nézni!

meg akit még bejelölünk, pl darkboy -.-

az jó lenne...

#32
htxvm

meg jó lenne vmi olyan is, ami kiszûri cicero faszságait...

blackgamer pls egy spam progit!44 😄

Az újság nagyon hasznos, a többi sem rossz éppenséggel.

Inkább bemásoltam, ez a lényege. Ha tovább akarod fejleszteni, nézz utána a wininet.pas programozásásnak...

Használata pl.:
LoadFromURL2('www.sg.hu','/forum.php','proxyuser','proxypassword','','');


procedure TForm1.LoadFromURL2(Site,Document,ProxyUser,ProxyPWD,User,PWD: string);
var
hOpenHandle, hConnectHandle, hResourceHandle:HINTERNET;
dwReserved, dwStatus: DWORD;
pStatus:pointer;
dwStatusSize😄WORD;
buf: array<0..16383> of byte;
dwBytesRead: cardinal;
st: TMemoryStream;
begin
try
hOpenHandle := InternetOpen('MSIE',
INTERNET_OPEN_TYPE_PRECONFIG,
nil, nil, 0);

try
hConnectHandle := InternetConnect(hOpenHandle,
PChar(Site),
INTERNET_INVALID_PORT_NUMBER,
nil,
nil,
INTERNET_SERVICE_HTTP,
0,0);

try
hResourceHandle := HttpOpenRequest(hConnectHandle, 'GET',
PChar(Document),
nil, nil, nil,
INTERNET_FLAG_KEEP_CONNECTION,
0);

try
HttpSendRequest(hResourceHandle, nil, 0, nil, 0);

pStatus:=addr(dwStatus);
dwStatusSize:=sizeof(dwStatus);
dwReserved:=0;

HttpQueryInfo(hResourceHandle,
HTTP_QUERY_FLAG_NUMBER or HTTP_QUERY_STATUS_CODE,
pStatus,
dwStatusSize,
dwReserved);

if dwStatus=HTTP_STATUS_PROXY_AUTH_REQ then
begin

InternetSetOption(hResourceHandle,
INTERNET_OPTION_PROXY_USERNAME,
PChar(ProxyUser),
Length(ProxyUser)+1);

InternetSetOption(hResourceHandle,
INTERNET_OPTION_PROXY_PASSWORD,
PChar(ProxyPWD),
Length(ProxyPWD)+1);

HttpSendRequest(hResourceHandle, nil, 0, nil, 0);

pStatus:=addr(dwStatus);
dwStatusSize:=sizeof(dwStatus);
dwReserved:=0;

HttpQueryInfo(hResourceHandle,
HTTP_QUERY_FLAG_NUMBER or HTTP_QUERY_STATUS_CODE,
pStatus,
dwStatusSize,
dwReserved);

end;

if dwStatus=HTTP_STATUS_DENIED then
begin

InternetSetOption(hResourceHandle,
INTERNET_OPTION_USERNAME,
PChar(User),
Length(User)+1);

InternetSetOption(hResourceHandle,
INTERNET_OPTION_PASSWORD,
PChar(PWD),
Length(PWD)+1);

HttpSendRequest(hResourceHandle, nil, 0, nil, 0);

end;

st:=TMemoryStream.Create;
try
repeat
InternetReadFile(hResourceHandle, @buf, 8192, dwBytesRead);
st.Write(buf, dwBytesRead);
until dwBytesRead = 0;
st.Position:=0;
memo1.Lines.LoadFromStream(st);
finally
st.Free;
end;

finally
end;
finally
InternetCloseHandle(hResourceHandle);
end;
finally
InternetCloseHandle(hConnectHandle);
end;
finally
InternetCloseHandle(hOpenHandle);
end;

end;

Jóak a proggik, de nem mûxenek vállalati tûzfalak és hogy mást ne mondjak HTTP Proxy mögül. Én csináltam némi módosítást rajta, van egy új LoadFromURL rutin, ami már átmegy a proxyn. Ha gondolod, el is küldöm mail-ban a procedure-t. Ha ezt beépíted (kicsit bétás), akkor többen tudják majd használni.

:o)

Anti-Cicero Protection

és ezek milyen böngészõvel mûködnek rendesen? :p

Sg Spamtool? :o)

<#taps><#taps><#taps><#taps><#taps><#taps><#taps>

Buta-e vagy figyelõ kéne téged kiszûrni.

remélem eljön az az idõ 😊

Jaaaaaa....... Értem. <#nyes>

dehogy, amikor majd bill gétsz után átveszi a májkroszoftot<#idiota>

Az SG-re írt programokból? <#wink><#nyes>

bizony

Szerintem szép dolog a programozás, és még szebb, ha valaki a szabadidejében írt programokat nagyközönség elé tárja, és ingyen megosztja velünk.
<#worship>

gumiszoba topiknyitó figyelõ kéne + gumikeresõ 😮
A legtolsó 100 hozzászólót figyelné a gumiból, userinfóból levenné h kinek hány gumitopikja van, és amikor nyílik egy topik, akkor összehasonlítaná kinek nõtt meg .

olyan progit ami feltöri az sg-t és egy csomo cicis képet rak be 😊

nem akarsz olyan programot írni, ami eltávolítja a büntetõpontokat?<#idiota>

<#eljen>

Naa!! Olyat!! ::😄dd

tékelõre gondolsz? tudok, de nem akarok <#crazya>

Spam progit nemtudsz írni? ::😄Ddd

mert 10-bõl 10 ember is ezt mondaná

köszi az elismerõ szavakat! 😊

értelem? szeretek programozni és programokat/weblapokat piszkálni, ez amolyan hobbi, gondolom másoknak más a hobbi,
nem vagyunk egyformák! <#nemtudom>

tudom puritán a kinézet, sajna design kialakításához nincs türelmem és tehetségem se
de ha esetleg lesznek újabb progik, azokba már szeretnék skin-elhetõséget beépíteni

Mert más a véleményem?

Nekem is azt kell mondjam, hogy semmi értelmét nem látom ezeknek, de a szándék a fontos 😊

áz <#eljen>

cickónak meg egy bant
plshtx

szerintem frankók a progik 😄

kicsit normalisabb kulsovel is megaldhatnad...

Jóak a progik!<#eljen>

Bocs, de ennek semmi értelme

link?

firefoxhoz a web developer toolt leszeded, és lehet egyéni css-ket húzni az oldalakra (a meglévõt átírva)

jóak a progik...
bár nem nagyon értek a programozáshoz, de lehetne egy olyat ami a designet ceréli

Sziasztok!


Gondolom nem én vagyok az egyedüli aki "életet megkönnyítõ" progikat szokot írogatni.
És mivel elkészült a harmadik SG-re szánt programom, talán aktuális lehet egy topic ahol ilyen fórumozást megkönnyítõ stuff-okról lehet beszélgetni.

Sokan talán nem is tudják, hogy sok extra funkciót/könnyebben használható kezelõfelületet/új formavilágot lehet készíteni weboldalakhoz.
Persze ezek megírása általában macerás és nyakatekert, de ha szerver oldalon nincs jól megoldva, kliens oldalon talán kivitelezhetõ.

Várok ide mindenkit, fórumozót, programozót, akit érdekel a téma.
Kinek milyen új ötlete, tapasztalata, programja van, amivel érdekesebbé, jobbá tehetjük a fórumozással töltött idõt.




Eddig megírt programjaim (több infó weboldalamon):


Linkelõ SG.hu fórumához

Ha már unod az egyenkénti linkelést SG.hu fórumába.


Kedvencekhez hozzászólás, és új topic figyelõ (újSáG)
Letöltés
Indítás gombra bökve a program percenként ellátogat az SG fórum oldalára, és hangjelzéssel és vizuálisan értesít ha új topic nyílt, vagy ha kedvenc topicjaidba új üzenet érkezett.


Aláírás cserélõ SG.hu fórumához
Letöltés
Szeretnéd kedvenc vers/dalszöveg/film idézeteidet aláírásodban autómatikusan cserélni? Ez a progi megoldja neked.