Tckimlik Sorgulama

[absal]

Arkadaşlar bi DLL yazıyım (daha dogrusu formdada yer alan tckimlik sorgulamayı DLL cekmeye calışıyom) ama bi hatayla karşılaştım aşamıyom Yardımcı olursanız sevinirim



denebilir ki başka bir sorun var, lakin aralara showmessage yazdım ve orda caktığını gördüm

Veridiği hata

[absal]

Velevki veri tabanı kullanmaktan vazgectim o hatayı atladı, lakin bu kezde sonda caktı

yukarıdakine benzer bi hata veriyooooooooo

[absal]

1.nin nedeni bilmiyorum ama 2. benim hıyarlığımla alakalı dolanbaclı da olsa cözdüm kafa yoran olduysa hakkını helal etsin

[absal]

1.nin nedeni bilmiyorum ama 2. benim hıyarlığımla alakalı dolanbaclı da olsa cözdüm kafa yoran olduysa hakkını helal etsin

[absal]

Arkadaşlar cözdüm diye sevinirken "read of address 00000000" hatasıyla uğraşıp duruyorum.İlk değer döndüğünde problem yok lakin ikinci sorguda bu hatayı alıyom yazdığım kod aşağıda.............

library dllim;

uses
ShareMem,
SysUtils,
Forms,
ActiveX,
Classes,
System,
Dialogs,
SOAPHTTPClient,
kpsPublic in 'kpspublic.pas';


var
so,ad,dog:string;
Size: Integer;
Buffer: PChar;

procedure ValidateBase;
begin
end;
function Dogrula(Tcno:pchar):ShortString;stdcall;export;
var
HTTPRIO2: THTTPRIO;
KPS:KPSPublicWebServiceSoap;
KimlikDogS : TCKimlikNoDogrulamaSonucu;
TCkimlikno : int64;
begin
TCKimlikNo := StrToInt64(tcno);
if (Length(IntToStr(TCKimlikNo))=11) and (IntToStr(TCKimlikNo)<>EmptyStr) then begin
CoInitialize(nil);
try
HTTPRIO2:=THTTPRIO.create(nil);
HTTPRIO2.HTTPWebNode.UseUTF8InHeader:=true;
KPS:=GetKPSPublicWebServiceSoap(false,'',HTTPRIO2);
KimlikDogS := (HTTPRIO2 as KPSPublicWebServiceSoap).TCKimlikNoDogrula(TCKimlikNo);
so:=KimlikDogs.soyad;
ad:=KimlikDogs.ad;
dog:=IntToStr(KimlikDogs.DogumYil);
Dogrula:='['+dog+']'+'['+ad+']'+'['+so+']';
finally
begin KimlikDogS:=nil;
HTTPRIO2.Free;
KPS:=nil;
CoUninitialize;
end; end;
end;
end;
exports Dogrula;

Begin
End.

[mucar]

Sorun nedir bilmiyorum ama bu konuyla ilgili çok fazla soru sorulmuştu. Belki aşağıdaki bağlantılardan çözüme ulaşabilirsiniz.

viewtopic.php?t=8001&highlight=kimlik

viewtopic.php?t=6153&postdays=0&postorder=asc&start=0

Hatta "Tckimlik" ve "Tc Kimlik" şeklinde bi arama yapın froumda. Pek çok şey var.

[Berdem]

Merhaba,
KPS := GetKPSPublicWebServiceSoap(false, '', HTTPRIO2);
falseyi true yaparmısın....

[fduman]

ShareMem unitinden kaynaklanıyor gibi görünüyor. vkamadan'ın bir çözümü vardı.

viewtopic.php?t=7868&start=15

[absal]

herkese tşk...Sorunun neden kaynaklandığını bende tam bulamadım ... Ama cözüldü dinamik yükleme sanırım cözüm oldu ...
Bide Arkadaşlar
FreeMem
GetMem
gibi komutları bilmeden Dll yüklemek, kullanmak cok zahmetli bu komutların nasıl kullanıldığına dair bulabileceğim bir kaynak bilen var mı ?