RS232 ===> web

[Admin HWnews]

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
>