Merhaba.
DLL yapmadan önce yapısal olarak DLL nedir olayını bir araştırırsanız iyi olur. Neden DLL ihtiyacınız olduğunu bilmiyorum, bu söylediğiniz kısım için önce normal projenizi tamamlayıp, ondan sonra hala DLL ihtiyacı var ise procedure / function yapılarını DLL'ye dönüştürmesi kolaydır.
DLL olsun normal VCL olsun TStringList için USES olarak Classes altında yer alıyor. Sadece merak ettiğiniz buysa tabii.
Yapmak istediğinizi anlamadım ama aşağıdaki benzeri bir şeyi deneyebilirsiniz. İçeriği deneme fırsatım olmadı, olduğu gibi copy/paste yaparak yapısal hali göstermek istedim.
Kod: Tümünü seç
uses
ShareMem,
SysUtils,
Classes,
IdHttp;
{$R *.res}
function GoogleGir( strVeri : String ): string; stdCall;
var
str : tstringlist;
veri : string;
begin
str := TStringList.Create;
str.Clear;
str.Add('veli=ahmet');
veri := md_5(strVeri+'dede');
try
With TIdHttp.Create(nil) do
begin
Result := Post('http://localhost/test.php?kod='+veri, str);
Free;
end;
except
//...
end;
str.Free;
end;
Exports GoogleGir;
begin
end.