A huge thanks =D
now i know how to do it
Markku Uttula wrote:
> Arthur Pires wrote:
>
>>>> is there a way to execute an httpsend.httpmethod('GET',xxxxxxxxxxxx')
>>>> with no http headers? usind tcp socket maybe?
>>>>
>>> Yes. What is HTTP protocol? it is TCP socket connection where is
>>> transferred datas by specified standard. HttpSend using
>>> TTCPBlockSocket and build headers and other formal HTTP dependecies
>>> around.
>>>
>>> So, if you want HTTP without headers, then use TTCPBlockSocket and
>>> build all by yourself. ;)
>>>
>> I don't even know how connect a tcp socket on synapse, connect method
>> appers to have no effect =X
>>
>
> Let's take an analogue from a more close-to-earth situation.
>
> You pick up a telephone and dial your friends number. He picks up the
> telephone when it rings, but neither of you speaks anything. You and your
> friend are connected, but you're not communicating before either of you
> starts talking. If this goes on for long enough, you or your friend is bound
> to get fed up and close the telephone; this is what happens when the
> connection times out. In the world of Internet, the communication is done by
> protocols. The connecting is usually easy; that's only where the problems
> start... after that you still need to see if you and the one being called to
> are even speaking the same language :)
>
> So. After you've connected, you need to start talking.
>
> Here's a bit of code I did absolutely no testing with (not even to see if it
> compiles or not - actually, I don't have Synapse on this machine I'm at at
> the moment) but hopefully it will give you a rough idea of how this is
> handled:
>
> <<CODE BEGIN>>
>
> program HttpStreamer;
>
> {$APPTYPE CONSOLE}
>
> uses
> SysUtils, blcksock, Classes;
>
> var
> bs: TTcpBlockSocket;
> s: String;
> data: TMemoryStream;
>
> begin
> bs := TTcpBlockSocket.Create;
> try
> bs.Connect('192.168.0.2','80'); // Just an example address
> WriteLn('Connected...');
> bs.SendString('GET / HTTP/1.0');
> bs.SendString(''); // Empty line meand "my talking is done"
> WriteLn('Request sent...');
> while bs.RecvString(30000) <> '' do begin { bypass headers } end;
> WriteLn('Headers received (and bypassed)...');
> WriteLn('Now, we are going to write out # for every kB we receive...');
> // That's it, those were the headers...
> data := TMemoryStream.Create;
> try
> // Now, we can start receiving data...
> while bs.Connected do
> begin
> bs.RecvStreamSize(data, 30000, 1024);
> Write('#'); // As promised, 1kB received, output # ...
> // Now we have received 1024 bytes of data, what should we do with it?
> data.Seek(0, soFromBeginning); // Just rewind it and be done with it
> :)
> // If we still happen to be connected, the loop continues...
> end;
> finally
> FreeAndNil(data);
> end;
> finally
> FreeAndNil(bs);
> end;
> end.
>
> <<CODE DONE!>>
>
> Hopefully, if I made a major blunder, someone will correct me out :)
>
>
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
