Excel + буфер обмена

[LAndrew2]

Необходимо написать на Delphi небольшую программку, которая могла бы помещать в буфер обмена данные так, как будто они были скопированы туда из двух (трех, четырех и т.д.) соседних ячеек Excel'я
/excel.gif/
после вставки содержимого из буфера (скопированного из Excel) в другую программу - получаем следующее:
/progok.gif/
т.е. программа понимает, что текст скопирован из разных ячеек и раскидывает текст в разные поля
когда же моя программа генерирует текст и помещает его в буфер, то после вставки имеем следующее:
/prog.gif/
т.е. программа не раскидала текст по полям

после разбора содержимого буфера (скопированного из Excel) обнаружил, что символ разделитель ячеек - Tab - #9, а в конец строки добавляется символ переноса строки - #10#13... аналогично формирую свою строку -

'text1'+#9+'text2'+#10#13

но это почему-то не помогает...

может кто помочь?

[/7y3uK]

Опиши какими символьными типами ты пользуешься для хранения-передачи данных, и кусок кода покажи, где у тебя не получается выцепить данные правильно. ИМХО тут в типе STRING заморочка.

>'text1'+#9+'text2'+#10#13

А попробуй вот так, если я не туплю, конечно.

'text1'+'#9'+'text2'+'#10#13'

Ну а у меня сейчас вот так получилось в С++ Билдер 5 и вставлял в офис2003

Edit1->Text = Edit2->Text+" "+Edit3->Text; // в ковычках 5 пробелов
Edit1->SetFocus();
Edit1->CopyToClipboard();

Ну а в Делфи просто заменяешь -> на .
" на '

[LAndrew2]

Опиши какими символьными типами ты пользуешься для хранения-передачи данных, и кусок кода покажи, где у тебя не получается выцепить данные правильно. ИМХО тут в типе STRING заморочка.

в буфер я копирую текст так:

Clipboard.SetTextBuf(PChar(  eBuilding.Text+#9+#9+AnsiUpperCase(cbStreetsList.Text)+#9+#9+AnsiUpperCase(cbCitiesList.Text)+#9+#9+eIndex.Text+#10#13))

соответвственно, все типы - String.
по два #9 - это так и надо, ибо надо вставлять данные в поля через 2


для проверки того, как передаются поля из Excel'a в буфер и из моей проги, использовал следующий код:

procedure TZipForm.Button2Click(Sender: TObject);
var
  MyHandle: THandle;
  TextPtr: PChar;
  MyString,S: string;
  i:Integer;
begin
  ClipBoard.Open;
try
  MyHandle := Clipboard.GetAsHandle(CF_TEXT);
  TextPtr := GlobalLock(MyHandle);
  MyString := StrPas(TextPtr);
  GlobalUnlock(MyHandle);
finally
  Clipboard.Close;
end;

 if Clipboard.HasFormat(CF_TEXT) then
  S:='';
  lFullStreet.Caption:=MyString ;
  for i:=1 to length(MyString)
  do S:=S+IntToStr(Ord(MyString[i]))+' ';
 lFullStreet.Caption:=S;

end;

анализирует содержимое буфера по нажатию клавиши, в результате в строку S передается через пробел ASCII коды того, что есть в буфере (может проблема в том, что текст в буфере НЕ надо принимать за текст?). анализ этого показывает, что моя программа и Excel передают данные в одинаковом формате... но вот другая прога (куда их вставляют) понимает их по-разному...

ЧересЧеловек:
'text1'+'#9'+'text2'+'#10#13'

тогда просто в буфере будет строка 'text1#9text2#10#13'

ЧересЧеловек:
и вставлял в офис2003

мне нужно не в офис вставлять, а в другую прогу! (офис сам пробелы или Tab заменяет на некий разделитель ячеек), мне нужно сделать такое содержимое буфера, как будто эти данные были переданы из офиса!

[/7y3uK]

а не пробовал забирать данные вот так: Clipboard.AsText; ? А проверочку содержимого так и так нужно делать. Вроде PChar (указатель с нулем вконце) не должон влиять на получаемы/запихиваемый в буфер текст.

[LAndrew2]

/7y3uK:
а не пробовал забирать данные вот так: Clipboard.AsText;

пробовал - то же самое...

Да, фигнню я напорол с #9. Невыспался был. Звиняй.

>может проблема в том, что текст в буфере НЕ надо принимать за текст?

Но все таки Ехсель должен что то пихать в буфер помимо текста. Ворд по Ехселевскому буферу сразу таблицу рисует.
У класса Clipbord помимо функции GetTextBuf (по сути, то что у тебя), есть и GetComponent.
По GetAsHandle(CF_TEXT) ты выдергиваешь только текст (только, то что в буфере отформатировано как текст), но там одновремено, может быть и CF_BITMAP и CF_METAFILEPICT и CF_COMPONENT и др.
А как сделать я не знаю. Это были так мысли вслух, чисто: "Я тАк думаю"(с)