'자료들/Delphi for PHP'에 해당되는 글 5건

  1. 2009.10.07 BasicAjax 및 JQuery식 표현 사용하기
  2. 2007.06.25 SmartyTemplate 사용하기 (2)
  3. 2007.06.25 Memo Class 사용법
  4. 2007.06.24 Layout.Type 속성
  5. 2007.06.24 디자인이 변경되지 않는 경우
출처 : http://forums.delphi-php.net/javascript-ajax/3017-favorite-functions-add-common-js.html

Delphi for PHP 설치폴더에서 vcl/js/common.js 를 연다.

파일 제일 하단에 아래의 코드 추가

 vcl=
{
$:function ()
{
var elements = new Array();
for (var i = 0; i < arguments.length; i++)
{
var element = arguments[i];
if (typeof element == 'string')
element = findObj(element);
if (arguments.length == 1)
return element;
elements.push(element);
}

return elements;
},
int:function(obj){ return parseInt(vcl.$(obj).value);},
real:function(obj){ return parseFloat(vcl.$(obj).value);},
escape:function(obj){ return escape(vcl.$(obj).value);},
unescape:function(obj){ return unescape(vcl.$(obj).value);},
focus:function(obj){ vcl.$(obj).focus();},
check:function(obj){ vcl.$(obj).checked=true;},
uncheck:function(obj){ vcl.$(obj).checked=false;},
hide:function(obj){ vcl.$(obj).style.display = 'none';},
show:function(obj){ vcl.$(obj).style.display = '';},
find:function(obj){ return vcl.$(obj);},
text:function(obj){ return vcl.$(obj).value;},
value:function(obj){ return vcl.$(obj).value;},
setOpacity:function(incoming,value)
{
theObj=vcl.$(incoming);
theObj.style.opacity = value/10;
theObj.style.filter = 'alpha(opacity=' + value*10 + ')';
}
}

function createHTTPrequest()
{ /* Firefox, Opera 8.0+, Safari */
try {return new XMLHttpRequest();}
catch (error) {}
/* newer IE */
try {return new ActiveXObject("Msxml2.XMLHTTP");}
catch (error) {}
/* older IE */
try {return new ActiveXObject("Microsoft.XMLHTTP");}
catch (error) {}
throw new Error("Your browser does not have AJAX support!");
}
function basicAjax (url,parameters,callback)
{
xmlHttp=createHTTPrequest();
if (callback) {xmlHttp.onreadystatechange=callback;}
else
{
xmlHttp.onreadystatechange=function()
{
if(xmlHttp.readyState==4)
{
if (xmlHttp.status == 200)
{eval(xmlHttp.responseText);}
else
{alert("Sorry, received a server error ="+xmlHttp.statusText);}
}
}
}
xmlHttp.open("POST",url,true);
if (typeof(basicAjaxAsyncFalse) != 'undefined' && basicAjaxAsyncFalse==1) xmlHttp.open("POST",url,false); //this will force a wait for return
xmlHttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
xmlHttp.setRequestHeader("If-Modified-Since", "Fri, 31 Dec 1999 23:59:59GMT");
xmlHttp.send(parameters);
}

Basic Ajax사용법

  //call basicAjax but override the eval function
basicAjax("ajax_server.php","value1=Bob",myfunction);

//call basicAjax using the built in eval function
var params='value1='+vcl.$('Edit1').value+'&value2='+vcl.$('Edit2').value;
basicAjax("ajax_server1.php",params);

vcl.$() 사용법

 // Sample Usage:
               function Button2JSClick($sender, $params)
               {

               ?>
alert(vcl.$('Edit1').value);//just get one object

//these 3 are identical
var obj1 = document.getElementById('Edit1');
var obj2 = vcl.$('Edit1');
var obj3= FindObj('edit1');

 vcl.$('Edit1').disabled;

//this gets an array of objects!! (includes obj we all ready had found also
// and real objects like LabeledEdit)
var elements = vcl.$('Edit2','Edit4','Edit6',obj1,obj2,'Edit5','Edit3');
for (var i=0;i < elements.length; i++) elements[i].value='';
//we just blew through a bunch of edits and cleared them.
// fyi this wouldn't work this way with the labeled edits though - they need setValue('')
               <?php

               }

 

 // Sample Usage:
vcl.hide('Button1');
vcl.show('Button1');

 

'자료들 > Delphi for PHP' 카테고리의 다른 글

BasicAjax 및 JQuery식 표현 사용하기  (0) 2009.10.07
SmartyTemplate 사용하기  (2) 2007.06.25
Memo Class 사용법  (0) 2007.06.25
Layout.Type 속성  (0) 2007.06.24
Posted by 화니.

댓글을 달아 주세요

폼에서 TemplateEngine을 SmartyTemplate 로 선택합니다.
TemplateFilename 은 템플릿으로 사용할 파일명을 적습니다.

웹 업로드시 smarty 가 없으면 Delphi for PHP 가 설치된곳에서 vcl안에 smarty 를 복사해주세요.

vcl 안에 smartytemplate.inc.php 파일을 열어서
41번째 줄을 윈도우즈에서는 수정해주어야 합니다.
$this->_smarty->compile_dir = '/tmp';
위의 /tmp 를 임시경로를 절대경로로 변경합니다. 예) c:/temp

템플릿 파일에는
{$StartForm}로 시작하고 {$EndForm}로 끝냅니다.
안에는 {$컨트롤명} 으로 원하는 위치에 디자인하면 됩니다.

'자료들 > Delphi for PHP' 카테고리의 다른 글

BasicAjax 및 JQuery식 표현 사용하기  (0) 2009.10.07
SmartyTemplate 사용하기  (2) 2007.06.25
Memo Class 사용법  (0) 2007.06.25
Layout.Type 속성  (0) 2007.06.24
Posted by 화니.

댓글을 달아 주세요

  1. 유리도시를 사랑하는 사람 2007.07.06 21:47  댓글주소  수정/삭제  댓글쓰기

    님 더이상 업뎃을 안하실껀가요? 아님 하시는건가요 .

    지금 저가 너무 하고 싶어서 안달난 상태이에요 ^^;;

    물론 제가 할말은 아니지만 업뎃중이시다면 빠른 업뎃을 기달릴께요 그럼 (_ _)꾸벅

  2. 2007.07.13 09:22  댓글주소  수정/삭제  댓글쓰기

    비밀댓글입니다

Memo 사용법

Delphi
Memo1.Lines.Count;
PHP
$list=$this->Memo1->readLines();
count($list);

Delphi
Memo1.Lines.Strings[0];
PHP
$list=$this->Memo1->readLines();
$list[0];

Delphi
Memo1.Lines.Add('String');
PHP
$this->Memo1->Add("String"); //AddLine을 사용함
$this->Memo1->AddLine("String");

Delphi
Memo1.Clear;
PHP
$this->Memo1->Clear();

Delphi
Memo1.Text;
PHP
$this->Memo1->readText();
$this->Memo1->LinesAsHTML(); //HTML 방식으로 출력

Memo Class 는 함수가 많이 부족한듯합니다.
Delete, Count 등의 기본 함수도 현재 들어있지 않습니다.

'자료들 > Delphi for PHP' 카테고리의 다른 글

SmartyTemplate 사용하기  (2) 2007.06.25
Memo Class 사용법  (0) 2007.06.25
Layout.Type 속성  (0) 2007.06.24
디자인이 변경되지 않는 경우  (0) 2007.06.24
Posted by 화니.

댓글을 달아 주세요

Layout.Type 속성

ABS_XY_LAYOUT
절대 위치로 설정 레이아웃이 위에 어떤내용이 있던 해당 위치에 자리잡는다.

XY_LAYOUT
상대 위치로 설정. 레이아웃 위에 어떤내용이 있으면 그만큼 아래로 자리를 잡는다.

'자료들 > Delphi for PHP' 카테고리의 다른 글

SmartyTemplate 사용하기  (2) 2007.06.25
Memo Class 사용법  (0) 2007.06.25
Layout.Type 속성  (0) 2007.06.24
디자인이 변경되지 않는 경우  (0) 2007.06.24
Posted by 화니.

댓글을 달아 주세요

서버에 업로드 후 디자인이 변경이 안되는 경우가 있습니다.

VCL for PHP에서 속도를 위해 쿠키,세션을 사용하여 디자인을 캐쉬하는듯합니다.

브라우져를 종료후 다시 접속하면 디자인이 변경되어 보입니다.

'자료들 > Delphi for PHP' 카테고리의 다른 글

SmartyTemplate 사용하기  (2) 2007.06.25
Memo Class 사용법  (0) 2007.06.25
Layout.Type 속성  (0) 2007.06.24
디자인이 변경되지 않는 경우  (0) 2007.06.24
Posted by 화니.

댓글을 달아 주세요