Delphi API

[eecrin]

import http.client

conn = http.client.HTTPSConnection("api.collectapi.com")

headers = {
'content-type': "application/json",
'authorization': "apikey 38M98cl6jwSD8BS7FF4DpO:0mnl1Z9F7fM60vnerUq0KF"
}

conn.request("GET", "/ip/ipToLocation?data.ip=95.8.131.139", headers=headers)

res = conn.getresponse()
data = res.read()

print(data.decode("utf-8"))


Python la yazılmış bu kodu Delphi ye nasıl uyarlarım, delphi student lisansla 10.3 kullanıyorum. Yardımlarınızı beliyorum lütfen yardım.

[ertank]

Merhaba,

Okul ödevi gibi duruyor.

Acaba siz şu ana kadar neler yaptınız? Çalışmayan bir kod örneğiniz var mı?

[eecrin]

Efendim, hiç bir şey yapamadım Delphiyle database üzerinde çalıştım ama Rest API ları bilmiyorum

[ertank]

Forumda aramayı denediniz mi?
search.php?keywords=rest+get+örnek

Oldukça çok örnek çıkıyor.

[eecrin]

procedure TForm1.Button1Click(Sender: TObject);
var
Response, JsonString: string;
lRequest: TStringStream;
Http: TIdHTTP;
begin
lRequest := TStringStream.Create(JsonString, TEncoding.UTF8);
try
Screen.Cursor := crHourGlass;
Http := TIdHTTP.Create(nil);
try
Http.Request.ContentType := 'application/json';
Http.Request.CharSet := 'utf-8';

try
// Sorgulama yapan bileşen
Response := Http.Post('https://api.collectapi.com/ip/ipToLocat ... 75.171.200 apikey 38M98cl6jwSD8BS7FF4DpO:0mnl1Z9F7fM60vnerUq0KF', lRequest);
except
on E: Exception do
begin
ShowMessage('*** İletişim hatası: ' + E.Message);
end;
end;
finally
Http.Free();
end;
finally
lRequest.Free();
end;


end;

Böyle bir kod buldum ama çalıştıramadım

[ertank]

"çalıştıramadım" derken, derleme zamanında mı hata alıyorsunuz? Çalışma zamanında mı?
Aldığınız hata nedir?