''' hogyan?

''' hogyan?
2007-08-22T00:25:19+02:00
2007-08-23T16:39:09+02:00
2022-11-05T15:25:39+01:00
blunk92
Egy html-ből szeretnék kiszedni egy linket, valamelyik témát el is olvastam ezzel kapcsolatban, de a megnyitott oldalba nem <A href= <- tagok között hanem <META http-equiv='refresh' content='1; URL=http://weboldal.hu'>-ba van és ha az a hrefet átirom url=-re az még csak jó de az aposztróf leszedésénél hogy írja '''-ilyet mi módon lehet ezt megvalósítani ugy hogy működjön is? A forrás:
ms := TMemoryStream.Create;
try
IdHTTP1.Get('http://weboldal.hu, ms);
ms.Position := 0;
ms.SaveToFile('1.html');
AssignFile(T, '1.html');
Reset(T);
while not Eof(T) do
begin
ReadLn(T, Buff);
Tmp := Buff;
if Pos('URL=', LowerCase(Tmp)) > 0 then
begin
Tmp := Copy(Tmp, Pos('URL=', LowerCase(Tmp)) + 9, Length(Tmp));
Link := Copy(Tmp, 1, Pos('>', Tmp) - 1);
Delete(Tmp, 1, Pos('>', Tmp));
Name := Copy(Tmp, 1, Pos('<', Tmp) - 1);
end;
Tmp := Buff;

end;
CloseFile(T);

IdHTTP1.Get(link, ms);
ms.Position := 0;
ms.SaveToFile('2.html');
IdHTTP1.Get('http://weboldal.hu', ms);
ms.Position := 0;
ms.SaveToFile('3.html');
finally
ms.Free;
end;

Az oldal 3x frissít és a első frissítés után(második lap) jegyzi be az ip-t a szerverre(ez a lényeg) az első oldalon a link után még GET-es cuccok vannak és a get egyik tagja változik mindig ezért a második lap nem állandó! Szal hogy lehet Az aposztófot aposztófba tenni(''')? Fontos lenne
Mutasd a teljes hozzászólást!
C-ben a spec karakterek elött \-van,
de Delphi-ben aposztróf elött egy aposztróf van
tehát

valami := '''';

Vagyis 4db, idiótán néz ki, de ez van
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd