raise Exception.Create('');
end;
except
+ on E: EIdSocketError do begin
+ State := gdsError;
+ ResponseText := '<html><body>'
+ + '<div>\90Ú\91±\82ª\8e¸\94s\82µ\82Ü\82µ\82½<br>'
+ + '\89ñ\90ü\82â\83v\83\8d\83L\83V\82Ì\8fó\91Ô\82ð\92²\82×\82Ä\82\82¾\82³\82¢<br></div>'
+ + '<br><br><div>' + E.Message + '</div>'
+ + '</body></html>';
+ end;
on E: EIdConnectException do begin
State := gdsError;
ResponseText := '<html><body>'
finally
Source.Free;
TextStream.Free;
- Indy.CookieManager.CookieCollection.Clear;
+ if ( Indy.CookieManager <> nil ) then begin
+ Indy.CookieManager.CookieCollection.Clear;
+ end;
//sysMenu := GetSystemMenu( Handle, true );
EnableMenuItem(SysMenu, SC_CLOSE, MF_BYCOMMAND or MF_ENABLED);
DrawMenuBar(Handle);
OSDN Git Service
