Delphi Forum

upload bileşeninin textine isteğim texti nasıl atayabilirim

FileUpload.Get_Value ile text içerisinde ki değeri okurken

FileUpload.Set_Value ile text içerisine değer atayamıyorum

yani fileupload bileşeninin yanındaki gözat butonuna basmadan istediğim dosya adını kendim geçirmek istiyorum

Application['KullaniciSayisi'] := '1'
üsteki atama ifadesi yanlış bu

tüm atama ifadelerini aşşağıdaki örnekte ki gibi düzeltirsen doğru çalışır

Application['KullaniciSayisi'] := Convert.ToString(1)

olayın doğruluğunu kontrol etmek istersen OnLoad olayına aşşağıdaki kodları yaz ve sayfayı 1 kaç ...

procedure TGlobal.Application_Start(sender: System.Object; e: EventArgs);
begin
Application['ToplamKullaniciSayisi'] := '0';
end;

procedure TGlobal.Session_Start(sender: System.Object; e: EventArgs);
begin
Application.Lock;
try
if Application['KullaniciSayisi'] = nil then
Application ...

Aslında BdpDataAdapter de parametre geçirmen şart değil senin yapmaya çalıştığın şekilde de olur.

procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
begin
bdpSelectCommand1.Close;
BdpDataAdapter1.Active := False;
bdpSelectCommand1.CommandText := 'SELECT * FROM COUNTRY ...

bdpSelectCommand1.Close;
BdpDataAdapter1.Active := False;

bdpSelectCommand1.CommandText := 'SELECT COUNTRY, CURRENCY FROM COUNTRY WHERE COUNTRY = ?';

bdpSelectCommand1.Parameters.Clear;
bdpSelectCommand1.ParameterCount := (SmallInt(1));
bdpSelectCommand1.Parameters.Add(Borland.Data.Common ...