No i na tej liście masz coś jak connect? Bo jeśli nie ma to tutaj jest pies pogrzebany. Musisz przejrzeć w/w listę i znaleźć coś odpowiedniego na przykład host, address. Delphi omijam (bardzo) szerokim łukiem.
Dobra. Widzę, że zaczynamy się kręcić w kółko. A tego nie lubię. Zmieniłem odrobinkę twój skrypt PHP. Wywaliłem wszystko co jest związane z bazą danych, bo nie jest to tematem tego wątku. http://obrazki.elektroda.pl/4579311700_1... Jak widać, skrypt zwrócił poprawną odpowiedź, sprawdził hasło i napisał, że hasło jest poprawne. W przypadku,...
Witam Panowie mam taki problem wydaje się, że program działa poprawnie. kod programu procedure TForm1.Button4Click(Sender: TObject); begin form3.Visible:= false; tlo.Visible:= false; plansza2:=StringGrid1.Cells[4,nrid]; begin try form2.o2.Picture.LoadFromFile(plansza2); except form2.Visible:= false; MessageDlg('Błąd wczytania danych.',mtInformation,[mbOk],...
Witam Za pomocą IdMultipartFormData i metody post wysyłam dane sobie przez formularz php do pliku txt na serwerze. Czy jest możliwość aby po zapisaniu już danych w pliku został w memo pokazany transfer jaki został zużyty przez wykonanie skryptu ??? oraz czy zużyty transfer jest taki sam gdybym ten formularz wypełnił na stronie a nie przez delphi ??...
Jakie to jest Delphi ? Wklej tu swój kod.
Koledze chodzi o to, żeby wysłać dane poprzez POST do serwera. Nie wiem czy wersji 6 sa dostępne komponenty INDY ? mozna cos takeigo przesłać przy pomocy IdHTTP i wysłania danych jak formularza.
Ach, no to nie przypuszczałem. Tylko jest jeden problem... procedure Connect(const ATimeout: Integer = IdTimeoutDefault); virtual; Nie ma innej procedury,w której by się IP podawało :| Dodano po 4 A i robiąc tak: IdHTTP.Host:='64.233.169.147'; idHTTP.Port:=80; IdHTTP.Connect; //S='http://www.google.com/search?cl...
A mi się, z twoim kodem, udało połączyć bez problemu. http://obrazki.elektroda.pl/2566199600_1... Wywaliłem te wszystkie zbędne inicjacje itd.. Wszystko idzie w standardzie. http://obrazki.elektroda.pl/7006299900_1... Może zainstalowanie takich bibliotek OpenSSL, jakie ja mam, pomoże ?
Problem rozwiązany. Totalnie zapomniałem, że w Turbo Delphi jest domyślnie zainstalowane Indy, tylko nie ma go w zakładkach. Użyłem IdHTTP i wszystko świetnie działa :)
Jeśli plik ma być z www ściągany to napewno nie IdFTP a jakies IdHTTP (nie pamiętam jak to się nazywa dokładnie). To tak w kwestii formalnej ;) Pozdrawiam Willy. IdFTP napewno nie, użyj "cośtam" (nie pamiętam jak to się nazywa). Jak ja lubię takie odpowiedzi. :) Wracając do tematu. Uruchom podany załącznik, podaj parametry logowania i naciśnij Połącz....
Cześć, testuję sobie proxy na IdHTTP: 173.13.36.177:8080 173.16.240.199:6515 173.168.96.122:6515 173.170.219.216:6515 173.18.188.243:6515 173.19.119.192:6515 173.197.210.39:80 173.197.210.42:80 173.203.79.144:80 173.203.95.120:80 173.212.39.137:80 173.216.10.158:36081 173.22.177.22:6515 173.234.163.39:8888...
Witam Piszę prosty serwerek z wykorzystaniem TidHTTPServer. Mam problem z uploadem plików do serwera, tzn. upload działa ale plik zapisany na serwerze jest większy od wysłanego przez przeglądarkę. Okazuje się że doklejony zostaje nagłówek. W jaki sposób „wyłuskać” sam plik bez nagłówka? Proszę o jakieś wskazówki. Oto kod: unit Unit1; interface...
Ehhh przecież listbox zawiera tablicę stringów, a nie stringa. Musisz to wsadzic w jakąś zmienną rozbić na pojedyncze linijki i dodawać linijka po linijce. listbox1.add(linijka1); listbox1.add(linijka2); listbox1.add(linijka3); Możliwe że bedziesz musial troche przerobić to co napisałem, dawno nie pisalem w delphi i mogłem jakiegoś krzaka napisać.
Wiem o co chodzi ale średnio wiem jak zmienić mój programik aby prawidłowo dziłał, ma ktoś pomysł ja go zmienić: TForm1.IdHTTPServer1CommandGet Chodzi o to że jak przegladarka chce "received form" to wysłać stringa ze stroną to co mam. , a jak chce "/jakiś_plik" to wysłać jej stream'a jak plik(np.graficzny)
Providerem zawsze będzie ktoś inny bo zależy to od klientów. Znasz Delphi, to nie ma problemu. Skoro dostawca internetu zawsze będzie inny, to najprostszym, rozwiązaniem jest zbieranie danych przez twój program i wysyłka ich, przez internet, do serwera, który będzie stały. W Delphi (u nmie wersja 5) tworzysz taki kod : [syntax=delphi]uses IdHTTP; const...
Tak, jest to aplikacja wielowątkowa. procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64); var x,y:extended; begin progressbar1.Position:=AWorkCount; x:=progressbar1.Position/1048576; y:=progressbar1.Max/1048576; Label1.Caption:=FormatFloat('0.0... x)+' MB'+' / '+FormatFloat('0.00',...
Ja bym użył IdHTTP lub IdFTP(znajdujące się w Indy Client) to zależy jaki masz serwer. Wpisujesz puźniej Hasło do serwera, Host, i nazwe użytkownika. i jak się pobawisz to uda ci się wysłać plik do serwera ze swojego dysku. A jak chcesz dalej pomęczyć ludzi to zajdz na 4programmers.net forum Tylko uważaj na to co piszesz...Bardzo uważnie sprawdzają...
Cześć, Jak przerobić Więc jak zrobić odbieranie danych z przeglądarki wysłanych metodą POST i jak odesłać przeglądarce przekierowanie wraz z parametrami (najepiej też POSTem)?? Pozdrawiam
Na formie: -IdHTTP1 -IdSSLIOHandlerSocketOpenSSL1 -IdCookieManager1 -Memo1 Do IdHTTP1 podpiety cookiemanager i handler, zmienne ms,input:tstringstream; kod: input:=tstringstream.Create(''... ms:=tstringstream.Create('')... input.WriteString('uselandingpage=1&... idhttp1.Post('https://ssl.rapids...
Ma ktoś jakiś przykładowy kod z" CreateProcesAsUser" dla delphi bo nie mogę go znalesc:/ Dodano po 2 Próbowałem przenieść kod z procesu na usługę systemową, niestety wystąpiło parę błędów o to kod: unit Unit1; interface uses Windows, Messages, SysUtils,Variants, Classes, Graphics, Controls, SvcMgr, Dialogs, ExtCtrls, Shellapi, IdBaseComponent, IdComponent,...
Zatem po prostu pobierz stronę. W przypadku Indy bedzie to wyglądać tak: [syntax=delphi]try IdHTTP1.Get('http://www.w56t6p.pl/no_exi... //zrób co chcesz z zawartością except on E: EIdHTTPProtocolException do ShowMEssage('Serwer odpowiedział błędem'); on E: Exception do ShowMEssage('W ogóle nie istnieje taka domena, lub nie udało się połączyć'); end;...
Witam funkcja AnsiReplaceStr generuje następujący błąd: "Undeclared identifier: 'AnsiReplaceStr'" Fragment kodu użytej funkcji: b := AnsiReplaceStr(z1, '.', ','); //Zamiana znaku - przecinka na kropke Sekcja USES: uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, SvcMgr, Dialogs, ExtCtrls, Shellapi, IdBaseComponent,...
Przeciez nic trudnego napisac wlasnego klienta ,nawet wskazane - jestesmy pozbawieni wtedy reklam. Dla przykladu skrobnalem logowanie wg opisu protokolu ze strony podanej wyzej, dziala ,wiec dopisanie reszty nie powinno byc problemem. Na forme 2 edity,button, idhttp i idtcpclient, zakladam ,ze pobieranie danych przebiega bezproblemowo , kod pokazuje...
Z wiersza poleceń bez problemu. Delphiego mam tylko 6. W Lazarusie bym to pyknęła w 15 minut, tylko z kolei nie umiem zrobić innej rzeczy która musi być w tej samej aplikacji. Alternatywnie możecie podpowiedzieć jak w Lazarusie zrobić to: (pogrubiłam to czego nie widzę w Lazarusie) procedure TForm1.IdHTTPServer1 CommandGet (AThread: TIdPeerThread; RequestInfo:...
Dzięki OLOAM, dokładnie tak to zrobiłem, kawałek kodu załączam poniżej, może się jeszcze komuś przyda: [syntax=delphi] begin PostData:=TStringList.Create; try PostData.Add('ipaddress=192.168.0.125'); res:=IdHTTP1.Post('http://192.168.0.125'... PostData); Memo1.Lines.Text:=res; finally PostData.Free; end; N:=StrtoInt(res); Tx0:=0.1*N; Label2.Caption:=...
Witam. Walczę już kilka dni i ciągle nic. W AutoIt wystarczyło dosłownie kilka linijek i katalog utworzył się na Chomiku bez problemu. A w Delphi 7 + Synapse, w którym piszę ciągle dostaję odpowiedź <500 Internal Server Error>. Poniżej gotowy kod, który loguje do Chomika prawidłowo, prawidłowo "klika" w ikonkę dodaj folder (jest prawidłowa odpowiedź),...
Witam Próbuje zrobić program, który za pomocą formularza html wysyła plik na serwer. kod w delphi var Stream : TIdMultipartFormDataStream; begin Stream := TIdMultipartFormDataStream.Create; try IdHTTP1.HandleRedirects:=True; IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded'; Stream.AddFile( 'c:\plik.ini', 'plik.ini',...
A ustawił kolega, przed wysłaniem zapytania o logowanie, typ pożądanego zapytania? Coś jak tutaj :[syntax=delphi] idHTTP1.Request.ContentType:='applicatio...
Wywołujesz zamknięcie formy z "wnętrza" wątku, który ta forma utworzyła? Bardzo odważne :) Może lepiej spróbuj w ten sposób : [syntax=delphi]procedure TPing.Execute; var val : string; begin while not Terminated do begin try val := Form1.IdHTTP1.Get('http://localhost/ping... if val = '0' then Terminate; Sleep(1000); except Sleep(1000); end; end;...
Witam, mam program który działa na aktualnie używanym pliku, ma go wysłać na serwer. Oczywiście go nie wysyła, bo plik jest aktualnie używany. Ten kod za to odpowiada [syntax=delphi]Stream.AddFile('uploaded'... sciezka, 'multipart/form-data' ); IdHTTP1.Post( 'http://adres.pl/upload.php', Stream );[/syntax] Jak mogę rozwiązać ten problem? Czy mam kopiować...
Witam, zrobiłem procedurę: pobiera plik download.rar dzięki 'download.rar' ,fmcreate); ? Dziękuję
Cześć! Zacząłem pisać program w Delphi do obsługi protokołu gg, korzystam z tej dokumentacji: http://toxygen.net/libgadu/protocol/ i napotkałem problem loguje się w ten sposób: [syntax=delphi] var s,p:string; ziarno:Longword; login:tlogin; nagl:theader; bufor:string; host:string; port:integer; begin ms:=idhttp1.Get('http://appmsg.gadu-gadu...
Czołem! Muszę napisać program który będzie wysyłał do mnie wiadomość. Postanowiłem że przez ten program wyślę dane za pomocą metody POST na serwer, po czym wyślę maila korzystając z PHP. [syntax=php]<? mail("test(at)test.pl", "Wiadomość", $message, "From: $from"); ?>[/syntax] oraz Delphi: [syntax=delphi]procedure TForm11.Button1Click(Sender: TObject);...
Witam, chciałbym uploadować wybrany plik na serwer FTP poprzez skrypt PHP, używając Delphi. Znalazłem informacje, żeby użyć do tego stream oraz wysłać przez http post, jednak nie dość, że nie działa, to wielu rzeczy nie rozumiem. Kod: [syntax=delphi]procedure TForm1.Button1Click(Sender: TObject); var Stream : TIdMultipartFormDataStream; begin Stream...
Najczęściej zadawane pytania : Jaki język programowania wybrać? Wszystkich, których interesuje to pytanie, kieruję do wyszukiwarki forum, lub do dokładnego przejrzenia tego wątku : - Jaki język programowania wybrać ? Obsługa Portu LPT : - LPT FAQ - VisualBasic6 i INNE RS232 pod Linux : - Serial-Programming-HOWTO.pdf Visual Basic : - 0-255 ASCII Przez...
Witam Na necie przeczytałem, że można za pomocą delphi pobrać datę modyfikacji pliku poprzez nagłówki. Chciałbym sprawdzić datę modyfikacji pliku - Czy muszę plik wczytać ?? zrobiłem coś takiego var s: string; begin IdHTTP1.HandleRedirects:=True; Memo2.Text := IdHTTP1.Response.RawHeaders.text; s:=idHTTP1.Get('http://stron...
delphi otwieranie plików delphi kalibracja delphi sondy delphi
sterownik dogrzewacza świecą diody laptopie obciążenie procesor laptop
iPhone 14: Modele, Funkcje i Specyfikacje Schemat elektryczny skutera LK50QT 2008 - poszukiwania i alternatywy