Slm.
Bilmediğim bir konu hakkında mümkünse yardımınızı istiyorum.
Paradox kullanarak normal standartlarda bir program hazırladık diyelim.
Ve bu programı web sayfamızda kullanılır hale getirmek istiyoruz.
bu nasıl olmaktadır veya bu olayı izah eden döküman bilen arkadaşların yardımalarını istiyorum.
teşekkürler
delphi+web
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
bildigim kadari ile bu pek kolay olmuyor. Yani standar bir DElphi uygulaması geliştirdiyseniz onu web'ten kullandırtmak icin ASP (Application Service Provider) uygulamaları var. Tabi bu bilinen ASP degil. Bu uygulama ile hani su PCAnywhere tarzi remote control yazılımları vardır ya. Web server'a bu imkani veren bir yazilim bu. ve Client olarak da web brovser calismis oluyor. Yani siz ilgili web sayfasini acinca icinde sizin program gorunuyor. Server sizin programi baglanan herkes icin ayri ayri birer virtual machine gibi calistirip ekran goruntulerini de web browser'a gonderiyor. Boylece herhangi bir lokal uygulamanız web tabanlı gibi calismis oluyor.
Tabi bu cozum zaten var olan uygulamaları webe tasimak icin uygunken yeni bir uygulama geliştirilecekse pek mantıklı olmaz. Ayrıca maliyeti de biraz pahalı olabilir...
Bu durumda uygulamayı belki de full web tabanlı geliştirmek iyi bir fikir olabilir. Delphi ile bunun nasıl yapıldıgı konusunda ise malesef benim bilgim yok.
iyi calismalar dilerim...
Tabi bu cozum zaten var olan uygulamaları webe tasimak icin uygunken yeni bir uygulama geliştirilecekse pek mantıklı olmaz. Ayrıca maliyeti de biraz pahalı olabilir...
Bu durumda uygulamayı belki de full web tabanlı geliştirmek iyi bir fikir olabilir. Delphi ile bunun nasıl yapıldıgı konusunda ise malesef benim bilgim yok.
iyi calismalar dilerim...
Application Service Provider diye aratarak bir seyler bulunabilir saniyorum. Ben baktim http://www.aspstreet.com/ dikkat cekiyor....
delphi + web
delphi ile web uygulaması yapmak için internet component lerini kullanman lazım özellikle TpageProducer
application olarak file- new - other - web server ... secmelisin
Web modulun üstünde sağ click ile action tanımlaman lazım
onAction kısmına da ne yapmak istiyorsan onu yazman lazım
Ancak bu tarz yazılımların bence modası geçti. ASP ( bildiğimiz asp) ile yazmak daha doğru olur (bence)
Ayrıca ekranda görülecek html sayfasını da önceden oluşturman lazım
yaptığım uygulamadan küçük bir örnek;
******************************************
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=windows-1254">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>ara</title>
</head>
<body bgcolor="#008080" text="#FFFFFF">
<p align="center">&</p>
<form action="http://www.deneme.com.tr/data/project1.exe/ara" method="GET">
<div align="center"><center><table border="0" width="50%">
<tr>
<td width="50%" bgcolor="#000080"><p align="right"><font
color="#FFFFFF" size="2" face="Verdana"><strong>Üye
No</strong></font></p>
</td>
<td width="50%"><input type="text" size="20"
name="uyeno"></td>
<input type="hidden" size="20" name="sube" value="<#sube>">
</tr>
</table>
</center></div><p align="center"><input type="submit"
name="B1" value="Gönder"><input type="reset" name="B2"
value="Vazgeç"></p>
</form>
</body>
</html>
*****************************************
procedure TWebModule1.WebModule1WebActionItem3Action(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
son : Boolean;
AAS: string;
begin
Table1.Open;
Table1.Edit;
Table1.IndexName:='UYENO';
a:=request.QueryFields.Values['uyeno'];
aas:=request.QueryFields.Values['sube'];
son:= Table1.FindKey([a]);
If son = true then
response.content:=pp1.content+aas
else
response.content:='Kayıt Bulunamadı'+aas;
gibi,
takılırsan yardımcı olmaya çalışırım
application olarak file- new - other - web server ... secmelisin
Web modulun üstünde sağ click ile action tanımlaman lazım
onAction kısmına da ne yapmak istiyorsan onu yazman lazım
Ancak bu tarz yazılımların bence modası geçti. ASP ( bildiğimiz asp) ile yazmak daha doğru olur (bence)
Ayrıca ekranda görülecek html sayfasını da önceden oluşturman lazım
yaptığım uygulamadan küçük bir örnek;
******************************************
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=windows-1254">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title>ara</title>
</head>
<body bgcolor="#008080" text="#FFFFFF">
<p align="center">&</p>
<form action="http://www.deneme.com.tr/data/project1.exe/ara" method="GET">
<div align="center"><center><table border="0" width="50%">
<tr>
<td width="50%" bgcolor="#000080"><p align="right"><font
color="#FFFFFF" size="2" face="Verdana"><strong>Üye
No</strong></font></p>
</td>
<td width="50%"><input type="text" size="20"
name="uyeno"></td>
<input type="hidden" size="20" name="sube" value="<#sube>">
</tr>
</table>
</center></div><p align="center"><input type="submit"
name="B1" value="Gönder"><input type="reset" name="B2"
value="Vazgeç"></p>
</form>
</body>
</html>
*****************************************
procedure TWebModule1.WebModule1WebActionItem3Action(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
son : Boolean;
AAS: string;
begin
Table1.Open;
Table1.Edit;
Table1.IndexName:='UYENO';
a:=request.QueryFields.Values['uyeno'];
aas:=request.QueryFields.Values['sube'];
son:= Table1.FindKey([a]);
If son = true then
response.content:=pp1.content+aas
else
response.content:='Kayıt Bulunamadı'+aas;
gibi,
takılırsan yardımcı olmaya çalışırım