TRemotable class kullanımı?

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
AReS
Üye
Mesajlar: 86
Kayıt: 25 Haz 2005 04:58

TRemotable class kullanımı?

Mesaj gönderen AReS »

Delphi 2005 te

Kod: Tümünü seç

AnaTip = class(TRemotable)
    private
    published
    end;
die bir sınıf kullanmak istedim Invokeregistry kütüphanesinden gelmesi gerekmiyormu? (Uses a InvokeRegistry yazınca yok diyor) bu tipi nasıl kullanabiliriz?
Kullanıcı avatarı
AReS
Üye
Mesajlar: 86
Kayıt: 25 Haz 2005 04:58

Mesaj gönderen AReS »

Yapmak istediğim Webservisin TCkimlik webservisinin yaptıgı gibi dışardan gelen parametrelere gore bir datasete bilgi geçmesi.Function içerisine oluşturdugum yeni tipleri girdigim zaman hata veriyor ama fonksiyonun içine sadece string tipinde bir atama yaparsam dataset e bilgiler donuyor.
Çıkmadıgım kod bolgu.

Kod: Tümünü seç

function TWebService1.GetPolic(FKimlikNo:TckimlikTip):Dataset;
const
c_cnstr = 'user id=sa;initial catalog=HastaBYS;persist security info=False';
var
  TCk:String;
  sqlcn: SqlConnection;
  sqlDA: SqlDataAdapter;
  ds: DataSet;
begin
  try

    TCK := FKimlikNo.KimlikNo;
    csel:= 'SELECT Patient.PatientId, Patient.Name +'' ''+ Patient.Surname AS Hasta, Policlinic.RecDate, Part.Part, Cure.Cure '+
    'FROM Part INNER JOIN Policlinic ON Part.PartID = Policlinic.ClinicId INNER JOIN Patient ON Policlinic.Patient = Patient.PatientId INNER JOIN Cure ON Policlinic.CureId = Cure.CureId Where IdentityId='''+TCK+'''';
    sqlcn := SqlConnection.Create(c_cnstr);
    sqlDA := SqlDataAdapter.Create(csel, sqlcn);
    ds := DataSet.Create;
    sqlDA.Fill(ds, 'Polic');
    sqlcn.Close;
    Result := ds;
  except
    Result := nil;
    raise;
  end;
end;
Yardımcı olursanız sevinirim.
Kullanıcı avatarı
AReS
Üye
Mesajlar: 86
Kayıt: 25 Haz 2005 04:58

Mesaj gönderen AReS »

Sorun çözülmüştür. .Net Tarafında TRemotable kullanılamıyor. TObject kullanmak yeterli oluyor.
Cevapla