Как вырезать часть из потока в Delphi7
Вопрос
У меня есть входящее мыльное сообщение с формой TStream (Delphi7), сервер, который отправляет это мыло, находится в режиме разработки и добавляет к сообщению заголовок html для целей отладки. Теперь мне нужно вырезать из него часть заголовка html, прежде чем я смогу передать ее в конвертер мыла. Он начинается с начала тегом «pre» и заканчивается тегом «/ pre». Я думаю, это должно быть довольно легко, но я не делал этого раньше в Delphi7, так может кто-нибудь мне помочь? Р>
Решение
Я думаю, что следующий код будет делать то, что вы хотите, при условии, что у вас есть только один < pre > заблокировать в вашем документе.
function DepreStream(Stm : tStream):tStream;
var
sTemp : String;
oStrStm : tStringStream;
i : integer;
begin
oStrStm := tStringStream.create('');
try
Stm.Seek(0,soFromBeginning);
oStrStm.copyfrom(Stm,Stm.Size);
sTemp := oStrStm.DataString;
if (Pos('<pre>',sTemp) > 0) and (Pos('</pre>',sTemp) > 0) then
begin
delete(sTemp,Pos('<pre>',sTemp),(Pos('</pre>',sTemp)-Pos('<pre>',sTemp))+6);
oStrStm.free;
oStrStm := tStringStream.Create(sTemp);
end;
Result := tMemoryStream.create;
oStrStm.Seek(0,soFromBeginning);
Result.CopyFrom(oStrStm,oStrStm.Size);
Result.Seek(0,soFromBeginning);
finally
oStrStm.free;
end;
end;
Еще один вариант, который я считаю, - использовать xml-преобразование для удаления нежелательных тегов, но я не делаю ничего для преобразования, поэтому, если кто-то еще захочет этот факел ...
РЕДАКТИРОВАТЬ: исправил код, чтобы он работал. Обучает меня программированию непосредственно в SO, а не в IDE.
Другие советы
Другое решение, более соответствующее предложению Ларса и более продуманное.
Это быстрее, особенно когда размер потока выше 100, а тем более на действительно больших. Это позволяет избежать копирования в промежуточную строку.
FilterBeginStream проще и следует за " specs " в удалении всего до конца заголовка.
FilterMiddleStream действует так же, как DepreStream, оставляя то, что находится до и после заголовка.
Предупреждение : этот код предназначен для Delphi до D2007, а не D2009. Р>
// returns position of a string token (its 1st char) into a Stream. 0 if not found
function StreamPos(Token: string; AStream: TStream): Int64;
var
TokenLength: Integer;
StringToMatch: string;
begin
Result := 0;
TokenLength := Length(Token);
if TokenLength > 0 then
begin
SetLength(StringToMatch, TokenLength);
while AStream.Read(StringToMatch[1], 1) > 0 do
begin
if (StringToMatch[1] = Token[1]) and
((TokenLength = 1) or
((AStream.Read(StringToMatch[2], Length(Token)-1) = Length(Token)-1) and
(Token = StringToMatch))) then
begin
Result := AStream.Seek(0, soCurrent) - (Length(Token) - 1); // i.e. AStream.Position - (Length(Token) - 1);
Break;
end;
end;
end;
end;
// Returns portion of a stream after the end of a tag delimited header. Works for 1st header.
// Everything preceding the header is removed too. Returns same stream if no valid header detected.
// Result is True if valid header found and stream has been filtered.
function FilterBeginStream(const AStartTag, AEndTag: string; const AStreamIn, AStreamOut: TStream): Boolean;
begin
AStreamIn.Seek(0, soBeginning); // i.e. AStreamIn.Position := 0;
Result := (StreamPos(AStartTag, TStream(AStreamIn)) > 0) and (StreamPos(AEndTag, AStreamIn) > 0);
if Result then
AStreamOut.CopyFrom(AStreamIn, AStreamIn.Size - AStreamIn.Position)
else
AStreamOut.CopyFrom(AStreamIn, 0);
end;
// Returns a stream after removal of a tag delimited portion. Works for 1st encountered tag.
// Returns same stream if no valid tag detected.
// Result is True if valid tag found and stream has been filtered.
function FilterMiddleStream(const AStartTag, AEndTag: string; const AStreamIn, AStreamOut: TStream): Boolean;
var
StartPos, EndPos: Int64;
begin
Result := False;
AStreamIn.Seek(0, soBeginning); // i.e. AStreamIn.Position := 0;
StartPos := StreamPos(AStartTag, TStream(AStreamIn));
if StartPos > 0 then
begin
EndPos := StreamPos(AEndTag, AStreamIn);
Result := EndPos > 0;
end;
if Result then
begin
if StartPos > 1 then
begin
AStreamIn.Seek(0, soBeginning); // i.e. AStreamIn.Position := 0;
AStreamOut.CopyFrom(AStreamIn, StartPos - 1);
AStreamIn.Seek(EndPos - StartPos + Length(AEndTag), soCurrent);
end;
AStreamOut.CopyFrom(AStreamIn, AStreamIn.Size - AStreamIn.Position);
end
else
AStreamOut.CopyFrom(AStreamIn, 0);
end;
Создайте новый TStream (используйте TMemoryStream) и переместите любой материал, который вы хотите сохранить, из одного потока в другой с помощью методов TStream.CopyFrom или TStream.ReadBuffer / WriteBuffer.
XPath-выражение " //pre[1][1]
" вытащит первый узел первого < pre > тег в сообщении XML: из вашего описания должен содержать желаемое сообщение SOAP.
Прошло много лет с тех пор, как я последний раз пользовался им, но я думаю, что библиотека OpenXML поддерживает Дитера Келера XPath.