Jump to content

stas

uniGUI Subscriber
  • Posts

    489
  • Joined

  • Last visited

  • Days Won

    37

Posts posted by stas

  1. Isapi Мост на Апаче крайне ненадежный.

    Если наличие апача необходимо, то наиболее надежный вариант использование Reverse Proxy

    http://forums.unigui.com/index.php?/topic/6019-unigui-standalone-behind-an-apache-reverse-proxy/

     

    Касательно настройки апача

    http://forums.unigui.com/index.php?/topic/3048-guide-to-deployment/ 

  2. Use free form 

    And put in variable formclass instead form

    protected
           FName:TUniFormClass;
     
    procedure TFmain.UniFrameCreate(Sender: TObject);
    begin
          FName:=TForm1;    
    end;
     
    procedure TFmain.btnAddClick(Sender: TObject);
    begin
      TUniFormClass(FName).Create(UniApplication).ShowModal(showcallback);
    end;
  3. Лена, дешево и сердито его сделать из treeview c cоотв. TImageList и обработкой клика.

     

    Lena you can use treeview with timagelist with checkbox picturies, and handled  onclick event.

    Regards.

  4. The problem is that the response from the server in the same sentence
    Can I send in first Response 

    uniVars._mask = new Ext.LoadMask(Ext.getBody(), {msg:"Wait ..."});

    after that process Sleep(10000)

    and in second Responce send 

    UniSession.AddJS('uniVars._mask.hide();');

    Of cource i can use unitimer

    but this is undesirable

  5. Thanks, but dont work

     

    UniSession.AddJS('uniVars._mask = new Ext.LoadMask(Ext.getBody(), {msg:"Wait ..."}); uniVars._mask.show();');
    try
    Sleep(10000);
    finally
      UniSession.AddJS('uniVars._mask.hide();');
    end;
     
    Response text is
    uniVars._mask = new Ext.LoadMask(Ext.getBody(), {msg:"Wait ..."}); uniVars._mask.show();uniVars._mask.hide();

     

  6. Hello.

    How show Wait message without attached control

    For Example

     

    proccedure TUniForm.FormCreate(SEnder:TObject);

    begin

     

    ScreenMaskWithoutAttachedControl.Enabled=True;

    try

    VeryLongTimeInternalProcedure;

    finally

    ScreenMaskWithoutAttachedControl.Enabled=False;

     

    end;

     

     

    end;

     

    Thank You.

  7. Пример очень сложно выдернуть из контекста.

    Но мысль следующая 

    Тут изложено апи геокодирования

    http://api.yandex.com.tr/maps/doc/geocoder/desc/concepts/input_params.xml

     

    1)С помощью сервера

    Используется любой метод закачки http

    Можно  использовать Indy, Synapce. и.т.д

    Возвращать приятнее json он меньше по размерам и легче парсится  вручную.

    Далее получаем координаты и с помощью Гугльмаповского компонента от Лёмы определяем маркер в заданную точку.

    2)С помощью клиента

    можно использовать jquery или стандартным ajax запросом

    Далее опять вытягиваются координаты и маркер посылается в заданную точку с помощью api гугла.

    Это  для сервера на FastScript

    procedure  SearchAdressEx(Adress:String;var LatS,LonS:String);
    var LatS,Lons,S,SQ:String;
        i:integer;
        M:TStringStream;
        Lat,LOn:Double;
        R:Integer;
    begin
    M:=TStringStream.Create;
    try
    S:='http://geocode-maps.yandex.ru/1.x/?geocode='+Adress+'&lang=uk-UA&format=json&results=1';
    HttpGetFile(S,M); //Тут мы закачиваем файл
    S:=M.DataString;
    if pos('"pos":',S)<>0
    then
    begin
    S:=copy(S,pos('"pos":',S)+length('"pos":')+1,length(S));
    S:=copy(S,1,pos('"',S)-1);
    LatS:=ExtractWord(2,S,' ');
    LonS:=ExtractWord(1,S,' ');
    end;
    finally
    M.Free;
    end;
    end;
    
    
  8. В целом геокодинг можно использовать, левый, скажем от Яндекса, он даже проще.

    Я например загружаю со стороны сервера, а потом передаю на клиент.

×
×
  • Create New...