du skal assigne din listbox til remote connection, som jeg forstår af dit spørgsmål vil du have en listbox lokalt og en listbox remote, du smider så alt i lokalt i remote listbox.
procedure ListBoxToClipboard(ListBox: TListBox; BufferSize: Integer; CopyAll: Boolean); var Buffer: PChar; Size: Integer; Ptr: PChar; I: Integer; Line: string[255]; Count: Integer; begin if not Assigned(ListBox) then Exit;
GetMem(Buffer, BufferSize); Ptr := Buffer; Count := 0; for I := 0 to ListBox.Items.Count - 1 do begin Line := ListBox.Items.strings[I]; if not CopyAll and ListBox.MultiSelect and (not ListBox.Selected[I]) then Continue; { Check buffer overflow } Count := Count + Length(Line) + 3; if Count = BufferSize then Break; { Append to buffer } Move(Line[1], Ptr^, Length(Line)); Ptr := Ptr + Length(Line); Ptr[0] := #13; Ptr[1] := #10; Ptr := Ptr + 2; end; Ptr[0] := #0; ClipBoard.SetTextBuf(Buffer); FreeMem(Buffer, BufferSize); end;
procedure ClipboardToListBox(ListBox: TListbox); begin if not Assigned(ListBox) then Exit;
if not Clipboard.HasFormat(CF_TEXT) then Exit;
Listbox.Items.Text := Clipboard.AsText; end;
procedure TForm1.Button1Click(Sender: TObject); begin ListBoxToClipboard(ListBox1, 1024, True);
end;
procedure TForm1.Button2Click(Sender: TObject); begin ClipboardToListBox(Listbox2);
Jeg ser det som 2 spørgsmål der ikke har noget med hinanden at gøre?
1. ListBox1.Items.Text:=ListBox2.Items.Text;
2. Ja hvis din computer er direkte på internettet. Har du f.eks. en router mellem din internet forbindelse og din computer så skal du først åbne porten i routeren før computere udefra kan få kontakt til din ftp server.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.