Toon posts:

[delphi] http reques sturen

Pagina: 1

Acties:

41 views sinds 30-01-2008
Reageer

zaterdag 22 december 2001 21:03

Acties:

THIJZEL

Topicstarter

goedendag,

ik ben met delphi ff een proggie aan het maken om een http request te sturen naar me server, ik doet dit door een clientsocket te laten connecten op poort 80 van me server en dan met clientsocket.socket.sendtext(string) de http request te sturen. alleen ik weeet niet wat ik in die string moet zetten.. en moet ik nog een crlft(enter) meesturen? weet iemand dat?
ik heb nu dit:

code:

1	clientsocket1.Socket.SendText(memo2.lines.text);

maar wat moet ik dusin memo 2 zetten??

zaterdag 22 december 2001 21:05

Acties:

HielkeJ

1X niet genoeg??

zaterdag 22 december 2001 21:07

Acties:

wasigh

wasigh.blogspot.com

bekijk de HTTP RFC?

zaterdag 22 december 2001 21:08

Acties:

marcusk

http://www1.ics.uci.edu/pub/ietf/http/rfc1945.html

daar staat het allemaal (http 1.0 iig)

voorbeeld:

code:

1 2	GET /index.html HTTP/1.0(enter) (enter)

zaterdag 22 december 2001 21:09

Acties:

THIJZEL

Topicstarter

Op zaterdag 22 december 2001 21:08 schreef marcusk het volgende:
http://www1.ics.uci.edu/pub/ietf/http/rfc1945.html

daar staat het allemaal (http 1.0 iig)

voorbeeld:
code:
1
2
GET /index.html HTTP/1.0(enter)
(enter)

die enter kan ik die met een '/r/n' doen?

zaterdag 22 december 2001 21:13

Acties:

marcusk

\r\n ja

zaterdag 22 december 2001 21:22

Acties:

THIJZEL

Topicstarter

als ik met clientscoket1.socket.sentext(text);

GET /index.html HTTP/1.0\r\n

krijg ik geen reactie

zaterdag 22 december 2001 21:23

Acties:

marcusk

er moeten ook twee keer "\r\n" achter.

zaterdag 22 december 2001 21:37

Acties:

THIJZEL

Topicstarter

hieronder me source, het is een apache 1.3.20 server op een redhat bakkie.

in edit2.text staat nu 'GET /insert.php HTTP/1.0\r\n\r\n'

wat is er verkeerd?, ik krijg geen reactie.. ik krijg alleen een reactie als ik er 1000 stuur dan zegt hij:

HTTP/1.1 414 Request-URI Too Large
Date: Sat, 22 Dec 2001 21:34:37 GMT
Server: Apache/1.3.20 (Unix) PHP/4.0.6
Connection: close
Content-Type: text/html; charset=iso-8859-1

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<HTML><HEAD>
<TITLE>414 Request-URI Too Large</TITLE>
</HEAD><BODY>
<H1>Request-URI Too Large</H1>
The requested URL's length exceeds the capacity
limit for this server.<P>
request failed: URI too long<P>
<HR>
<ADDRESS>Apache/1.3.20 Server at 127.0.0.1 Port 80</ADDRESS>
</BODY></HTML>

code:

procedure TForm1.Button1Click(Sender: TObject);
begin
clientsocket1.Host := edit1.text;
clientsocket1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for  i:=1 to strtoint(edit3.text) do
clientsocket1.Socket.SendText(edit2.text);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
memo1.lines.add(clientsocket1.socket.receivetext)
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
memo1.clear;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if clientsocket1.Active = true then
statusbar1.simpletext:= 'connected'
else
statusbar1.simpletext:= 'disconnected';
end;

zaterdag 22 december 2001 21:40

Acties:

marcusk

misschien werkt \r\n niet in delphi? probeer eens met #10#13 (of was het nou #13#10?)

zaterdag 22 december 2001 21:41

Acties:

THIJZEL

Topicstarter

de bedoeling van dit proggie is dus om te kijken hoe me servertje er op reageert als ik ineens superveel request vraag van een php pagina die iets uit een mysql db haalt.

zaterdag 22 december 2001 21:41

Acties:

THIJZEL

Topicstarter

Op zaterdag 22 december 2001 21:40 schreef marcusk het volgende:
misschien werkt \r\n niet in delphi? probeer eens met #10#13 (of was het nou #13#10?)

heeft toch niks met delphi te maken, ik stuur het toch als string mee?? dit gaat toch over me server?

zaterdag 22 december 2001 21:44

Acties:

wasigh

wasigh.blogspot.com

je moet een linebreak sturen, en dus moet je wel weten wat een linebreak in delphi is

zaterdag 22 december 2001 21:45

Acties:

THIJZEL

Topicstarter

Op zaterdag 22 december 2001 21:44 schreef wasigh het volgende:
je moet een linebreak sturen, en dus moet je wel weten wat een linebreak in delphi is

ja das je moet toch een character return line break sturen

das toch wel #10#13

clientsocket1.Socket.SendText(edit2.text+#10#13);

zoiets?

zaterdag 22 december 2001 23:59

Acties:

_JGC_

Ik ben zelf eens aan het knutselen geweest met Delphi en gebruikte het NMHTTP component van Delphi 6.

zondag 23 december 2001 00:18

Acties:

kvdveer

Z.O.Z.

als je het uit een memo haalt, moet je in je memo dus twee enters geven!

en ehm:

(LEES DE HTTP RFC) == (RTFM).

dus bij deze.

Localhost, sweet localhost

zondag 23 december 2001 02:35

Acties:

jelmervos

Simple user

Voordat je de hele RFC gaat doorwerken: er zijn mensen je voor geweest en hebben het in een Delphi component gegoten, zie Indy (zit standaard bij Delphi 6 Enterprise): http://www.nevrona.com/Indy/

"The shell stopped unexpectedly and Explorer.exe was restarted."

zondag 23 december 2001 12:04

Acties:

kvdveer

Z.O.Z.

Als we dan toch bezig zijn met standaardcomponentjes gaan gooien, Ik heb veel gedaan met ICS http://overbyte.alexid.fr/frame_index.html

Die wordt ok het meest gebruikt gebruikt, omdat de Netmaster compontentjes in D5 noggal buggy waren.

Localhost, sweet localhost

Pagina: 1

Reageer