่ทำ shellexecute ไม่ผ่าน

[bchxp]

อยากเปิด web โดยกดปุ่ม. ปรากฎว่า ไม่ทำงาน ไม่ทราบติดตรงไหน ลอง  call function มันไม่รู้จัก rfReplaceAll กะ SW_SHOWNORMAL




  var   fvn,fhn, URL: string;
begin
  URL := 'http://www.abc.co.th?vn="'+fvn+'"';
  fvn := GetGlobalValue('VN');
   fhn := getsqldata('select hn from ovst where vn="'+fvn+'" ');
  URL := StringReplace(URL, '"', '%22', [rfReplaceAll]);
  ShellExecute(0, 'open', PChar(URL), nil, nil, SW_SHOWNORMAL);

end;

[BlueEye]

ลองเขียน app เอง โดยใช้ delphi แล้วเอาไปไว้ในโฟลเดอร์สักที่นึง แล้ว ให้ hosxp เรียกใช้ ผ่าน script ของ hosxp โดยส่งพารามิเตอร์ไปด้วย ในที่นี้คือ vn กับ hn เมื่อ execute ก็ได้ออกมาตามรูปที่แนบมาครับ

ถ้าจะเปิด web ก็ได้นะครับ ประมาณนี้

โค๊ด: [Select]

WinEXEC('C:\Program Files\Google\Chrome\Application\chrome.exe https://some-app.com?vn='+fvn+'&hn='+fhn);

[bchxp]

ขอบคุณครับเดี๋ยวลองดู

[ocd125]

ลองเขียน app เอง โดยใช้ delphi แล้วเอาไปไว้ในโฟลเดอร์สักที่นึง แล้ว ให้ hosxp เรียกใช้ ผ่าน script ของ hosxp โดยส่งพารามิเตอร์ไปด้วย ในที่นี้คือ vn กับ hn เมื่อ execute ก็ได้ออกมาตามรูปที่แนบมาครับ

ถ้าจะเปิด web ก็ได้นะครับ ประมาณนี้

โค๊ด: [Select]

WinEXEC('C:\Program Files\Google\Chrome\Application\chrome.exe https://some-app.com?vn='+fvn+'&hn='+fhn);

ฟอร์มapp เขียนรับค่าตัวแปรยังไงครับผม รบกวนขอตัวอย่างหน่อยครับผม

[BlueEye]

เป็นไฟล์ตัวอย่างนะครับ ถ้าจะทำใช้จริง ต้องตรวจสอบก่อนว่าถ้ามี process ของไฟล์นี้ run อยู่ จะต้องไม่เปิดซ้ำ หรืออาจจะต้องเปิดเป็น thread ใหม่เลย

[admin30]

เปิดเว็บด้วยคำสั่งนี้เลยครับ
winexec('cmd /c start http://domain.com/test.php?vn='+fvn);