RS232 ===> web

[Milan Kratochvíl]

O ty data neprijdete, ty zustavaji do urcite delky ve fronte. Take je 
tam funkce WaitingData, ktera vraci pocet bytu cekajici v teto fronte.
Slo by to napsat tak, ze pokazde vytvorite vlakno pro funkci HTTPMethod, 
ktere se samo odstrani po provedeni prace a o takove vlakno se jiz 
nemusite starat.
Milan

Dne 9.1.2013 17:54, Admin HWnews napsal(a):
> Ale jo jiste...to jsem sem dal jen jak jsem si to zkousel...ze to 
> opravdu je celkem trivialni
>
> takze nejdriv jsem si zkousel vypsat co vrati GET (i kdyz to me v 
> podstate nezajima - zarizeni na to nema jak reagovat) a pak jsem si 
> pred to pripsal nekonecnou smycku co vypisuje radky ze seriaku
>
> jsou to dva spolu nesouvisejici kousky kodu
>
> Ve finale to samozrejme pojede cele ve smycce, kde precte radek ze 
> seriaku, rozparsuje a posle pres GET a zase kolem dokola - nejspis jen 
> ukoncene stiskem Escape misto te podminky "true"
>
> jen jeste nevim zda ta metoda HTTP.HTTPMethod umoznuje necekat na 
> odpoved a jet dal - vystupy na RS232 jsou po 1s - prinejhorsim bych to 
> musel rozepsat nejak do dvou vlaken
>
> RV
>
>
> Dne 9.1.2013 17:01, Marek Sembol napsal(a):
>> Mno pascala jsem sice nevidel uz 2 desetileti, ale rek bych, ze toto
>> je nekonecna smycka. Nebo jak se to z ni dostane?
>> Marek
>>>      //tady ctu seriak
>>>      while true do
>>>        begin
>>>          retez :=ser.Recvstring(1000);
>>>          writeln(retez);
>>>        end;
>>
>>
>>
>> 2013/1/9 RV <vicek.radek na cpost.cz>:
>>> S tou synapsi je to uplna lahudka - v podstate uz ctu se serioveho 
>>> portu
>>> (jen jsem v MCU si prehodil CR/LF - mam to obracene tak mi to neparsuje
>>> konec radek) a umim i poslat GET na URL - ted se v podstate jen 
>>> trapim v te
>>> dokumentaci - jak nejlepe to rozdelit na jednotlive casti a slozit z 
>>> toho
>>> korektni dotaz pro web.
>>>
>>> Program test;
>>>
>>> uses
>>>    synaser, httpsend, asn1util, blcksock, clamsend, dnssend, ftpsend,
>>> ftptsend, classes;
>>>
>>> var
>>>    HTTP  : THTTPSend;
>>>    ser   : TBlockSerial;
>>>    l     : tstringlist;
>>>    retez : string;
>>> begin
>>>    HTTP := THTTPSend.Create;
>>>    l := TStringList.create;
>>>    ser:=TBlockSerial.Create;
>>>    ser.Connect('COM3');
>>>    ser.Config(19200,8,'N',1,false,false);
>>>
>>>    try
>>>      //tady ctu seriak
>>>      while true do
>>>        begin
>>>          retez :=ser.Recvstring(1000);
>>>          writeln(retez);
>>>        end;
>>>
>>>      ///tady zkouska getu
>>>      if not HTTP.HTTPMethod('GET', 'URL') then
>>>        begin
>>>          writeln('ERROR');
>>>          writeln(Http.Resultcode);
>>>        end
>>>      else
>>>        begin
>>>          writeln(Http.Resultcode, ' ', Http.Resultstring);
>>>          writeln;
>>>          writeln(Http.headers.text);
>>>          writeln;
>>>          l.loadfromstream(Http.Document);
>>>          writeln(l.text);
>>>       end;
>>>
>>>    finally
>>>      ser.free;
>>>      HTTP.Free;
>>>      l.free;
>>>    end;
>>> end.
>>>
>>>
>>> Radek Vicek
>>>
>>> Dne 9.1.2013 15:49, Martin Záruba napsal(a):
>>>
>>>> Protoze jsem kdysi delal v pascalu, tak me lazarus nadchnul. Ale 
>>>> zatim moc
>>>> nezvladam.
>>>> Martin Zaruba
>>>
>>> Tento e-mail včetně příloh může obsahovat důvěrné informace. 
>>> Jestliže nejste
>>> zamýšlený adresát tohoto e-mailu, pak jakákoliv forma zveřejnění, tisk,
>>> kopírování, distribuce nebo šíření tohoto e-mailu a připojených 
>>> příloh je
>>> přísně zakázáno. Pokud obdržíte tento e-mail omylem, oznamte to 
>>> neprodleně
>>> jeho odesilateli a okamžitě tento e-mail včetně jeho příloh trvale 
>>> vymažte
>>> ze svého systému. Odesilatel e-mailu neodpovídá za jakoukoliv škodu
>>> způsobenou modifikacemi či zpožděním přenosu e-mailu.
>>>
>>>
>>>
>>> This e-mail and any attached files may contain confidential 
>>> information. If
>>> you are not the intended addressee of this e-mail, you are hereby 
>>> notified
>>> that any disclosure, printing, copying, distribution or 
>>> dissemination of
>>> this e-mail and any attached files is strictly prohibited. If you 
>>> receive
>>> this e-mail in error, please immediately notify the sender and 
>>> permanently
>>> delete this e-mail and its attachments from your system. The sender 
>>> of this
>>> e-mail does not accept liability for any damage that may be caused 
>>> by any
>>> modifications or delay in the transmission of it.
>>>
>>> _______________________________________________
>>> HW-list mailing list  -  sponsored by www.HW.cz
>>> Hw-list na list.hw.cz
>>> http://list.hw.cz/mailman/listinfo/hw-list
>> _______________________________________________
>> HW-list mailing list  -  sponsored by www.HW.cz
>> Hw-list na list.hw.cz
>> http://list.hw.cz/mailman/listinfo/hw-list
>>
> _______________________________________________
> HW-list mailing list  -  sponsored by www.HW.cz
> Hw-list na list.hw.cz
> http://list.hw.cz/mailman/listinfo/hw-list
>