otwieranie strony

[sebik90]

Po 4 dniach prob i szukania w google nadzedl czas aby spytac sie tutaj
Jak napisac takie cos (na komponecie gglite) :
Z gg wysylam wiadomosc : http://www.o2.pl do serwera i on otwiera strone z o2.

Probowalem to robic tak ze tekst z memo przypisywalem do 's' , i potem program mial szukac czy w 's' znajdyje sie 'http://'.Ale nie chcialo dzialac.


:help:

 

[Serfer@]

Dajesz do sekcji uses „shellapi”
A potem:

If wiadomosc='http://www.o2.pl' then begin
ShellExecute(GetDesktopWindow(), 'open', PChar(wiadomosc), nil, nil, SW_SHOWNORMAL);
End;

 

[Dark Smark]

Mu chyba chodziło o coś innego:
Możesz za pomocą "pos" sprawdzić piersze litery...
Gdzieś tam:
http://www.haker.com.pl/forum/viewtopic.ph...p;highlight=pos

Kolejne bardzo przydatne polecenie to Pos. Otóż umożliwia ono przeszukiwanie określonego ciągu znaków w jakiejś zmiennej tekstowej. Przykładowo chciałbyś w jakiejś zmiennej odnaleźć spacje.

var
S : String;
begin
S := 'Tekst zawierający spacje';
if Pos(' ', S) > 0 then
ShowMessage('W zmiennej znajdują się spacje...');


W poleceniu Pos pierwszym parametrem jest szukany znak, a drugim źródło poszukiwań, czyli jak w naszym przykładzie zmienna "S". W powyższym przykładze program poszukuje spacji w zmiennej. Jeżeli znajdzie więcej niż 0 to wyświetla komunikat.
Polecenie Pos używa się często w połączeniu z innymi - pokażemy to dalej...

Kolejne polecenie służy do usuwania określonego ciągu znaków ze zmiennej. Jest to polecenie Delete. Pierwszym jej parametrem jest zmienna, której dotyczyć będzie operacja, drugim od jakiego miejsca w zmiennej będzie dotyczyć usuwania, a ostatni parametr to ilość znaków do usunięcia:

var
S : String;
begin
S := 'Adres strony: http://4programmers.net';
Delete(S, 1, 21);

ShowMessage(s);


Powyższa procedura wyświetli jedynie napis 4programmers.net [ bez http:// ]. Gdy już wiesz o co chodzi w poleceniu Delete oraz Pos można napisać procedurę usuwającą wszystkie spacje w zmiennej:[/b]

Wszystko wymaga edycji

//Możesz żę ktoś wysyłą strona www.haker.com.pl/forum
Server sprawdza czy pierze 6 liter to "strona" jeżeli tak to ucina 7 liter (piersze) i otwiera reszte

 

[sebik90]

Te www.o2.pl to byl przyklad. To ma dzialac takze jezeli do serwera przyjdzie wiadomosc rozpoczynajaca sie 'http://' to wtedy otworz strone (tom co jest w adresie).

Czyli wysylam http://www.o2.pl (lub adres innej strony) i wtedy sie otwiera.

 

[Dark Smark]

Originally posted by sebik90
Te www.o2.pl to byl przyklad. To ma dzialac takze jezeli do serwera przyjdzie wiadomosc rozpoczynajaca sie 'http://' to wtedy otworz strone (tom co jest w adresie).

Czyli wysylam http://www.o2.pl (lub adres innej strony) i wtedy sie otwiera.

No to przeczytaj o tych łańcuchach i najpierw "server" odbierze wiadomość sprawdzając czy piersze 7 liter to "http://"' jak tak to utnie piersze 7 i otworzy z reszy (np: będzie to robił w edit)

 

[sebik90]

przeczytalem to od razu jak dales mi link (4 dni temu) i nawet to umie napisac

if pos('http://', s) = 1 then

tylko ze to wyszukuje w calym tekscie tego "http://"
a ja z ciekawosci chcialbym jeszcze wiedziec jak zrobic zeby sprawdzal znaki od 1 do 7 i wtedy jezeli beda rowne "http://" to zeby program wykonal costam.

 

[lajzowski2]

Chyba chodzi ci o to: ;]

{jeżeli pierwsze 7 liter jest równe "http://" to wtedy:}

if copy(msgbody,0,7)='http://' then begin



ShellExecute(Handle, 'open', Pchar(msgbody), nil, nil, SW_SHOWNORMAL);

end;

// Jeżeli pomogłem to wiesz co robic :faja: